controle

Question

comment rendre une feuille portant  arri&#232;re plan (image) transparente, et qu'elle soit visible (avec ses contr&#244;le )

Gobillot · Answer

Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = -20

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

Dim Ret       As Long
Dim Couleur As Long 


Ret = GetWindowLong(Form1.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Form1.hWnd, GWL_EXSTYLE, Ret


' opacity = 128
SetLayeredWindowAttributes Form1.hWnd, 0, 128, LWA_ALPHA

' opacit&#233; ou transparence mais pas les deux
 
' transparence pour Couleur = RGB(Bleu,Vert,Bleu)
SetLayeredWindowAttributes Form1.hWnd, Couleur, 0, LWA_COLORKEY

Daniel

cs_Habich · Answer

Merci Daniel, c'est &#231;a que je veux.

Controle

2 réponses

Discussions similaires