Seite 1 von 1
Programm soll nach Eingabe weiter laufen
Verfasst: 13.03.2006 19:11
von 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
Verfasst: 13.03.2006 19:54
von roherter
Ist das der ganze Code??
Wo sind deine Code-Tags?
Verfasst: 13.03.2006 21:17
von Wisimita
roherter hat geschrieben: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
Verfasst: 13.03.2006 21:38
von 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
Verfasst: 13.03.2006 21:40
von 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!
Verfasst: 13.03.2006 22:27
von 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