Hallo, ich steh etwas aufm Schlauch, möchte folgendes Realisieren, hab aber keine Idee wie.
Ausgang, 8 Buttons, 8 Checkboxen, 1Timer, 1 Start Button
1. wenn Start, alle 8 Buttons nacheinander per PerformClick() -> klicken, das ist ja kein Problem, funktioniert !
2. Problem a) ich möchte das mindestens IMMER 2 Checkboxen True sind, keine Idee wie...
3. Problem b) es sollen immer nur die Buttons per PerformClick() -> geklickt werden, deren Checkbox auch True ist, keine Idee wie...
Beispiel,
Checkbox 1 bis 4 True --> Click 1->2->3->4->1->2->3->4 usw
Checkbox 5 und 8 True--->Click 5->8->5->8 usw
Danke für die Hilfe, hier der Code
Grüße
Ausgang, 8 Buttons, 8 Checkboxen, 1Timer, 1 Start Button
1. wenn Start, alle 8 Buttons nacheinander per PerformClick() -> klicken, das ist ja kein Problem, funktioniert !
2. Problem a) ich möchte das mindestens IMMER 2 Checkboxen True sind, keine Idee wie...
3. Problem b) es sollen immer nur die Buttons per PerformClick() -> geklickt werden, deren Checkbox auch True ist, keine Idee wie...
Beispiel,
Checkbox 1 bis 4 True --> Click 1->2->3->4->1->2->3->4 usw
Checkbox 5 und 8 True--->Click 5->8->5->8 usw
Danke für die Hilfe, hier der Code
VB.NET-Quellcode
- Public Class Form1
- Private _currentColorButton As ColorButton
- Private Enum ColorButton As Integer
- Button1 = 1
- Button2 = 2
- Button3 = 3
- Button4 = 4
- Button5 = 5
- Button6 = 6
- Button7 = 7
- Button8 = 8
- End Enum
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
- End Sub
- 'Start Button, jetzt gehts los
- Private Sub Button_Start_Click(sender As Object, e As EventArgs) Handles Button_Start.Click
- Timer1.Interval = 1000 '1sekunde
- Button1.PerformClick() '1.Button klicken
- Timer1.Start() 'Timer starten
- End Sub
- 'Timer, wenn Tick, nächsten Button klicken wenn entsprechende Checkbox aktiv/true ist
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- 'hier schauen welcher Button war zuletzt geklickt, also nächsten Button klicken WENN die entsprechende Checkbox true ist
- Select CurrentColorButton
- Case ColorButton.Button1
- Button2.PerformClick()
- Case ColorButton.Button2
- Button3.PerformClick()
- Case ColorButton.Button3
- Button4.PerformClick()
- Case ColorButton.Button4
- Button5.PerformClick()
- Case ColorButton.Button5
- Button6.PerformClick()
- Case ColorButton.Button6
- Button7.PerformClick()
- Case ColorButton.Button7
- Button8.PerformClick()
- Case ColorButton.Button8
- Button1.PerformClick()
- End Select
- End Sub
- 'die 8 Button
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- CurrentColorButton = ColorButton.Button1 'Setzen, welcher Button wurde geklickt
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- CurrentColorButton = ColorButton.Button2 'Setzen, welcher Button wurde geklickt
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- CurrentColorButton = ColorButton.Button3 'Setzen, welcher Button wurde geklickt
- End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- CurrentColorButton = ColorButton.Button4 'Setzen, welcher Button wurde geklickt
- End Sub
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
- CurrentColorButton = ColorButton.Button5 'Setzen, welcher Button wurde geklickt
- End Sub
- Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
- CurrentColorButton = ColorButton.Button6 'Setzen, welcher Button wurde geklickt
- End Sub
- Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
- CurrentColorButton = ColorButton.Button7 'Setzen, welcher Button wurde geklickt
- End Sub
- Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
- CurrentColorButton = ColorButton.Button8 'Setzen, welcher Button wurde geklickt
- End Sub
- 'Checkboxen
- Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
- End Sub
- Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
- End Sub
- Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
- End Sub
- Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
- End Sub
- Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.CheckedChanged
- End Sub
- Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged
- End Sub
- Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged
- End Sub
- Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox8.CheckedChanged
- End Sub
- 'Rückgabe welcher Button wurde geklickt
- Private Property CurrentColorButton As ColorButton
- Get
- Return _currentColorButton
- End Get
- Set(ByVal value As ColorButton)
- _currentColorButton = value
- Me.Text = value.ToString()
- End Set
- End Property
- End Class
Grüße