A voir également:
- Clignoter un TextBox en VB ?
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Casque jbl clignote rouge en charge ✓ - Forum Casque et écouteurs
- Vb runtime - Télécharger - Divers Utilitaires
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
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
