Kleiner Bug im Code - brauche kleine Hilfe

[Odiii]

Hallo liebe PB´s

Ich bin neu hier und habe direkt mal eine Frage.
Ich habe eben einen Code angefertigt, nur leider ist dort ein Fehler.
Bin neu dabei und habe noch nicht ganz die Peilung, wo es hapert.

Evtl. kann mir ja jemand helfen:

Code: Alles auswählen

;Fenster
Enumeration
  #OP
EndEnumeration

;Links
Enumeration
#Main
EndEnumeration

;Buttons
Enumeration
#Close
EndEnumeration



;---------PROZEDUREN--------------------

Procedure GetWindowBkColor(hWnd)
  A$=Space(40)
  GetObject_(GetClassLong_(hWnd,#GCL_HBRBACKGROUND),40,@A$)
  ProcedureReturn PeekL(@A$+4)
EndProcedure

;------------FENSTER---------------------

OpenWindow(#OP,0,0,800,600,"xxxxxxxxxx - Klick2Go",1|#WS_SYSMENU)
hBrush=CreateSolidBrush_(RGB(255,255,255))
SetClassLong_(WindowID(#OP),#GCL_HBRBACKGROUND,hBrush)     ; Fensterfarbe setzen
InvalidateRect_(WindowID(#OP),#Null,#True)


;-----------------GADGETS---------------------
If CreateGadgetList(WindowID(#OP))
ButtonGadget(#Close,300,540,155,20,"xxxxxxxxxxx Klick2Go beenden")


HyperLinkGadget(#Main, 28, 38, 285, 15, "xxxxxxxxxxxxxx Portal", RGB(248, 15, 7),#PB_HyperLink_Underline)
GadgetToolTip(#Main, "www.xxxxxxxxxxx.net")
EndIf
Repeat
    EventID = WaitWindowEvent()


Select EventID
Case #Main
RunProgram("http://www.xxxxxxxxxxxx.net")
EndSelect

Repeat:Until WaitWindowEvent()=#WM_CLOSE

Until Quit = 1


End

Nutze PB 4.1

Gruß
Odiii

[DrShrek]

Nutze PB 4.1

Das ist der Grund des BUGs
Update auf 4.30 beta 3 und einiges wird leichter.
Oder lade dir die aktuelle Demo version (=4.20)

[marco2007]

Mit der Demo kann er aber kein Winapi nutzen

[Kiffi]

@Odiii: Beim nächsten Mal bitte auch kurz schreiben, was nicht richtig
funktioniert. Das erleichtert uns die Fehlersuche.

Grüße ... Kiffi

[Odiii]

Naja, ich kann das Programm nicht beenden sowie der Link wird nicht geöffnet...

[X360 Andy]

Naja, ich kann das Programm nicht beenden sowie der Link wird nicht geöffnet...

Until WaitWindowEvent() = #PB_Event_CloseWindow

[marco2007]

"www.xxxxxxxxxxx.net"

...Du perverser!

Code: Alles auswählen

Repeat
   EventID = WaitWindowEvent()
Select EventID
  Case #PB_Event_Gadget
    Select EventGadget()
     Case #main
      RunProgram("http://www.xxxxxxxxxxxx.net")
    EndSelect  
EndSelect

Until eventID=#WM_CLOSE


End

[Odiii]

Wuhu, dickes Thx ^^

Öhm...nix pervers nur die Seite soll nicht so öffentlich stehen, wer aber Interesse hat, einfach eine PN

[Odiii]

Mal noch eine Frage hinterher:

Gibt es eine Möglichkeit, Wörter in einer URL einzufügen?

Also z.B. Man trägt Wörter in einem String-Gadget ein und drückt auf einem Button, der eine URL öffnet, wo die Wörter an einem bestimmten Teil eingebunden werden.

Auf Deutsch: Eine Boardsuche mit PB durchführen.

Gruß

[marco2007]

z.B.:

Code: Alles auswählen

SUCHBEGRIFF$="Marco"
RunProgram("http://de.wikipedia.org/wiki/Spezial:Suche?search="+Suchbegriff$)
RunProgram("http://www.google.at/search?hl=de&q="+Suchbegriff$+"&meta=")