fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

DeGUI test V1.21

Uploader:	DonStevone
Datum/Zeit:	28.12.2011 15:23:15

#Include "DeGUI.bi"



Screenres 400, 200, 32



Declare Sub Ev(ID as String)



Dim as GUI G



Dim Shared as TextField PTR TF

Dim Shared as RollTextField PTR RTF

Dim Shared as CheckBox PTR CB



G.NewLabel(80, 10, "Ich bin ein Label der DeGUI")

TF = G.GetTextFieldPTR(G.NewTextField(60, 50, 30, "Testtext im TextField"))

RTF = G.GetRollTextFieldPTR(G.NewRollTextField(60, 65, 30, "Testtext im RollTextField"))

G.NewLabel(60, 85, "Hier ist ein PWTextField")

G.NewPWTextField(60, 100, 30)

CB = G.GetCheckBoxPTR(G.NewCheckBox(10, 110, "checkbox1", @Ev))

CB->Checked = 1

G.NewButton("Button1", 10, 130, "Button1ID", @Ev)

G.NewButton("Ein weiterer Testbutton", 80, 130, "Button2ID", @Ev)





While(NOT Multikey(&h01))

    G.Control()

    ScreenLock

        G.GClear()

        G.G()

    ScreenUnlock

    Sleep 10

Wend



Sub Ev(ID as String)

    If ID = "checkbox1" then

        If CB->Checked = 0 then TF->Text = "Pls click the checkbox" Else TF->Text = "Checkbox clicked^^"

    Endif

    If ID = "Button1ID" then RTF->Text = "Button 1 clicked"

    If ID = "Button2ID" then RTF->Text = "Button 2 clicked"

End Sub

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.