Clignotement

Est il possible de faire clignoter un userform??

milot 

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 :)

 

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.

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 ;-)

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 ;-)