Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [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

example.bas

Uploader:MitgliedEternal_Pain
Datum/Zeit:19.03.2014 04:46:12
Hinweis: Dieser Quelltext ist Bestandteil des Projekts Windows Easy Gui (WEG), zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

#include "inc\Win_Ext.bas"
#Include "inc\ImageFunctions.bas"
#include "inc\CreateNewWindow.bas"
#include "inc\CreateImageItem.bas"
#include "inc\CreateSpinBox.bas"
#include "inc\CreateGroupBox.bas"
#include "inc\CreateEditBox.bas"
#include "inc\CreateCheckBox.bas"
#Include "inc\CreateImageComboBox.bas"
#Include "inc\CreateFontSelectCombo.bas"
#Include "inc\CreateStaticText.bas"

Function GetWindowKey(byref ThisItem as Item) as String
    If ThisItem andalso ThisItem -> ID = WindowID Then
        Function = Cast(Item_Window ptr, ThisItem) -> WindowKey
        Cast(Item_Window ptr, ThisItem) -> WindowKey = ""
    End If
End Function

'***********************************************************************************



'***********************************************************************************

Dim as Item Main   = CreateNewWindow(640,280,"Windows Ext.")
Dim as Item Group1 = CreateGroupBox(Main,10,10,620,260,"Group")
Dim as Item Spin1  = CreateSpinBox(Group1,10,20)
Dim as Item Spin2  = CreateSpinBox(Group1,10,50,,,-100,100,50)
Dim as Item Spin3  = CreateSpinBox(Group1,10,80,100)
Dim as Item Spin4  = CreateEditBox(Group1,150,20)
Dim as Item Check  = CreateCheckBox(Group1,300,25,"Check")
Dim as Item FntSel = CreateFontSelectCombo(Group1,150,50,,20)

Dim as Item Text1 = CreateStaticText(Group1, 70, 25, "Text")
Dim as Item Text3 = CreateStaticText(Group1, 70, 55, "Text", "Times New Roman", Bold OR Italic, 18, &hFFFFFF, &h333333)

Dim as String Key

Do

    Win_Ext_Update(1)
    Key = GetWindowKey(Main)

Loop until (Key = chr(255)+"k")