l'api AnimateWindow en vb6

l'api AnimateWindow en vb6 - VB/VBA/VBS - Programmation

Marsh Posté le 18-07-2004 à 19:22:02    

Bonjour,
 
Quelqu'un sait t'il comment utiliser l'api AnimateWindow en vb6 sur une form en mode borderstyle=none car ça ne semble pas fonctionner lorsque cette propriété est sur none ou connaissez vous une api qui permet l'ouverture en fondu d'une form comme le permet AnimateWindow.
 
;)

Reply

Marsh Posté le 18-07-2004 à 19:22:02   

Reply

Marsh Posté le 19-07-2004 à 19:12:52    

up

Reply

Marsh Posté le 20-07-2004 à 13:13:48    

Personne n'a la connaissance d'une telle API ou autre élément pouvant me permettre d'avoir cet effet de fondu à l'ouverture?

Reply

Marsh Posté le 20-07-2004 à 15:28:10    

je peut te dire comment rendre ta forme transparente de 0% à 100% si tu veux ! mais un effet de fondu, je vois pas !
 
met ça dans un module et appelle la Sub :
 

Code :
  1. Option Explicit
  3. Global Const WS_EX_LAYERED = &H80000
  4. Global Const LWA_COLORKEY = &H1
  5. Global Const LWA_ALPHA = &H2
  6. Global Const GWL_EXSTYLE = (-20)
  8. Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean
  9. Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  10. Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  12. Public Sub Trans(Stat As String, Fenêtre As Form, Optional ByVal Alpha As Byte = 255)
  13. Select Case UCase(Stat)
  14. Case "ON"
  15.     SetWindowLong Fenêtre.hWnd, GWL_EXSTYLE, GetWindowLong(Fenêtre.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
  16.     SetLayeredWindowAttributes Fenêtre.hWnd, 0, Alpha, LWA_ALPHA
  17. Case "OFF"
  18.     SetWindowLong Fenêtre.hWnd, GWL_EXSTYLE, GetWindowLong(Fenêtre.hWnd, GWL_EXSTYLE) - WS_EX_LAYERED
  19. Case "SET"
  20.     SetLayeredWindowAttributes Fenêtre.hWnd, 0, Alpha, LWA_ALPHA
  21. End Select
  22. End Sub


 
et ça marche avec borderstyle=0
 
j'ai chopé ça sur vbfrance mais je sais plus ou !

Reply

Marsh Posté le 20-07-2004 à 21:10:07    

merci à toi de m'avoir mis sur la voie ;)
 
http://www.vbfrance.com/code.aspx?ID=24621

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed