Code: Alles auswählen
Enumeration
#Monat
#Jahr
#Button_Buchung
#Button_OffenePosten
#Button_LaufenderMonat
EndEnumeration
OpenWindow(0,0,0,980,850,"", #PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered)
If LoadFont(0, "Verdana", 10):SetGadgetFont(#PB_Default, FontID(0)):EndIf
ButtonGadget(#Button_Buchung,15,15,150,30,"Neue Buchung")
ButtonGadget(#Button_OffenePosten,15,55,150,30,"Offene Posten")
ButtonGadget(#Button_LaufenderMonat,15,95,150,30,"Laufender Monat")
FrameGadget(#PB_Any,15,135,150,155," Detailsuche ")
TextGadget(#PB_Any,30,165,150,30,"Monat")
ComboBoxGadget(#Monat, 85, 165, 60, 21)
AddGadgetItem(#Monat, -1, "alle")
For k = 1 To 12:AddGadgetItem(#Monat, -1, RSet(Str(k),2,"0")):Next
SetGadgetState(#Monat, 0)
TextGadget(#PB_Any,30,195,150,30,"Jahr")
ComboBoxGadget(#Jahr, 85, 195, 60, 21)
For j = Val(FormatDate("%yyyy", Date())) To 2015 Step -1:AddGadgetItem(#Jahr, -1, Str(j)):Next
SetGadgetState(#Jahr, 0)
While WindowEvent():Wend
Repeat
EventID=WaitWindowEvent()
If EventID=#PB_Event_Gadget And EventType()=#PB_EventType_Change
Select EventGadget()
EndSelect
EndIf
Until EventID=#PB_Event_CloseWindow