[Hilfe] WebGadget --> URL ändern???

[Shuyin]

Ich hab ein Problem..

Ich hab ein WebGadget und ein StringGadget erstellt. Wenn ich das Programm öffne, wird meine Seite geladen. Aber wie kann ich es per
StringGadget Eingabe ändern ?
Ich möchte, dass man dann eine inet adresse eingibt und die Enter Taste drückt, danach soll dann z.B. google.de geladen werden (wenn man also www.google.de eingibt).

Hier ein Beispiel:

Code: Alles auswählen

;WebGadget
;
WebGadget(0,0,30,#ScreenWidth,#ScreenHeight,"http://www.meine website.de")

;StringGadget
;
URL = StringGadget(#PB_Any,230,10,306,20,"")


;Hauptschleife
;
Repeat

   EventID = WaitWindowEvent()

   If EventID = EventType()
   
      Select #PB_EventType_Change
      
         Case URL
         
            If KeyboardPushed(#PB_Key_F1)
            
               Neue_adresse.s = GetGadgetText(URL)
            
               WebGadget(0,0,0,#ScreenWidth,#ScreenHeight,""+Neue_adresse)
         
            EndIf
         
      EndSelect
      
   EndIf

Until EventID = #PB_Event_CloseWindow

[Tafkadasom2k5]

Die folgenden Befehle können zum Zugriff auf das WebGadget benutzt werden:

- SetGadgetText(): Ändert die aktuelle URL.
- GetGadgetText(): Ermittelt die aktuelle URL.
- SetGadgetState(): Führt einige Aktionen auf dem Gadget aus. Die folgenden Konstanten sind gültig:

Alle Klarheiten beseitigt?
Oder war die Frage, wie du das Fenster für die Return-Taste ansprechbar machst?
Das würde am besten mit dem "AddKeyboardShortcut(#Window, Shortcut, EventID) " Befehl gehen.
Du rufst einfach die Menu-ID ab und verarbeitest diese.
PB-Hilfe is Klasse

Frohes Fest soweit und lasst euch gut beschenken, wünscht

Tafkadasom2k5


EDIT:Die Serverzeit scheint irgendwie falsch...ich habe um 13:09 gepostet und ned um 14:09 ^^

[ts-soft]

Du erstellst ja immer ein neues WebGadget

Code: Alles auswählen

;WebGadget
;
WebGadget(0,0,30,#ScreenWidth,#ScreenHeight,"http://www.meine website.de")

;StringGadget
;
URL = StringGadget(#PB_Any,230,10,306,20,"")


;Hauptschleife
;
Repeat

   EventID = WaitWindowEvent()

   If EventID = EventType()
   
      Select #PB_EventType_Change
     
         Case URL
         
            If KeyboardPushed(#PB_Key_F1)
           
               Neue_adresse.s = GetGadgetText(URL)
                ; kein neues Webgadget erstellen
               ;WebGadget(0,0,0,#ScreenWidth,#ScreenHeight,""+Neue_adresse)
              SetGadgetText(0, Neue_Adresse)
            EndIf
         
      EndSelect
     
   EndIf

Until EventID = #PB_Event_CloseWindow 

Evtl. noch Refreshen mit:

Code: Alles auswählen

SetGadgetState(0, #PB_Web_Refresh)

[Tafkadasom2k5]

Du erstellst ja immer ein neues WebGadget

Und du erstellst garkein Fenster ^^

..ok, war Offtopic, aber musste mal raus

[ts-soft]

Du erstellst ja immer ein neues WebGadget

Und du erstellst garkein Fenster ^^

..ok, war Offtopic, aber musste mal raus

Ich habe ja nur den Teil seines Codes korrigiert, den er gepostet hat. Den Rest kenne ich ja nicht. Hab keine Glaskugel. Da hier ja nur selten funktionierender Code gepostet wird, gehe ich davon aus, das dieser Teil vorhanden ist, aber nicht gepostet wurde

[Shuyin]

Also, jetzt erstmal vielen dank für die ganzen Tipps^^

Du erstellst ja immer ein neues WebGadget

Ich habs editiert, danke

Da hier ja nur selten funktionierender Code gepostet wird, gehe ich davon aus, das dieser Teil vorhanden ist, aber nicht gepostet wurde

Jop, ich hab nicht den ganzen Code gepostet, sonst wär das sehr lang und dann müsstet ihr euch sehr viel mühe geben, um es zu verstehen.

Frohes Fest soweit und lasst euch gut beschenken, wünscht

Tafkadasom2k5

Danke, ich wünsch dir und euch allen auch ein frohes Fest^^



So, nun mal wieder zu meinem Problem:

Die beiden Befehle (MenuID() und AddKeyboardShortcut), hab ich glaub ich nicht so richtig verstanden...
Ich hab jetzt folgendes versucht:

Code: Alles auswählen

;Hauptschleife
;
Repeat


   MenueID = EventMenuID()


   If MenueID = AddKeyboardShortcut(Fenster,#PB_Shortcut_Return,URL)
      
      Neue_adresse.s = GetGadgetText(URL)
      
      SetGadgetText(Seite,""+Neue_adresse)
   
   EndIf

Until EventID = #PB_Event_CloseWindow

Und ich glaube, dass es falsch ist, was ich da mache...
Ich wär euch sehr dankbar, wenn ihr mir mal sagen könntet, wie man die beiden befehle benutzen kann...

PB-Hilfe is Klasse

...aber leider nicht ausführlich genug

MfG
Shuyin

[ts-soft]

Hier nochmal zum Verständnis ein Sekelton Deine Programmes:

Code: Alles auswählen

Enumeration ; Fenster
  #myWindow
EndEnumeration

Enumeration ; MenuID
  #myReturn
EndEnumeration

Enumeration ; Gadgets
  #myWebGadget
EndEnumeration
If OpenWindow(#myWindow, 100, 100, 400, 200, #PB_Window_SystemMenu,"")
  AddKeyboardShortcut(#myWindow, #PB_Shortcut_Return, #myReturn)
  If CreateGadgetList(WindowID(#myWindow))
    ;webgadget, ...
  EndIf
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break
      Case #PB_Event_Menu
        Select EventMenuID()
          Case #myReturn
            ; bla bla
        EndSelect
      Case #PB_Event_Gadget
        Select EventGadgetID()
          Case #myWebGadget
            ; bla bla
        EndSelect
    EndSelect
  ForEver
EndIf

Der KeyboardShortcut wird also dem Fenster zugeordnet und erzeugt ein Menüereignis!

[Shuyin]

Danke vielmals für eure Hilfe. Dein Beispiel hat mir sehr geholfen^^

Frohe Weihnachten@all

MfG
Shinyu