Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
example.bas
| Uploader: |  Eternal_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")