Créér des forms translucides...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 443 fois - Téléchargée 37 fois

Contenu du snippet

Petit code à introduire dans votre Form pour que la fenetre apparaisse translucide...rigolo!
La valeur dans MakeWindowTransparent est un byte qui indique le taux de transparence...

Code vu sur www.vbaccelerator.com

Source / Exemple :


Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE = (-20)
'Requires Windows 2000 or later:
Private Const WS_EX_LAYERED = &H80000

Private Declare Function SetLayeredWindowAttributes Lib "USER32" _
    (ByVal hWnd As Long, ByVal crKey As Long, _
    ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Public Sub MakeWindowTransparent(ByVal hWnd As Long, ByVal alphaAmount As Byte)
Dim lStyle As Long
    lStyle = GetWindowLong(hWnd, GWL_EXSTYLE)
    lStyle = lStyle Or WS_EX_LAYERED
    SetWindowLong hWnd, GWL_EXSTYLE, lStyle
    SetLayeredWindowAttributes hWnd, 0, alphaAmount, LWA_ALPHA
End Sub

Private Sub Form_Load()
Call MakeWindowTransparent(Form1.hWnd, 150)

End Sub

A voir également

Ajouter un commentaire Commentaires
cs_Stephane84 Messages postés 16 Date d'inscription dimanche 19 février 2006 Statut Membre Dernière intervention 12 avril 2017
29 oct. 2006 à 12:57
Oui c'est cool 10/10
Shuya83190 Messages postés 4 Date d'inscription mercredi 20 avril 2005 Statut Membre Dernière intervention 15 juin 2005
19 juin 2005 à 22:03
Super :D

J'ai mit 10/10
Vraiment trop marrant ^^
DedeSurf Messages postés 156 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 23 novembre 2011
14 déc. 2004 à 14:25
a peu être que j'ai trouver desoler :
http://www.vbfrance.com/code.aspx?ID=6847
DedeSurf Messages postés 156 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 23 novembre 2011
14 déc. 2004 à 14:23
Oui sè bien mais pour windows 98 ? commen on fais a ce moment la ?
cs_AbriBus Messages postés 492 Date d'inscription jeudi 28 août 2003 Statut Membre Dernière intervention 25 avril 2007 5
6 oct. 2003 à 13:06
superfabt > c'est effectivement cette valeur qu'il faut modifier, elle doit etre comprise entre 0 et 255
Afficher les 12 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.