Label
the King
-
15 nov. 2014 à 13:18
Zermelo Messages postés 378 Date d'inscription samedi 22 septembre 2012 Statut Membre Dernière intervention 13 août 2017 - 12 mars 2015 à 17:13
Zermelo Messages postés 378 Date d'inscription samedi 22 septembre 2012 Statut Membre Dernière intervention 13 août 2017 - 12 mars 2015 à 17:13
3 réponses
acive
Messages postés
122
Date d'inscription
vendredi 29 août 2014
Statut
Membre
Dernière intervention
14 décembre 2016
Modifié par acive le 15/11/2014 à 13:39
Modifié par acive le 15/11/2014 à 13:39
Bonjour,
Deux idées différentes me viennent à l'esprit:
1) Créer un gif animé et l'attribuer à 'Label.Image'
2) Ajouter un 'Timer' qui va jouer avec le 'Label.Visible'
A +
Deux idées différentes me viennent à l'esprit:
1) Créer un gif animé et l'attribuer à 'Label.Image'
2) Ajouter un 'Timer' qui va jouer avec le 'Label.Visible'
A +
IBM.MVP
Messages postés
12
Date d'inscription
vendredi 1 août 2014
Statut
Membre
Dernière intervention
12 mars 2015
12 mars 2015 à 07:00
12 mars 2015 à 07:00
Bonjours.
commencer par inserer un label sur votre formulaire.
ensuite prevoyer un timer et dans ce timer changer la couleur du label en fonction de tours du timer
exemple
commencer par inserer un label sur votre formulaire.
ensuite prevoyer un timer et dans ce timer changer la couleur du label en fonction de tours du timer
exemple
sub tim() handles tim1.tick
static tour = 1
select case (tour)
case 1
'code pour mettre une couleur
case 2
'de même que le premier
case 3
'vou avez deja compris
case else
'là on remet le tour à 0 et on s'assur de ne ^pas faire changer jusqu'à toutes les couleurs du monde
end select
tour +=1
end sub
Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017
14
12 mars 2015 à 17:13
12 mars 2015 à 17:13
Bonsoir the king
Ce programme écrit en vb 2010 pourrait peut-être convenir.
Cordialement.
Ce programme écrit en vb 2010 pourrait peut-être convenir.
Public Class Accueil
Private Clr1 As Color = Color.FromArgb(255, 255, 0, 0)
Private Clr2 As Color = Color.FromArgb(255, 0, 255, 0)
Private Clr0 As New Color
Private Sub Accueil_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Clr0 = Lab.BackColor
End Sub
Private Sub bM_Click(sender As Object, e As EventArgs) Handles bM.Click
Lab.BackColor = Clr1
Tps.Start()
End Sub
Private Sub bA_Click(sender As Object, e As System.EventArgs) Handles bA.Click
Lab.BackColor = Clr0
Tps.Stop()
End Sub
Private Sub Tps_Tick(sender As Object, e As EventArgs) Handles Tps.Tick
With Lab
If .BackColor = Clr1 Then
.BackColor = Clr2
ElseIf .BackColor = Clr2 Then
.BackColor = Clr1
End If
End With
End Sub
End Class
Cordialement.
