Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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

example1.bas

Uploader:MitgliedOneCypher
Datum/Zeit:20.09.2009 17:50:58
Hinweis: Dieser Quelltext ist Bestandteil des Projekts GuiPtr, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.
Warnung: Es steht bereits eine neuere Version des Quelltexts zur Verfügung. Die hier vorliegende alte Version könnte Fehler enthalten, die in der neuen Version vielleicht ausgebessert wurden.

#include "GuiWindow.bi"
#include "Label.bi"
#include "Button.bi"
#include "GuiPtrTools.bi"

screen 16,32

'Erstmal die Unterste GUI-Ebene erstellen:
Dim Application as NullWindow ptr = new Nullwindow

'Bedienelemente kann man so erstellen:
dim shared Label1 as Label ptr
    Label1 = Application->Object->Add(new Label(150,10,"Hallo Welt!"))

    'Und so kann man auf die Eigenschaften vom Label1 zugreifen:
    Label1->Style = 3


'Bedienelemente kann man aber auch einfacher erstellen:
dim Button1 as Button ptr = Application->Object->Add(new Button(100,300,300,50,"Alles klar!"))

dim Button2 as Button ptr = Application->Object->Add(new Button(150,200,200,40,"Hier passiert was!"))

    'Hier erstellen wir ein Ereignis für Button2
    Sub Button2_Click(Button2 as Button ptr, e as EventParameter)
        'Beim Click auf Button2 soll der Text des Buttons und der Style des Label1 verändert werden:
        Label1->Style +=1
        if Label1->Style > 3 then Label1->Style = 0
        Button2->Caption = "Label1 Style = " & Label1->Style
    end sub

    'Und hier wird das Ereignis SingleClick mit der Sub Button2_Click verbunden:
    Event(Button2)->SingleClick = @Button2_Click


'Hier Wird die Gui "ausgeführt" und gewartet bis Button1 ein Event auslöst
Do
loop until RC(Application) = Button1