31 lines
739 B
QBasic
31 lines
739 B
QBasic
5 MOUSE 1,0:STILE 15
|
|
6 DIM #a(255)
|
|
7 DIM #w(255)
|
|
8 WSET 0
|
|
10 COL 0,255,0:CLS :CROFF
|
|
11 #a(1)="Button gedrueckt"
|
|
13 #a(2)="Icon gedrueckt "
|
|
14 #w(21)="Fenster links "
|
|
15 #w(22)="Fenster rechts "
|
|
16 #t="Hilfefenster"
|
|
17 #f="Dies ist ein Hilfefenster,"
|
|
18 #g="aber mit dem WIN-Befehl"
|
|
19 #h="erzeugt !"
|
|
20 WIN c(2,0,250,$e6,5,10,35,20,4,0,#t)
|
|
22 FONT #f,250,0,$e6,0,1
|
|
23 FONT #g,250,0,$e6,0,2
|
|
24 FONT #h,250,0,$e6,0,3
|
|
25 FONT "Dadurch ist der MBOX-Befehl",250,0,$e6,0,4
|
|
30 FONT "ueberfluessig!!!",250,0,$e6,0,5
|
|
40 #b="Das ist ein Testknopf!"
|
|
50 BUTTON t(1,255,66,8,19,#b)
|
|
52 BUTTON i(2,16,$e6,0,250,23,10)
|
|
56 w=WIN
|
|
60 a=MB (0)
|
|
65 WSET 0
|
|
70 POS 10,24:PRINT #a(a)
|
|
71 POS 10,24:PRINT #w(w)
|
|
80 IF a=0 AND w=0 THEN GOTO 56
|
|
120 GOTO 56
|
|
|