Code: Alles auswählen
;--------- GeneratedIncludeFile.pb -----------------------------
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#Listview_0
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 220, 0, 600, 300, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window_0))
ListViewGadget(#Listview_0, 50, 50, 200, 170)
EndIf
EndIf
EndProcedure
;----------------- GeneratedMainFile.pb --------------------------
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;IncludeFile "GeneratedIncludeFile.pb" ; Dieses habe ich ausgeklammert, da includfile hier oben in Mainfile steht.
Open_Window_0()
For i=1 To 100
AddGadgetItem(#Listview_0,-1,"Test "+Str(i)); Hier werden z.B. die Items hinzugefügt(Manuell)
Next i
Repeat ; Start of the event loop
Event = WaitWindowEvent() ; This line waits until an event is received from Windows
WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
GadgetID = EventGadget() ; Is it a gadget event?
EventType = EventType() ; The event type
;You can place code here, and use the result as parameters for the procedures
If Event = #PB_Event_Gadget
If GadgetID = #Listview_0
EndIf
EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
End
;
