Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Hervé
Salut Sébastien,
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(Milliseconde As Long) Dim Arret As Long Arret = GetTickCount() + Milliseconde Do While GetTickCount() < Arret DoEvents Loop End Sub
Private Sub CommandButton1_Click() Dim I As Integer Do While I < 10 'ou Label1.ForeColor = &HFF& TextBox1.ForeColor = &HFF& Minuterie 500 'ou Label1.ForeColor = &H80000008 TextBox1.ForeColor = &H80000008 Minuterie 500 I = I + 1 Loop End Sub
Hervé.
"sebastien" a écrit dans le message news: 0b8401c39499$e4931f20$ Bonjour,
je voudrais savoir s'il est possible de faire clignoter un texte dans une userform, je n'arrive pas à trouver les timers ;o) Merci beaucoup !
sebastien
Salut Sébastien,
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret
DoEvents
Loop
End Sub
Private Sub CommandButton1_Click()
Dim I As Integer
Do While I < 10
'ou Label1.ForeColor = &HFF&
TextBox1.ForeColor = &HFF&
Minuterie 500
'ou Label1.ForeColor = &H80000008
TextBox1.ForeColor = &H80000008
Minuterie 500
I = I + 1
Loop
End Sub
Hervé.
"sebastien" <sebastien.tranchant@thales-avionics.com> a écrit dans le
message news: 0b8401c39499$e4931f20$a101280a@phx.gbl...
Bonjour,
je voudrais savoir s'il est possible de faire clignoter un
texte dans une userform, je n'arrive pas à trouver les
timers ;o) Merci beaucoup !
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(Milliseconde As Long) Dim Arret As Long Arret = GetTickCount() + Milliseconde Do While GetTickCount() < Arret DoEvents Loop End Sub
Private Sub CommandButton1_Click() Dim I As Integer Do While I < 10 'ou Label1.ForeColor = &HFF& TextBox1.ForeColor = &HFF& Minuterie 500 'ou Label1.ForeColor = &H80000008 TextBox1.ForeColor = &H80000008 Minuterie 500 I = I + 1 Loop End Sub
Hervé.
"sebastien" a écrit dans le message news: 0b8401c39499$e4931f20$ Bonjour,
je voudrais savoir s'il est possible de faire clignoter un texte dans une userform, je n'arrive pas à trouver les timers ;o) Merci beaucoup !
