Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
fbtk_demo.bas 'Eine interessante GUI-Engine?
| Uploader: |  OneCypher |
| Datum/Zeit: | 22.10.2008 01:10:08 |
'fbtk_demo.bas
'Copyright Christian H. 2008
'Dieser Quelltext darf frei weitergegeben oder verändert werden.
#include once "fbtk.bi"
#include once "CustomFbTk.bi"
dim shared label1 as fbtk._label ptr
dim shared label2 as fbtk._label ptr
dim shared label3 as fbtk._label ptr
dim shared button1 as CustomFbTk._button ptr
Sub Label1Click()
print #1,"Label 1 wurde angeklickt"
end sub
Sub Label2Click()
label2->caption = "Danke!!"
label2->style = 3
end sub
sub ExitAll
fbtk.termsign = 1
end sub
screen 19,32,2
OPEN CONS FOR OUTPUT AS #1
label1 = fbtk.AddLabel(10,10,"Hallo Welt")
label2 = fbtk.AddLabel(10,30,"Klick mich!")
label3 = fbtk.AddLabel(600,500,"Beenden...")
button1 = CustomFbTk.AddButton(200,300,300,100,"Klick Knopf")
fbtk.OnClick label1, @Label1Click
fbtk.OnClick label2, @Label2Click
fbtk.OnClick label3, @ExitAll
fbtk.OnClick button1, @Label2Click
fbtk.DoEvents