Und schon wieder eine N00b frage :(( bzw. Proplem

[Tsuki-Namida]

Ich habe eine kleine "Clase" abfrage gemacht. wenn iches aber testen möchte erscheit nicht mein fenster sondern es kommt ein fenster von PB


Was habe ich falsch gemacht? hier noch mal der Text:

Code: Alles auswählen

; PureBasic Visual Designer v3.90 build 1360


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Frame3D_0
  #String_0
  #String_1
  #String_2
  #Button_0
  #Button_1
  #Combo_0
  #Text_1
  #Text_3
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 244, 47, 160, 171,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
    If CreateGadgetList(WindowID())
      Frame3DGadget(#Frame3D_0, 10, 0, 140, 160, "")
      StringGadget(#String_0, 30, 100, 30, 20, "", #PB_String_Numeric)
      SendMessage_(GadgetID(#String_0), #EM_LIMITTEXT, 2, 0)
      StringGadget(#String_1, 70, 100, 30, 20, "", #PB_String_Numeric)
      SendMessage_(GadgetID(#String_1), #EM_LIMITTEXT, 2, 0)
      StringGadget(#String_2, 110, 100, 30, 20, "", #PB_String_Numeric)
      SendMessage_(GadgetID(#String_2), #EM_LIMITTEXT, 2, 0)
      ButtonGadget(#Button_0, 30, 130, 50, 20, "Start")
      ButtonGadget(#Button_1, 90, 130, 50, 20, "Abbruch")
      ComboBoxGadget(#Combo_0, 40, 70, 90, 20, #PB_ComboBox_Editable)
      TextGadget(#Text_1, 50, 20, 80, 20, "Timer Einstellung")
      TextGadget(#Text_3, 60, 105, 5, 5, "")
      
    EndIf
  EndIf
EndProcedure

;-Programm Start


Repeat
  
  Event = WaitWindowEvent()
  
  
        Select EventGadgetID()
          Case (#Button_0)
            MessageRequester("Überschrift","Ok Button",#PB_MessageRequester_Ok)
          Case (#Button_1)
            MessageRequester("Überschrift","Abbruch Button",#PB_MessageRequester_Ok)
        EndSelect

Until Event = #PB_EventCloseWindow

End

[stbi]

Du solltest die Procedure Open_Window_0() nicht nur dekorativ im Code drinhaben sondern auch aufrufen ....

[Tsuki-Namida]

Könntest Du mir sagen wie ich das mache? Denn wie der Titel schon saget bin ich ein N00b

[Kiffi]

> Könntest Du mir sagen wie ich das mache?

[c]Open_Window_0()[/c] vor die Repeat-Zeile schreiben

> Denn wie der Titel schon saget bin ich ein N00b

waren wir alle mal.

Grüße ... Kiffi

[Lupo]

So gehts:

Code: Alles auswählen

; PureBasic Visual Designer v3.90 build 1360 


;- Window Constants 
; 
Enumeration 
  #Window_0 
EndEnumeration 

;- Gadget Constants 
; 
Enumeration 
  #Frame3D_0 
  #String_0 
  #String_1 
  #String_2 
  #Button_0 
  #Button_1 
  #Combo_0 
  #Text_1 
  #Text_3 
EndEnumeration 


Procedure Open_Window_0() 
  If OpenWindow(#Window_0, 244, 47, 160, 171,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )") 
    If CreateGadgetList(WindowID()) 
      Frame3DGadget(#Frame3D_0, 10, 0, 140, 160, "") 
      StringGadget(#String_0, 30, 100, 30, 20, "", #PB_String_Numeric) 
      SendMessage_(GadgetID(#String_0), #EM_LIMITTEXT, 2, 0) 
      StringGadget(#String_1, 70, 100, 30, 20, "", #PB_String_Numeric) 
      SendMessage_(GadgetID(#String_1), #EM_LIMITTEXT, 2, 0) 
      StringGadget(#String_2, 110, 100, 30, 20, "", #PB_String_Numeric) 
      SendMessage_(GadgetID(#String_2), #EM_LIMITTEXT, 2, 0) 
      ButtonGadget(#Button_0, 30, 130, 50, 20, "Start") 
      ButtonGadget(#Button_1, 90, 130, 50, 20, "Abbruch") 
      ComboBoxGadget(#Combo_0, 40, 70, 90, 20, #PB_ComboBox_Editable) 
      TextGadget(#Text_1, 50, 20, 80, 20, "Timer Einstellung") 
      TextGadget(#Text_3, 60, 105, 5, 5, "") 
    EndIf 
  Else
    End  ; bricht ab wenn sich das Fenster nicht öffnen läßt 
  EndIf 
EndProcedure 

;-Programm Start 


Open_window_0() ; ruft die procedure auf und öffnet das Fenster


Repeat 
  
  Event = WaitWindowEvent() 
  
  Select event
    Case #PB_EventGadget ; verzweigung bei Gadgetevents
       
       Select EventGadgetID() 
         Case (#Button_0) 
           MessageRequester("Überschrift","Ok Button",#PB_MessageRequester_Ok) 
         Case (#Button_1) 
           MessageRequester("Überschrift","Abbruch Button",#PB_MessageRequester_Ok) 
       EndSelect 

   EndSelect

Until Event = #PB_EventCloseWindow 

End

Ausserdem musst du noch event auf #PB_EventGadget prüfen und dann
die EventGadgetID() Abfrage machen.

Viel Spass

LUPO

[Tsuki-Namida]

Habt vielen dank jetzt gehts

[freedimension]

Hi, für einen Noob ist dieses Posting schon nicht schlecht, so mit Code-Tags und allem. Das Einzige was mich noch etwas stört ist der Titel, da kannst du nächstes Mal ruhig etwas aussagekräftigeres wählen - wie Kiffi schon gesagt hat, Noob waren wir alle mal und Probleme und Fragen hat so gut wie jeder hier

So, jetzt will ich dir aber nicht den Aufenthalt hier vermiesen - sollte nur ein netter Hinweis sein - und werde mich mal wieder meinen Problemen zuwenden (Schei<piep> Halsweh)

[AND51]

wie der Titel schon saget bin ich ein N00b

Es ist noch kein Noob vom Himmel gefallen!