33 lines
585 B
Plaintext
33 lines
585 B
Plaintext
VERSION 1.00
|
|
Begin Form Form1
|
|
Width = 40
|
|
Height = 12
|
|
Begin TextBox Text1
|
|
Left = 5
|
|
Top = 5
|
|
Width = 10
|
|
Height = 1
|
|
End
|
|
End
|
|
|
|
' tb-screen: 80x25
|
|
' tb-events: time:0ms | mouse:down,1,0,2,2 | key:K
|
|
' Erwartete Handlerwirkungen in Hostreihenfolge; keine Snapshot-Neuaufnahme.
|
|
Text1.SetFocus
|
|
DIM SHARED s$
|
|
DOEVENTS
|
|
DOEVENTS
|
|
DOEVENTS
|
|
Form1.Hide
|
|
CLS
|
|
PRINT s$
|
|
END
|
|
SUB Text1_KeyPress(KeyAscii AS INTEGER)
|
|
SHARED s$
|
|
s$ = s$ + CHR$(KeyAscii)
|
|
END SUB
|
|
SUB Form_MouseDown(Button AS INTEGER, Shift AS INTEGER, X AS SINGLE, Y AS SINGLE)
|
|
SHARED s$
|
|
s$ = s$ + "M"
|
|
END SUB
|