home *** CD-ROM | disk | FTP | other *** search
Null Bytes Alternating | 1995-11-10 | 1.5 KB | 21 lines |
- '++LotusScript Development Environment:2:5:(Options):0:66
-
- '++LotusScript Development Environment:2:5:(Forward):0:1
- Declare Sub Click(Source As Textbox, X As Long, Y As Long, Flags As Long)
-
- '++LotusScript Development Environment:2:5:(Declarations):0:2
-
- '++LotusScript Development Environment:2:2:BindEvents:1:129
- Private Sub BindEvents(Byval Objectname_ As String)
- Static Source As TEXTBOX
- Set Source = Bind(Objectname_)
- On Event Click From Source Call Click
- End Sub
-
- '++LotusScript Development Environment:2:2:Click:1:12
- Sub Click(Source As Textbox, X As Long, Y As Long, Flags As Long)
- Set currentwindow.activeview = currentdocument.Schedule~ Display
- currentview.body.fbxDateDisplay.text = Format$(Now, "m/d/yy")
- clearDisplay
- readBlock currentview.body.fbxDateDisplay.text
- End Sub