Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

DeGUI test V1.1

Uploader:MitgliedDonStevone
Datum/Zeit:06.11.2011 19:46:51

#Include "DeGUI.bi"

Screenres 400, 400, 32

Declare Sub Ev(ID as String)

Dim as GUI G
Dim Shared as Checkbox PTR CheckPTR
Dim Shared as Button PTR ButtPTR
Dim Shared as TextField PTR TF
Dim Shared as Integer TextFieldNr, ButtonNr, CheckboxNR

G.NewLabel(150, 10, "Damn Easy GUI")
G.NewLabel(10, 55, "Checked Checkbox")

CheckboxNR = G.NewCheckbox(150, 50, "1C", @Ev)
CheckPTR = G.GetCheckboxPTR(CheckboxNR)
CheckPTR->Checked = 1

TextFieldNr = G.NewTextField(25, 100, 40, "Hier klicken um etwas zu schreiben")
TF = G.GetTextFieldPTR(TextFieldNr)

ButtonNr = G.NewButton("Button1", @Ev, "ClickMich", 100, 150)
ButtPTR = G.GetButtonPTR(ButtonNr)

G.GUIStart()

While(NOT Multikey(&h01))
    Sleep
Wend

Sub Ev(ID as String)
    If ID = "Button1" And CheckPTR->Checked = 1 then
        CLS
        ButtPTR->Hide
        Draw String (10, 250), "Im TextFeld steht:"
        Draw String (10, 260), TF->Text
        Draw String (10, 270), "Wird geaendert in 'Foobar'"
        TF->Text = "Foobar"
    ElseIf ID = "Button1" And CheckPTR->Checked = 0 then
        Draw String (10, 250), "Erst auf die Checkbox klicken!"
    Endif
End Sub