PureBoard

Verfasst: **05.08.2005 00:34**

Hallo NG,

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
;

Von Euch kann mir bestimmt einer sagen, was an der ???? Stelle stehen muß.

Gru0 Hussi

Verfasst: **05.08.2005 02:16**

Hat sich erledigt...

Seltsamer weise geht es jetzt mit einem Code, den ich schon probiert hatte.

Gruß Hussi