61 lines
1.2 KiB
Plaintext
61 lines
1.2 KiB
Plaintext
VERSION 1.00
|
|
Begin Form Formular
|
|
Height = 10
|
|
Width = 40
|
|
Begin Menu mnuDatei
|
|
Caption = "&Datei"
|
|
Begin Menu mnuOpen
|
|
Caption = "&Open"
|
|
End
|
|
End
|
|
Begin TextBox Text1
|
|
Left = 2
|
|
Top = 2
|
|
Width = 18
|
|
Height = 1
|
|
TabIndex = 0
|
|
End
|
|
Begin CommandButton Ok
|
|
Caption = "&OK"
|
|
Left = 23
|
|
Top = 3
|
|
Width = 10
|
|
Height = 1
|
|
TabIndex = 1
|
|
End
|
|
End
|
|
' tb-screen: 80x25
|
|
' tb-events: time:0ms | key:<TAB> | resize:100x30 | mouse:down,1,0,4,25 | mouse:up,1,0,4,25 | key:%d | key:o
|
|
' Soll: LostFocus vor GotFocus, ein Click, dann Menue. COLOR e1;
|
|
' nach Resize passt die Ausgabe ab Spalte 90. Unicode belegt Doppelzellen.
|
|
' Quellen: Specs forms-objektmodell, textbildschirm, release-kompatibilitaet.
|
|
DIM SHARED trace$
|
|
Formular.Show
|
|
Text1.SetFocus
|
|
FOR i% = 1 TO 20
|
|
DOEVENTS
|
|
NEXT
|
|
Formular.Hide
|
|
COLOR 14, 1
|
|
CLS
|
|
PRINT trace$; "中"
|
|
LOCATE 2, 90
|
|
PRINT "界Z";
|
|
END
|
|
SUB Text1_LostFocus()
|
|
SHARED trace$
|
|
trace$ = trace$ + "Lost;"
|
|
END SUB
|
|
SUB Ok_GotFocus()
|
|
SHARED trace$
|
|
trace$ = trace$ + "Got;"
|
|
END SUB
|
|
SUB Ok_Click()
|
|
SHARED trace$
|
|
trace$ = trace$ + "Click;"
|
|
END SUB
|
|
SUB mnuOpen_Click()
|
|
SHARED trace$
|
|
trace$ = trace$ + "Menu;"
|
|
END SUB
|