Discussion :

[Rifton007]

Bonjour à tous,
Sa fait trois heures que je chipote sur ce code et j'arrive pas à trouvé le noeud du probléme.

Dans mon module on trouve:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
'Déclaration des fonctions de l'API Windows nécessaires a ce programme
Public Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As Rect) As Long
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Public Const WS_CHILD = &H40000000
Public Const GWL_STYLE = (-16)
Public Const GWL_EXSTYLE = (-20)
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2
Public Const WS_EX_LAYERED = &H80000
Public Const SWP_FRAMECHANGED = &H20
 
Public Function WndSetOpacity(ByVal hwnd As Long, Optional ByVal crKey As Long = &H8000000F, Optional ByVal Alpha As Byte = 255, Optional ByVal ByAlpha As Boolean = False) As Boolean
 
    Dim ExStyle As Long
    ExStyle = GetWindowLong(MainApp.hwnd, GWL_EXSTYLE)
    If ExStyle <> (ExStyle Or WS_EX_LAYERED) Then
        ExStyle = (ExStyle Or WS_EX_LAYERED)
        Call SetWindowLong(MainApp.hwnd, GWL_EXSTYLE, ExStyle)
    End If
    WndSetOpacity = (SetLayeredWindowAttributes(MainApp.hwnd, &H8000000F, 100, IIf(ByAlpha, LWA_ALPHA, LWA_COLORKEY)) <> 0)
End Function

Je remplace la valeur crKey par une couleur, je passe ByAlpha en False, Malgré ça il met toute ma FORM en transparence. Ce que je désire c'est seulement la couleur que j'ai défenie.

Merci à vous tous.

[ThierryAIM]

il nous manque l'appel à WndSetOpacity dans le code fourni
et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Function WndSetOpacity(ByVal hwnd As Long, Optional ByVal crKey As Long = &H8000000F, Optional ByVal Alpha As Byte = 255, Optional ByVal ByAlpha As Boolean = False) As Boolean

Dim ExStyle As Long
ExStyle = GetWindowLong(MainApp.hwnd, GWL_EXSTYLE)
If ExStyle <> (ExStyle Or WS_EX_LAYERED) Then
ExStyle = (ExStyle Or WS_EX_LAYERED)
Call SetWindowLong(MainApp.hwnd, GWL_EXSTYLE, ExStyle)
End If
WndSetOpacity = (SetLayeredWindowAttributes(MainApp.hwnd, &H8000000F, 100, IIf(ByAlpha, LWA_ALPHA, LWA_COLORKEY)) <> 0)
End Function

Tu dois utiliser le hwnd transmis à la fonction
Ce qui est en rouge est en trop

[avigeilpro]

Sinon sur mon site tu trouve un module tout près, juste à intégrer dans ton projet et à appeler la fonction avec les bons paramètres (regarde mon profil pour avoir l'adresse de mon site)