Discussion :

[Amenos]

Voila je décrit la situation .

Attente : Je voudrait lors d'un clik sur une CheckBox déclencher un Timer et déclencher une fonction qui fait ce déplacer un label .

Je bloque sur le fait de cliquer sur la Checkbox et qu'un timer ce lance pour que ma fonction ( qui contient un "pour" ) s'arrette une foi que l'on reclike sur la Chekbox .

Mon code :

Evenment clik chekbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub cbActiver_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbActiver.CheckedChanged
 
        If Me.cbActiver.Checked Then
            Me.tmrTimer1.Enabled = True
            Call Timer()
        Else
            Me.tmrTimer1.Enabled = False
 
        End If
    End Sub

Ma fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Timer()
        Dim MaX As Integer
        Dim MaX1 As Integer
        MaX1 = lblclasse.Left
        Do
            lblclasse.Left = lblclasse.Left + 1
            If lblclasse.Left >= +270 Then
                lblclasse.Left = MaX
        End If
        Loop While Me.cbActiver.Checked = False
    End Sub

Je n'arrive pas a comprendre comment faire pour que l'orsque je clik pour la Deuxieme fois sur la chekbox cela arrette ma boucle pour !!!