98 lines
1.6 KiB
Plaintext
98 lines
1.6 KiB
Plaintext
VERSION 1.00
|
|
Begin Form Formular
|
|
Caption = "Steuerelemente"
|
|
Height = 16
|
|
Left = 0
|
|
Top = 0
|
|
Width = 46
|
|
Begin Menu mnuDatei
|
|
Caption = "&Datei"
|
|
Begin Menu mnuOpen
|
|
Caption = "&Open"
|
|
End
|
|
End
|
|
Begin TextBox Text1
|
|
Height = 3
|
|
Left = 2
|
|
TabIndex = 0
|
|
Text = "Eingabe"
|
|
Top = 2
|
|
Width = 18
|
|
End
|
|
Begin CommandButton Command1
|
|
Caption = "&OK"
|
|
Default = -1
|
|
Height = 1
|
|
Left = 23
|
|
TabIndex = 1
|
|
Top = 3
|
|
Width = 10
|
|
End
|
|
Begin ListBox List1
|
|
Height = 5
|
|
Left = 2
|
|
Sorted = -1
|
|
TabIndex = 2
|
|
Top = 6
|
|
Width = 18
|
|
End
|
|
Begin Label Status
|
|
Caption = "bereit"
|
|
Height = 1
|
|
Left = 23
|
|
Top = 7
|
|
Width = 18
|
|
End
|
|
Begin Label TimerStatus
|
|
Caption = "Timer 0"
|
|
Height = 1
|
|
Left = 23
|
|
Top = 9
|
|
Width = 18
|
|
End
|
|
Begin Timer Timer1
|
|
Enabled = -1
|
|
Interval = 100
|
|
End
|
|
End
|
|
|
|
' tb-screen: 80x25
|
|
' tb-events: key:<TAB> | mouse:down,1,0,4,25 | mouse:up,1,0,4,25 | time:0ms | key:<ENTER> | key:%d | key:o | time:250ms
|
|
DIM SHARED Klicks%, Ticks%
|
|
Formular.Show
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
END
|
|
|
|
SUB Form_Load()
|
|
List1.ADDITEM "zwei"
|
|
List1.ADDITEM "eins"
|
|
END SUB
|
|
|
|
SUB Command1_Click()
|
|
SHARED Klicks%
|
|
Klicks% = Klicks% + 1
|
|
r% = MSGBOX("Weiter?", 0, "Klick")
|
|
Status.Caption = "Dialog " + STR$(r%)
|
|
END SUB
|
|
|
|
SUB mnuOpen_Click()
|
|
Status.Caption = "Menü"
|
|
END SUB
|
|
|
|
SUB Timer1_Timer()
|
|
SHARED Ticks%
|
|
Ticks% = Ticks% + 1
|
|
TimerStatus.Caption = "Timer " + STR$(Ticks%)
|
|
END SUB
|