Discussion :

[Lunick90]

Bonjour,
je viens voir demander un peu d'aide. j'espere que je vais pas faire une redondance de post avec le mien.
je ne sais pas trop comment faire ce que je veux faire :
lorsque je clique sur un button, je voudrais que celui ci clignote entre l'orange et le transparent mais aussi faire clignoter sur la meme base un radiobutton (je generaliserai apres pour le faire aux autres). L'arret serait un nouveau clic sur le button.
Mettre de la couleur je sais faire, mais pas le clignotement et encore moins la commande de je fais clignoter j'arrete.

je pense que je me suis mal fais comprendre, donc je vais faire un brouillon de code :

Code :

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

1
2
3
4
5
6
si je clique sur button alors
  faire
    clignotement radiobutton
    clignotement button
  tant que j ai pas reclique sur le bouton
fsi

si quelqu'un a de quoi m'aider, je suis preneur.
j'espere que mes explications seront comprehensibles...

merci par avance

cordialement

Lunick90

[rv26t]

Bonjour,
Avec un Timer

Rajouter sur la feuille un contrôle Timer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Dim bTimer As Boolean = False  ' indique si l'on doit activer ou désactiver le timer
    Dim bCouleur As Boolean = False  ' pour basculer d'une couleur à l'autre
 
    Private Sub btnValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValider.Click
        bTimer = Not bTimer ' activer ou désactiver le timer
        If bTimer Then
            Timer1.Start()
        Else
            Timer1.Stop()
            'réinit
            btnValider.ForeColor = Color.Black
            bCouleur = False
        End If
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        bCouleur = Not bCouleur  ' changer la couleur
        If bCouleur Then btnValider.ForeColor = Color.Orange Else btnValider.ForeColor = Color.Black
    End Sub

A+, Hervé.

[Pol63]

il faut que tu poses un timer ; régler l'interval, 250 par exemple (c'est en ms)

sur l'event bouton1.click :

Code :

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

1
2
3
4
5
6
if timer1.enabled = false then
    timer1.start
  else
    timer1.stop
    bouton1.backcolor = couleur de base ' car le bouton.click peut arriver après un event de couleur2
end if

sur l'event timer1.tick :

Code :

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

1
2
3
4
5
if bouton1.backcolor= couleur de base then
    bouton1.backcolor = couleur2
  else
    bouton1.backcolor = couleur de base
end if

tu peux rajouter les optionsbutton ou autre de la même manière
le timer lève un évènement toutes les x millisecondes, s'il est démarré

[Lunick90]

merci de votre aide. Ca marche.

Cordialement

Lunick9