Problem mit HyperLinkGadget

[Ractur]

Hallo,

also nun such ich schon seit Stunden weshalb ich denn 2 mal auf den Hyperlink klicken muss in meinem Programm.

Code: Alles auswählen

HyperLinkGadget(10, 200, 300, 250,20,"Arial Underlined Green HyperLink", RGB(0,255,0), #PB_HyperLink_Underline)
SetGadgetFont(10, LoadFont(0, "Arial", 8)

----------

Select WaitWindowEvent(1000)

----------

Case #PB_Event_Gadget
Select EventGadget()  

Case 10
RunProgram("http://www.blblblb....de")

Klick ich einmal auf den Hyperlink passiert nix, klick ich 2mal öffnet sich der Browser... An was kann das denn liegen?

Danke... Matthias

[RSBasic]

Dein Code ist unvollständig. Deshalb kann ich nur vermuten, dass du eventuell EventGadget()/WaitWindowEvent() mehr als einmal aufrufst und deshalb Events verloren gehen. Speichere bitte den Wert aus EventGadget() und WaitWindowEvent() in eine extra Variable, dann sollte dein Problem nicht mehr auftreten, oder sorge dafür, dass EventGadget()/WaitWindowEvent() nur einmal verwendet wird:

Code: Alles auswählen

EnableExplicit

Define EventID

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  HyperLinkGadget(10, 200, 300, 250,20,"Arial Underlined Green HyperLink", RGB(0,255,0), #PB_HyperLink_Underline)
  SetGadgetFont(10, LoadFont(0, "Arial", 8))
  
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
        Case 10
          RunProgram("http://www.blblblb....de")
      EndSelect
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

[Ractur]

Hi RSBasic,

vermutlich hast Du Recht! Die Buttons im Programm frage ich genauso ab, und da verschluckt er nichts...

Ok ich nehme es mal einfach so hin, und hab mir jetzt mal mit nem Tootip beholfen das ein Doppelklick nötig ist. Nicht grad ne saubere Lösung, aber kommt Zeit kommt Rat Vielleicht seh ich grad eben auch nur den Wald vor lauter Bäumen nicht.

Danke Dir für die Hilfe