Hilfe mit Check Box

[galaxyo124463]

Hallo, ich hab eine frage!
Wie mache ich das wenn ich in die Check Box ein Hacken mache das dann ein Timer aktiviert wird.
Also ich mache 1 Timer und schreibe dort meinen Code rein. Der timer heisst dann Timer1!
Dann mache ich eine Check Box nur da weiss ich nicht was da für ein Code rein muss damit der Timer aktiviert wird wenn ich dort ein Häckchen rein mache und wenn ich denn Hacken rausmache das der Timer wieder deaktiviert wird?

Ich hoffe das ihr mir Helfen könnt
Gruss

 

[Philipp9494]

Hi

Das geht einfach so:

Private Sub Check1_Click()
Timer1.enabled = Not Check1.value
End Sub

mfg

Philipp9494

 

[galaxyo124463]

Also wenn ich denn Code in die Check Box einfüge und denn Hacken da rein mache wird der timer aktiviertund bleibt aktiviert und enn ich denn hacken rausmache wir der timer deaktiviert und bleibt deaktiviert?

PS: Ich benutze Visual Basic 6

 

[DrSoong]

Das Problem ist, dass die Checkbox nicht mit True und False sondern mit 0, 1 und 2 (ist der Zwischenzustand) arbeitet. Der Code müsste in dem Fall also so aussehen:

Private Sub Check1_Click()
 If Check1.Value = 1 Then Timer1.Enabled = True Else Timer1.Enabled = False
End Sub

Der Doc!

 

[galaxyo124463]

Danke^^ Ich werde es mal ausprobieren hoffen wa ma das das klappt^^
Wenn ich mit 1 Check Box 5 Timer aktivieren will muss das doch so aussehen oder

If Check1.Value = 1 Then Timer1.Enabled = True Else Timer1.Enabled = False
If Check1.Value = 1 Then Timer2.Enabled = True Else Timer2.Enabled = False
If Check1.Value = 1 Then Timer3.Enabled = True Else Timer3.Enabled = False
If Check1.Value = 1 Then Timer4.Enabled = True Else Timer4.Enabled = False
If Check1.Value = 1 Then Timer5.Enabled = True Else Timer5.Enabled = False

Ist das richtig?

PS: Ich habe es ausprobiert und es ging nicht

 

[Badboyws]

jap das ist richtig aber vollkommen überflüssig. VB6 Bietet die Möglichkeit mit ControlArrays zu arbeiten. Demnach hast du dann ein Timer(0).Enabled bis Timer(4).Enabled. Das ganze nur noch in einer Schleife aktiviert wenn Check1.Value=1 und du sparst dir deinen SpagettiCode.