38 lines
570 B
Plaintext
38 lines
570 B
Plaintext
VERSION 1.00
|
|
Begin Form Formular
|
|
Height = 10
|
|
Width = 40
|
|
Begin TextBox Text1
|
|
TabIndex = 0
|
|
End
|
|
Begin CommandButton Ok
|
|
Caption = "&OK"
|
|
TabIndex = 1
|
|
Top = 3
|
|
End
|
|
End
|
|
' tb-screen: 80x25
|
|
' tb-events: key:%o | key:+<TAB>
|
|
DIM SHARED trace$
|
|
Formular.Show
|
|
Ok.SetFocus
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
Formular.Hide
|
|
CLS
|
|
PRINT trace$
|
|
END
|
|
SUB Ok_Click()
|
|
SHARED trace$
|
|
trace$ = trace$ + "Click;"
|
|
END SUB
|
|
SUB Ok_LostFocus()
|
|
SHARED trace$
|
|
trace$ = trace$ + "LostFocus;"
|
|
END SUB
|
|
SUB Text1_GotFocus()
|
|
SHARED trace$
|
|
trace$ = trace$ + "GotFocus;"
|
|
END SUB
|