PureBoard

Verfasst: **18.11.2005 11:57**

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

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

Verfasst: **18.11.2005 12:07**

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

Verfasst: **18.11.2005 12:13**

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

Verfasst: **18.11.2005 12:14**

> 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

Verfasst: **18.11.2005 12:16**

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

Verfasst: **18.11.2005 12:20**

Habt vielen dank

jetzt gehts

Verfasst: **18.11.2005 12:20**

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)

Verfasst: **18.11.2005 14:58**

Magix-Soft <Kain> hat geschrieben:wie der Titel schon saget bin ich ein N00b

Es ist noch kein Noob vom Himmel gefallen!

PureBoard

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

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