PureBoard

Verfasst: **04.10.2008 09:55**

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

Verfasst: **04.10.2008 09:59**

Odiii hat geschrieben: 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)

Verfasst: **04.10.2008 10:26**

Mit der Demo kann er aber kein Winapi nutzen

Verfasst: **04.10.2008 10:27**

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

Grüße ... Kiffi

Verfasst: **04.10.2008 10:48**

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

Verfasst: **04.10.2008 10:50**

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

Until WaitWindowEvent() = #PB_Event_CloseWindow

Verfasst: **04.10.2008 10:54**

Odiii hat geschrieben:"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

Verfasst: **04.10.2008 11:03**

Wuhu, dickes Thx ^^

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

Verfasst: **04.10.2008 11:13**

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ß

Verfasst: **04.10.2008 11:20**

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=")

PureBoard

Kleiner Bug im Code - brauche kleine Hilfe

Kleiner Bug im Code - brauche kleine Hilfe

Re: Kleiner Bug im Code - brauche kleine Hilfe

Re: Kleiner Bug im Code - brauche kleine Hilfe

Re: Kleiner Bug im Code - brauche kleine Hilfe