fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

example1.bas

Uploader:	OneCypher
Datum/Zeit:	13.10.2009 11:01:38

Hinweis: Dieser Quelltext ist Bestandteil des Projekts GuiPtr, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

#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

dim i as integer

Do: loop until RC(Application) = Button1

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.