Clignoter un TextBox en VB ?
Fermé
dormdaz
Messages postés
306
Date d'inscription
lundi 18 décembre 2006
Statut
Membre
Dernière intervention
31 août 2023
-
27 mai 2010 à 10:43
quidnunc - 23 janv. 2013 à 12:46
quidnunc - 23 janv. 2013 à 12:46
A voir également:
- Clignoter un TextBox en VB ?
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Vb editor - Télécharger - Langages
- Excel faire clignoter une cellule sous condition ✓ - Forum Bureautique
- Tablette samsung clignote en charge - Forum Samsung
3 réponses
cela peut se faire de plusieurs manieres essentiellement par un code sur une base temps plus ou moins respectee selon les parametres
Nabla's
Messages postés
18203
Date d'inscription
mercredi 4 juin 2008
Statut
Contributeur
Dernière intervention
28 avril 2014
3 192
27 mai 2010 à 11:08
27 mai 2010 à 11:08
utilises un timer, et la propriété "couleur" (je n'ai pas le nom exact) de la textbox.
bjr voilà la syntaxe d'un label à l'aide d'un timer, veuillez tester slvp:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Animation.ForeColor = Color.Black Then
Animation.ForeColor = Color.Red
Dim f As New Font("Berlin Sans FB", 50, FontStyle.Bold)
Animation.Font = f
Me.BackColor = Color.Aqua
Label1.Width = Label1.Width + 10
Else
Animation.ForeColor = Color.Black
Dim f As New Font("Berlin Sans FB", 50)
Animation.Font = f
Me.BackColor = Color.Beige
Label1.Width = Label1.Width + 10
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Animation.ForeColor = Color.Black Then
Animation.ForeColor = Color.Red
Dim f As New Font("Berlin Sans FB", 50, FontStyle.Bold)
Animation.Font = f
Me.BackColor = Color.Aqua
Label1.Width = Label1.Width + 10
Else
Animation.ForeColor = Color.Black
Dim f As New Font("Berlin Sans FB", 50)
Animation.Font = f
Me.BackColor = Color.Beige
Label1.Width = Label1.Width + 10
End If
End Sub
