Clignotement
cs_milot
Messages postés
3
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
28 septembre 2006
-
28 sept. 2006 à 10:25
diablamanshadow Messages postés 419 Date d'inscription lundi 30 août 2004 Statut Membre Dernière intervention 28 janvier 2008 - 28 sept. 2006 à 13:43
diablamanshadow Messages postés 419 Date d'inscription lundi 30 août 2004 Statut Membre Dernière intervention 28 janvier 2008 - 28 sept. 2006 à 13:43
4 réponses
cs_vpoyo
Messages postés
363
Date d'inscription
vendredi 14 février 2003
Statut
Membre
Dernière intervention
20 avril 2010
6
28 sept. 2006 à 11:17
28 sept. 2006 à 11:17
tout est possible ^^
si j'avais à faire ca, je dessinerais moi même mon userform via la méthode paint, et régulièrement je redemande un "repaint" en alternant la couleur utilisée.
en espérant que ca réponde à ta question :)
si j'avais à faire ca, je dessinerais moi même mon userform via la méthode paint, et régulièrement je redemande un "repaint" en alternant la couleur utilisée.
en espérant que ca réponde à ta question :)
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
28 sept. 2006 à 11:41
28 sept. 2006 à 11:41
Salut,
L'API FlashWindow fait çà très bien en quelques lignes.
Tapes FlashWindow dans l'outil de recherche du site.
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
L'API FlashWindow fait çà très bien en quelques lignes.
Tapes FlashWindow dans l'outil de recherche du site.
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
diablamanshadow
Messages postés
419
Date d'inscription
lundi 30 août 2004
Statut
Membre
Dernière intervention
28 janvier 2008
28 sept. 2006 à 13:39
28 sept. 2006 à 13:39
voici un ptit code ^^
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Const Invert As Long = 1
Private Sub Timer1_Timer()
'intervalle conseillé : 1000
Call FlashWindow(Me.hwnd, Invert)
End Sub
voila voila en esperant que ca t'aide ;-)
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Const Invert As Long = 1
Private Sub Timer1_Timer()
'intervalle conseillé : 1000
Call FlashWindow(Me.hwnd, Invert)
End Sub
voila voila en esperant que ca t'aide ;-)
diablamanshadow
Messages postés
419
Date d'inscription
lundi 30 août 2004
Statut
Membre
Dernière intervention
28 janvier 2008
28 sept. 2006 à 13:43
28 sept. 2006 à 13:43
vola j'ai fait un ptit bout de code en plus fo juste copier coller pour que tu test ;-)
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Const Invert As Long = 1
Private Sub CmdGo_Click()
If CmdGo.Caption = "Commence" Then
CmdGo.Caption = "Arrete"
Timer1.Interval = 500
ElseIf CmdGo.Caption = "Arrete" Then
CmdGo.Caption = "Commence"
Timer1.Interval = 0
End If
End Sub
Private Sub Timer1_Timer()
'intervalle conseillé : 1000 mais j'ai mis a 500 je prefere ^^
Call FlashWindow(Me.hwnd, Invert)
End Sub
voila voila ;-)
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Const Invert As Long = 1
Private Sub CmdGo_Click()
If CmdGo.Caption = "Commence" Then
CmdGo.Caption = "Arrete"
Timer1.Interval = 500
ElseIf CmdGo.Caption = "Arrete" Then
CmdGo.Caption = "Commence"
Timer1.Interval = 0
End If
End Sub
Private Sub Timer1_Timer()
'intervalle conseillé : 1000 mais j'ai mis a 500 je prefere ^^
Call FlashWindow(Me.hwnd, Invert)
End Sub
voila voila ;-)
