l'api AnimateWindow en vb6

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : l'api AnimateWindow en vb6

fils_de_la_lumiere

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.

Publicité

fils_de_la_lumiere

fils_de_la_lumiere

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

prog1001

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 :

Option Explicit
Global Const WS_EX_LAYERED = &H80000
Global Const LWA_COLORKEY = &H1
Global Const LWA_ALPHA = &H2
Global Const GWL_EXSTYLE = (-20)
Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Sub Trans(Stat As String, Fenêtre As Form, Optional ByVal Alpha As Byte = 255)
Select Case UCase(Stat)
Case "ON"
SetWindowLong Fenêtre.hWnd, GWL_EXSTYLE, GetWindowLong(Fenêtre.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes Fenêtre.hWnd, 0, Alpha, LWA_ALPHA
Case "OFF"
SetWindowLong Fenêtre.hWnd, GWL_EXSTYLE, GetWindowLong(Fenêtre.hWnd, GWL_EXSTYLE) - WS_EX_LAYERED
Case "SET"
SetLayeredWindowAttributes Fenêtre.hWnd, 0, Alpha, LWA_ALPHA
End Select
End Sub

et ça marche avec borderstyle=0

j'ai chopé ça sur vbfrance mais je sais plus ou !

fils_de_la_lumiere

merci à toi de m'avoir mis sur la voie

http://www.vbfrance.com/code.aspx?ID=24621

FORUM HardWare.fr

Programmation

VB/VBA/VBS

l'api AnimateWindow en vb6

Sujets relatifs
[RESOLU] - [VB6] Obtenir le nombre de dimensions d'un tableau ?	Problème vb6, lire dans le registre
[VB6] recuperer les infos d'une cellule Excel (ligne/colonne)	[VB6] Aide sur cadrage d'une image
VB6 - Parcourir les menus d'un menu ...	[VB6] Sub Main
[VB6] [WMI] Probleme de connection a un pc distant	VB6 sendkeys et reprise du focus
InstallShield, VB6 et Access97	[vb6] Implémenter une requete Sql
Plus de sujets relatifs à : l'api AnimateWindow en vb6

Page générée en 0.046 secondes