Seite 1 von 2

Warum funktioniert der Code nicht

Verfasst: 08.04.2010 17:50
von PureBeginner
wiso funktioniert dieser code nicht:

Code: Alles auswählen

    If   OpenWindow(1,500,200,450,200,"","......")
         CreateGadgetList(1)
         ButtonGadget(1,400,150,100,20,".......")

    EndIf


Danke für jede antwort

Re: Warum funktioniert der Code nicht

Verfasst: 08.04.2010 17:52
von X360 Andy
Der Code funktioniert schon .. doch das Fenster Schließt sich sofort wieder.
Es fehlt eine Eventschleife in deinem Code.

Schau dir am besten die verschiedenen Fenster und Gadget Codes und Tuts. an.

Re: Warum funktioniert der Code nicht

Verfasst: 08.04.2010 17:54
von PureBeginner
Wenn ich Delay(5000) dahinter setze funktioniert es auch nicht.
Es öffnet sich nur ein weises fenster in dem mein code angezeigt wird und die zweite zeile ist markiert.

Edit: dann kommt ne meldung: Error at line 2 : The specified WindowID isn´t a valid window.

:(

Re: Warum funktioniert der Code nicht

Verfasst: 08.04.2010 18:04
von Andesdaf
Schau mal in die PB-Hilfe auf der Seite 'WaitWindowEvent', dort findest du eine
ordentliche Eventschleife + Window, die du in deinen Code einbauen kannst.

PS: Willkommen an Board :)

Re: Warum funktioniert der Code nicht

Verfasst: 08.04.2010 18:13
von PureBeginner
Danke :)

Re: Warum funktioniert der Code nicht

Verfasst: 08.04.2010 18:26
von STARGÅTE
was soll CreateGadgetList(1) sein ?

Verwendest du vllt eine veraltete PB-Version ?


In der Hilfe fendest du ein Komplettes Beispiel für das Öffnen eines Fenstern mit einem Button.

Re: Warum funktioniert der Code nicht

Verfasst: 08.04.2010 18:53
von PureBeginner
ja ich benutze pb 3.3

Re: Warum funktioniert der Code nicht

Verfasst: 08.04.2010 19:00
von STARGÅTE
Gut dann musst du folgenden Code nutzen:

Code: Alles auswählen

If OpenWindow(1, 500,200,450,200, #PB_Window_SystemMenu, "Fenster Title")
 CreateGadgetList(WindowID(1))  
 ButtonGadget(1,400,150,100,20,"Button Text")

 Repeat
  
  Event = WaitWindowEvent() 
  Select Event 
   Case #PB_EventGadget
    Select EventGadgetID() 
     Case 1
      Debug "Button Gedrückt"
    EndSelect
  EndSelect
 Until Event = #PB_EventCloseWindow

EndIf

Re: Warum funktioniert der Code nicht

Verfasst: 08.04.2010 19:04
von PureBeginner
Danke!! :allright:
es funktioniert
:allright: :allright:

Re: Warum funktioniert der Code nicht

Verfasst: 08.04.2010 19:08
von STARGÅTE
Bitte erstelle doch noch eine Signatur hier im Forum, mit den Daten:
- PureBasic-Version die du nutzt
- Betriebssystem
- ggf. Grafikkarte

Dann kann dir bei Fragen schneller weitergeholfen werden, und du wirst gleich richtig "weiter geleitet".
Denn da du nur PB 3.3 hast (was ja nciht schlimm ist, hatte ich auch mal) wirst du ein Großteil der Codes hier im Forum nicht nutzen können!

Vielleicht hilft dir auch dieses Thema später mal: * Für 3.3 Nutzer *