FlashWindow

[Résolu]
Signaler
Messages postés
42
Date d'inscription
mercredi 14 décembre 2005
Statut
Membre
Dernière intervention
28 novembre 2006
-
Messages postés
42
Date d'inscription
mercredi 14 décembre 2005
Statut
Membre
Dernière intervention
28 novembre 2006
-
Bonjour
j'utilise vb.net et je veux creer une fenetre qui clignote ( comme msn). j'ai trouvé sur ce site une source mais en vb6 et ça me donne une erreur au niveau de "HWND"  :
Private Declare Function FlashWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal bInvert As Long) As Long   Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Dim Bcl As Integer, Val As Long 
For Bcl = 1 To 10  ' Boucle determinant le nombre de flash de la fenetre
    Val = FlashWindow(Form1.hwnd, 1)  
    Sleep 500 
    DoEvents   
Next         
Val = FlashWindow(Form1.hwnd, 0) 

End Sub
merci de votre aide.
A voir également:

3 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Un code, comme le tiens comporte de nombreuses erreurs :



Private Declare Function FlashWindow Lib "user32.dll" (ByVal hwnd As IntPtr, _
    ByVal bInvert As Integer) As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click
  For Bcl As Integer = 1 To 10  ' Boucle determinant le nombre de flash de la fenetre
    Call FlashWindow(MyBase.Handle, 1)
    System.Threading.Thread.Sleep(500)
  Next Bcl
  Call FlashWindow(MyBase.Handle, 0)
End Sub,

----

(Coloration syntaxique automatique par Kenji)





__________________

Kenji
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Salut,

En dotnet les types ont cha,gées, il faut passer les long en integer.





__________________

Kenji
Messages postés
42
Date d'inscription
mercredi 14 décembre 2005
Statut
Membre
Dernière intervention
28 novembre 2006

Merci beaucoup beaucoup  Charles.
merci .