CRÉER UNE FORM TRANSPARENTE
pouda
Messages postés
264
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
27 octobre 2014
-
13 avril 2004 à 13:50
gandalfkhorne Messages postés 70 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 1 octobre 2004 - 25 avril 2004 à 22:42
gandalfkhorne Messages postés 70 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 1 octobre 2004 - 25 avril 2004 à 22:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/21899-creer-une-form-transparente
https://codes-sources.commentcamarche.net/source/21899-creer-une-form-transparente
25 avril 2004 à 22:42
18 avril 2004 à 09:02
Voici comment on créé une vraie form transparente :
'//A mettre ds le code d'une form
Option Explicit
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
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 Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Sub FixTransparence(lTrans As Long)
Dim lRet As Long
lRet = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
lRet = lRet Or WS_EX_LAYERED
Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, lRet)
Call SetLayeredWindowAttributes(Me.hWnd, 0, lTrans, LWA_ALPHA)
End Sub
Private Sub Command1_Click()
Call FixTransparence(128)
End Sub
Nicolas.
14 avril 2004 à 08:04
13 avril 2004 à 21:31
j'ai mis un petit 10 pour remedier a cela (ca a juste fait augmenter la moyenne de 1 point mais bon...)
13 avril 2004 à 13:50
Bonne continuation