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!

Windows Easy Gui (WEG)

Projektzusammenfassung
Projekt-Maintainer:MitgliedEternal_Pain Projektseite angelegt:19.03.2014
Lizenzierung:FBPSL Letzte Bearbeitung:21.03.2014
Projektkategorie:Windows      [Zurück zur Übersicht]

Windows Easy Gui (WEG)

Win_Ext_Screen1

Ein kleines Projekt das die Benutzung der Windows GUI API in FreeBasic vereinfachen soll und somit Fenster und Menüs in wenigen Zeilen erstellt werden können.

Das Projekt ist noch recht 'dünn' und bedarf noch einige Erweiterungen und Verbesserungen.
Eine Hilfe als .chm ist in Arbeit ,sowie die aktuellsten Dateien (bis ich mit der SVN zurecht komme) sind hier zu finden:
Source Verzeichnis: Externer Link!http://users.freebasic-portal.de/eternalpain/WEG/
Source ZIP: Externer Link!http://users.freebasic-portal.de/eternalpain/WEG.zip
.CHM Hilfe: Externer Link!http://users.freebasic-portal.de/eternalpain/WEG.chm

Bisher Vorhandene Funktionen:

Ein Einfaches Beispiel (Example.bas)

#include "inc\Win_Ext.bi"

Dim as Item Main1 = CreateNewWindow(320, 200, "StaticText Example")
Dim as Item Text1 = CreateStaticText(Main1, 10, 10, "Hallo Welt")
Dim as Item Text2 = CreateStaticText(Main1, 30, 50, "Hallo Welt","Arial", Italic, 18)
Dim as Item Text3 = CreateStaticText(Main1, 50, 90, "Hallo Welt","Times New Roman", _
                                     Bold OR Underline, 24, &h7000FF, &h000000)

Dim as Item Main2 = CreateNewWindow(320, 200, "CheckBox Example", 200, 200)
Dim as Item Chck1 = CreateCheckBox(Main2, 100,  10, "Check1")
Dim as Item Chck2 = CreateCheckBox(Main2, 100,  60, "Check2" ,TextLeft)
Dim as Item Chck3 = CreateCheckBox(Main2, 100, 110, "Check3")

Const as String close_key = chr(255)+"k"

Dim as String  Key1, Key2
Dim as Integer Win1, Win2

Do
    Win_Ext_Update() 'Windows Message Update

    If Key1 = close_key Then HideItem(Main1) : Win1 = 1
    If Key2 = close_key Then HideItem(Main2) : Win2 = 1
    Key1 = GetWindowKey(Main1)
    Key2 = GetWindowKey(Main2)

Loop until Win1 and Win2
Dateimanager
inc\win_ext.bi19.03.14 04:364 kB
inc\win_ext.bas19.03.14 04:3720 kB
inc\imagefunctions.bas19.03.14 04:3815 kB
inc\CreateNewWindow.bas19.03.14 04:393 kB
inc\CreateImageItem.bas19.03.14 04:396 kB
inc\CreateSpinBox.bas19.03.14 04:406 kB
inc\CreateGroupBox.bas19.03.14 04:413 kB
inc\CreateEditBox.bas19.03.14 04:413 kB
inc\CreateCheckBox.bas19.03.14 04:423 kB
inc\CreateImageComboBox.bas19.03.14 04:436 kB
inc\CreateFontSelectCombo.bas19.03.14 04:446 kB
inc\CreateStaticText.bas19.03.14 04:445 kB
example.bas19.03.14 04:462 kB
inc\CreateRadioButton.bas20.03.14 08:257 kB