Discussion :

[peacee]

bon soir


J'ai un problème dans le RadioButton dans VB

Je ne sais pas comment faire par exemple: je fais 12 radiobutton et je veux que le signe se déplace d'un radiobutton a l'autre après une seconde automatiquement

J'espère que vous donner la solution et Merci

[Invité]

Et en français ça donne quoi.

Désolé mais je n'ai pas compris ton probleme.

[tomlev]

10 de RadioButton franchi le cap un par un automatiquement après un certain temps, par exemple une seconde

Cette phrase n'a aucun sens

[peacee]

Cette phrase n'a aucun sens

ok ok
je fais 12 radiobutton et je veux que le signe se déplace d'un radiobutton a l'autre aprés une seconde automatiquement

claire maintenant !!!

[tomlev]

je fais 12 radiobutton et je veux que le signe se déplace d'un radiobutton a l'autre aprés une seconde automatiquement

Le "signe" ? Tu veux dire, le fait que le RadioButton soit coché ?

Dans ce cas tu fais un Timer avec un intervalle d'une seconde, et à chaque fois que l'évènement Tick se produit, tu changes le RadioButton qui est coché. Ce sera plus facile si tu mets les RadioButtons dans un tableau, comme ça tu peux travailler par index :

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
Private radioButtons As RadioButton()
Private currentRadioButton As Integer
 
Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    Redim radioButtons(11)
    radioButtons(0) = radioButton1
    radioButtons(1) = radioButton2
    ' etc ...
 
    currentRadioButton = 0
    Timer1.Start()
End Sub
 
Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        radioButtons(currentRadioButton).Checked = True
        currentRadioButton = (currentRadioButton + 1) Mod radioButtons.Length
End Sub

[peacee]

Le "signe" ? Tu veux dire, le fait que le RadioButton soit coché ?

Dans ce cas tu fais un Timer avec un intervalle d'une seconde, et à chaque fois que l'évènement Tick se produit, tu changes le RadioButton qui est coché. Ce sera plus facile si tu mets les RadioButtons dans un tableau, comme ça tu peux travailler par index :

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
Private radioButtons As RadioButton()
Private currentRadioButton As Integer
 
Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    Redim radioButtons(11)
    radioButtons(0) = radioButton1
    radioButtons(1) = radioButton2
    ' etc ...
 
    currentRadioButton = 0
    Timer1.Start()
End Sub
 
Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        radioButtons(currentRadioButton).Checked = True
        currentRadioButton = (currentRadioButton + 1) Mod radioButtons.Length
End Sub

Merci troooop , tu es vraiment très créatif