ButtonID

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

	Thommes Betreff: ButtonID	Do, Feb 09, 2006 0:20 Antworten mit Zitat
Hi und wieder ne Frage (die alte ist ja noch nicht beantwortet) ) Wie bekomme ich eine ID eines Buttons, der angeklickt wure heraus. Mit dem Befehl Select EventID() komme ich nicht weiter...

Thommes

Betreff: ButtonID

Do, Feb 09, 2006 0:20
Antworten mit Zitat

Hi und wieder ne Frage (die alte ist ja noch nicht beantwortet) Wink

)

Wie bekomme ich eine ID eines Buttons, der angeklickt wure heraus.
Mit dem Befehl
Select EventID()
komme ich nicht weiter...

	rema	Do, Feb 09, 2006 2:39 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Local MyWindow:TGadget=CreateWindow("Two Buttons Example", 200,200,320,240) Local Button1:TGadget=CreateButton("One",140,40,80,40, MyWindow) Local Button2:TGadget=CreateButton("Two",140,100,80,40, MyWindow) Repeat WaitEvent() Select EventID() Case EVENT_WINDOWCLOSE End Case EVENT_GADGETACTION Select EventSource() Case Button1 SetGadgetText(Button1,"One clicked") Case Button2 SetGadgetText(Button2,"Two clicked") End Select End Select Forever Mehr Beispiele findest du hier: http://www.blitzbasic.com/Comm...opic=54579

rema

Do, Feb 09, 2006 2:39
Antworten mit Zitat

Code: [AUSKLAPPEN]

Local MyWindow:TGadget=CreateWindow("Two Buttons Example", 200,200,320,240)
Local Button1:TGadget=CreateButton("One",140,40,80,40, MyWindow)
Local Button2:TGadget=CreateButton("Two",140,100,80,40, MyWindow)

Repeat
WaitEvent()
Select EventID()
Case EVENT_WINDOWCLOSE
End
Case EVENT_GADGETACTION
Select EventSource()
Case Button1
SetGadgetText(Button1,"One clicked")
Case Button2
SetGadgetText(Button2,"Two clicked")
End Select
End Select
Forever

Mehr Beispiele findest du hier: http://www.blitzbasic.com/Comm...opic=54579

	Thommes	Do, Feb 09, 2006 8:31 Antworten mit Zitat
rema hat Folgendes geschrieben: Code: [AUSKLAPPEN] [EINKLAPPEN] Local MyWindow:TGadget=CreateWindow("Two Buttons Example", 200,200,320,240) Local Button1:TGadget=CreateButton("One",140,40,80,40, MyWindow) Local Button2:TGadget=CreateButton("Two",140,100,80,40, MyWindow) Repeat WaitEvent() Select EventID() Case EVENT_WINDOWCLOSE End Case EVENT_GADGETACTION Select EventSource() Case Button1 SetGadgetText(Button1,"One clicked") Case Button2 SetGadgetText(Button2,"Two clicked") End Select End Select Forever Mehr Beispiele findest du hier: http://www.blitzbasic.com/Comm...opic=54579 ... Das hat mir schon mal echt weitergeholfen. Ein kleines Problem bleibt jedoch: Wenn ich gadgets in einer Schleiffe erstelle: Local i For i = 0 To 7 einsbutton[i]=CreateButton("",0+i*65+5,0,65,25,gr2,BUTTON_PUSH) next Ich muss dann jeden einzelnen Button überprüfen und wer das Progrämmchen Kniffelchen auf dem PC schon mal gesehen hat, kann sich vorstellen, das der Code daduch etwas lang wird . (http://www.t.carstens.de.vu/kniffelchen/) Aber so wie oben angegeben, kann ich schon mal weiterarbeiten. Also vielen Dank für die schnelle Antwort!!

Thommes

Do, Feb 09, 2006 8:31
Antworten mit Zitat

rema hat Folgendes geschrieben:

Code: [AUSKLAPPEN]

Mehr Beispiele findest du hier: http://www.blitzbasic.com/Comm...opic=54579

... Das hat mir schon mal echt weitergeholfen.
Ein kleines Problem bleibt jedoch: Wenn ich gadgets in einer Schleiffe erstelle:
Local i
For i = 0 To 7
einsbutton[i]=CreateButton("",0+i*65+5,0,65,25,gr2,BUTTON_PUSH)
next

Ich muss dann jeden einzelnen Button überprüfen und wer das Progrämmchen Kniffelchen auf dem PC schon mal gesehen hat, kann sich vorstellen, das der Code daduch etwas lang wird Wink

.
(http://www.t.carstens.de.vu/kniffelchen/)
Aber so wie oben angegeben, kann ich schon mal weiterarbeiten.
Also vielen Dank für die schnelle Antwort!!

	Suco-X Betreff: ....	Do, Feb 09, 2006 15:22 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] case EVENT_GADGETACTION Local i For i = 0 To 7 if EventSource() = einsbutton[i] print "Hurrraa" endif next Mfg Suco
Intel Core 2 Quad Q8300, 4× 2500 MHz, 4096 MB DDR2-Ram, GeForce 9600GT 512 MB

Suco-X

Betreff: ....

Do, Feb 09, 2006 15:22
Antworten mit Zitat

Code: [AUSKLAPPEN]

case EVENT_GADGETACTION

Local i
For i = 0 To 7
if EventSource() = einsbutton[i]
print "Hurrraa"
endif
next

Mfg Suco

Intel Core 2 Quad Q8300, 4× 2500 MHz, 4096 MB DDR2-Ram, GeForce 9600GT 512 MB

	Thommes Betreff: Re: ....	Fr, Feb 10, 2006 11:35 Antworten mit Zitat
Suco-X hat Folgendes geschrieben: Code: [AUSKLAPPEN] [EINKLAPPEN] case EVENT_GADGETACTION Local i For i = 0 To 7 if EventSource() = einsbutton[i] print "Hurrraa" endif next Mfg Suco Hey.... Man sieht manchmal den Wald vor lauter Bäume nicht. Klasse Forum, hier werd Dir gehelft . Thanx, das erleichtert die Sache ungemein!!