PureBoard

Verfasst: **25.02.2009 14:59**

Warst du den schon mit dem Webgadget auf einer anderen Seite (außer der "Startseite")?
Du kannst nur zurück gehen , wenn es auch was gibt, worauf man zurück greifen kann.

Verfasst: **25.02.2009 15:02**

jaa ich bin auf eine andere seite gegangen, und habe den button gedrückt, aber nichts ist passiert.

Verfasst: **25.02.2009 15:03**

Code: Alles auswählen

OpenWindow(0, 0, 0, 600, 300, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
WebGadget(3, 10, 30, 580, 280, "http://www.purebasic.com")

ButtonGadget(8, 10, 10, 100, 20, "Back")
  
Repeat 
  
  Select WaitWindowEvent()
      
    Case #PB_Event_Gadget
      
      Select EventGadget()
          
        Case 8
          
          SetGadgetState(3, #PB_Web_Back)
          
      EndSelect
      
    Case #PB_Event_CloseWindow
      
      Break
      
  EndSelect
  
ForEver

Bitte Mehrfachpostings vermeiden! Es gibt einen Edit-Button!

Verfasst: **25.02.2009 15:09**

Kleine Erweiterung an Kiffis Code (da ich denke das du sowas grad "baust")

Code: Alles auswählen

OpenWindow(0, 0, 0, 600, 300, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)


WebGadget(3, 10, 30, 580, 280, "http://www.purebasic.com")

ButtonGadget(8, 10, 10, 100, 20, "Back")

ButtonGadget(9, 120, 10, 100, 20, "Gehe zu")

StringGadget(10, 230, 10, 340, 20, "http://www.google.de")

Repeat
  
  Select WaitWindowEvent()
      
    Case #PB_Event_Gadget
      
      Select EventGadget()
          
        Case 9
          
          Seite$ = GetGadgetText(10)
          
          SetGadgetText(3, Seite$)

        Case 8
          
          SetGadgetState(3, #PB_Web_Back)
          
      EndSelect
      
    Case #PB_Event_CloseWindow
      
      Break
      
  EndSelect
  
ForEver

Verfasst: **25.02.2009 15:23**

Sorry für das mehrfach posting
thx, es funktioniert

PureBoard

SetGadgetState(8, #PB_Web_Back)