Programm soll nach Eingabe weiter laufen

[Wisimita]

TextGadget(1, 10, 280,140,20, "Auswahl!",#PB_Text_Border )
ComboBoxGadget(2,10,300,140,20)
For i=1 To 24 : AddGadgetItem(2,-1,Str(i)) : Next
TextGadget(5,310,280,140,20,"Eingabe",#PB_Text_Border )
StringGadget(6,310,300,140,20," ")


ButtonGadget(7,110,325,240,30,"P r o g r a m m s t a r t e n ! ! !",#PB_EventType_LeftClick)


Repeat:Until #PB_EventType_LeftClick

Hallo,

der obige Programmausschnitt soll nach Eingabe der Daten weiter den Code abarbeiten.
Da das nicht wie oben funktioniert, muß da etwas falsch sein.
Oder gibt es eine bessere Lösung, nach den Eingaben ein Programm weiter laufen zu lassen, als mit einem ButtoGadget?
Danke für Eure Hilfe!

Viele Grüße
Wisimita

[roherter]

Ist das der ganze Code??

Wo sind deine Code-Tags?

[Wisimita]

Ist das der ganze Code??

Wo sind deine Code-Tags?

Hallo roherter,

nein - natürlich nicht. Das ist nur ein Teil des Codes.
Ich habe ein wenig Erfahrung mit VBNET.
Da war das ganz einfach! Durch Anklicken des Button wurde das Click-Ereignis ausgelöst und weiterer Code abgearbeitet.
Im obigen Teilcode habe ich die Gelegenheit, in einer Combobox die gewünschte Zahl anzuklicken und im anderen einen Wert einzugeben.
Klicke ich dann aufs ButtonGadget passiert mit meinem Code allerdings nichts. Es sollen dann die folgenden Codezeilen abgearbeitet werden.
Der Fehler wird ja höchstwahrscheinlich in den Zeilen oder der Anordnung der Zeilen nach dem ButtonGadget liegen.
An einer evtl. besseren Lösung als mit einem ButtonGadget wäre ich natürlich auch interessiert.
Danke vorab für Deine Hilfe!

Gruß
Wisimita

[ts-soft]

Code: Alles auswählen

TextGadget(1, 10, 280,140,20, "Auswahl!",#PB_Text_Border )
ComboBoxGadget(2,10,300,140,20)
For i=1 To 24 : AddGadgetItem(2,-1,Str(i)) : Next
TextGadget(5,310,280,140,20,"Eingabe",#PB_Text_Border )
StringGadget(6,310,300,140,20," ")


ButtonGadget(7,110,325,240,30,"P r o g r a m m s t a r t e n ! ! !")


Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break ; Programmende
    Case #PB_EventGadget ; Gadget wurde gedrückt
      Select EventGadgetID() ; welches
        Case 7 ; Hossa, der Button wurde geklickt
      EndSelect
  EndSelect
ForEver

Die Fenstererstellung selber fehlt auch hier noch

[roherter]

Edit:Ts-Soft war schneller.

Code: Alles auswählen

Repeat
 Event = WaitWindowEvent() 

  WindowID = EventWindowID() 
  
  GadgetID = EventGadgetID() 
  
  EventType = EventType() 

 If Event = #PB_EventGadget
    
     If GadgetID = 7
;-Hier der code der ausgeführt werden soll

     endif

 endif


Until Event = #PB_Event_CloseWindow

End

Versuchs mal damit.
Ab und zu die Pb-Hilfe benutzen schadet nicht!

[Wisimita]

Hallo TS-Soft und roherter,

danke für Eure Hilfe!
Es funktioniert.
Ich habe auch in die Hilfe geschaut! Speziell dazu gibt es haufenweise Hilfe.
Irgendetwas habe ich aber immer falsch gemacht, so dass ich nicht zu Potte kam.
Nochmals danke schön!

Gruß
Wisimita