CRÉER UNE FORM TRANSPARENTE

Signaler
Messages postés
265
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
27 octobre 2014
-
Messages postés
70
Date d'inscription
dimanche 11 janvier 2004
Statut
Membre
Dernière intervention
1 octobre 2004
-
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

Messages postés
70
Date d'inscription
dimanche 11 janvier 2004
Statut
Membre
Dernière intervention
1 octobre 2004

T'est vraiment doué Ng mais si t'as un Os d'une version antérieure à celles de technologie NT tu fais comment?
Messages postés
31
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
28 juin 2005

Salut,

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.
Messages postés
1114
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007

On ne voit plus les controles, alors quel est l'interet ? De plus, il y a des bugs. Je pense que tu devrai trouver comment regler le % de transparence ;)
Messages postés
49
Date d'inscription
mardi 13 avril 2004
Statut
Membre
Dernière intervention
18 juin 2007

moi je trouve que cette source a une mauvaise note alors que c'est cool de faire des forms transparentes
j'ai mis un petit 10 pour remedier a cela (ca a juste fait augmenter la moyenne de 1 point mais bon...)
Messages postés
265
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
27 octobre 2014

oaui pas mal apr contre comment on regles la nuances de transparences ?merci

Bonne continuation