fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

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

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.