Unter Win9x und Win2000 öffnet das ExplorerTreeGadget keine
Unterverzeichnisse mehr. (Mit Beta1 gings noch)
Wers ausprobieren will:
Code: Alles auswählen
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#ExplorerTree_0
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 390, 272, 534, 545, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window_0))
ExplorerTreeGadget(#ExplorerTree_0, 0, 5, 535, 490, "")
EndIf
EndIf
EndProcedure
Open_Window_0()
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 = #ExplorerTree_0
EndIf
EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
End