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:39:45
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

'Weitere Bedienelemente kann man so erstellen:
dim Label1 as Label ptr = new Label(150,10,"Hallo Welt!")
    Application->Object->Add(Label1)
    'Und so kann man auf die Eigenschaften vom Label1 zugreifen:
    Label1->Style = 3

'Oder noch kürzer so:
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 nix!"))

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