irgendwie komme ich mit folgendem Problem nicht klar.
Ich will ein Startimage laden, es gibt ein Button, womit ich das nächste Bild auswählen und anzeigen kann.
An der Stelle wo die vielen ??? stehen, hatte ich schon einiges ausprobiert, leider ohne Erfolg.
Code: Alles auswählen
; PureBasic Visual Designer v3.90 build 1361
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#Image_0
#Button_0
EndEnumeration
;- Image Plugins
;- Image Globals
Global Image0
;- Catch Images
Image0 = CatchImage(0, ?Image0)
;- Images
DataSection
Image0:
IncludeBinary "C:\bild.bmp"
EndDataSection
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 0, 800, 640, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
If CreateGadgetList(WindowID())
ImageGadget(#Image_0, 80, 30, 640, 480, Image0, #PB_Image_Border)
ButtonGadget(#Button_0, 300, 560, 250, 40, "Bild laden")
EndIf
EndIf
EndProcedure
Open_Window_0()
Repeat
Event = WaitWindowEvent()
If Event = #PB_EventGadget
;Debug "WindowID: " + Str(EventWindowID())
GadgetID = EventGadgetID()
If GadgetID = #Button_0
;Debug "GadgetID: #Button_0"
DateiName$ = OpenFileRequester("Datei auswählen", "c:\*.bmp","*.bmp Dateien | *.txt", 0)
???????????
???????????
EndIf
EndIf
Until Event = #PB_EventCloseWindow
End
;Gru0 Hussi