Créér des forms translucides...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 214 fois - Téléchargée 36 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
-
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
-
Super :D

J'ai mit 10/10
Vraiment trop marrant ^^
DedeSurf
Messages postés
159
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
23 novembre 2011
-
a peu être que j'ai trouver desoler :
http://www.vbfrance.com/code.aspx?ID=6847
DedeSurf
Messages postés
159
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
23 novembre 2011
-
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 -
superfabt > c'est effectivement cette valeur qu'il faut modifier, elle doit etre comprise entre 0 et 255

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.