N°4 - [VB.NET] - Désactivé une CheckBox ou autre au boût de X secondes

[Westiix]

Bonjours à tous et à toutes,

On ce retrouve aujourd'hui pour vous proposez un petit tutoriel sur "comment désactivé une CheckBox ou autre au bout de X secondes ?"

Petit exemple:

- CheckBox1 = Macheckbox
- Label2 = Temps
- Timer1 = Messecondes

Si Macheckbox est coché ALORS

Messecondes démarre
Temps va compté les secondes écoulés.

- - - - - - - - - - - - - - - - - -

Première chose à faire :
- Créer vôtre projet
- Mettre touts les éléments requis sur la form

Screen :

Ensuite une fois que tout est placé,ajouté un Timer et mettez dans "Intervalle" 1000 (sa signifie 1 seconde) puis double cliqué dessus et ajouté ce code :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		Label2.Text = Label2.Text - 1 'Prend le chiffre/nombre de label1 et soustrait 1 toutes les 1000 Millisecondes (1 seconde) jusqu'à 0
 
		If Label2.Text = "0" Then 'Quand Label2 sera à 0 (0 secondes) ALORS
			CheckBox1.Checked = False
			Timer1.Stop() 'Arrête le TIMER1
			Label2.Text = "OFF" 'Met Label1 sur "OFF"
		End If
	End Sub

Ensuite on double clique sur la CheckBox1 et on ajoute ce code là :

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
		If CheckBox1.Checked = True Then 'Si CheckBox1 est coché ALORS
 
			' Vôtre CODE
 
			Timer1.Start() 'Demarre le Timer1 / La minuterie
			Label2.ForeColor = Color.Green
			Label2.Text = "15" 'Label1 se met à 15 seconde, prêt à être écoulé pendant 15 secondes
		End If 'Fin de l'instruction
 
		If CheckBox1.Checked = False Then 'Si CheckBox1 est dé-coché ALORS
 
			' Vôtre CODE
			Timer1.Stop() 'Arrête la minuterie / le timer1
			Label2.ForeColor = Color.Red
			Label2.Text = "OFF" 'Label2 se met sur "OFF"
		End If 'Fin de l'instruction
	End Sub

 

[velkA]

Merci pour le tuto Je cherche un codeur VB.net pour mon forum. Sa t'interresse ?

 

[SliimWoOrK]

Merci pour le tuto, tu mérite un pouce vert