Bonjour à toutes et à tous,
J'ai cherché et trouvé sur internet le code qui permet de rendre un formulaire transparent en modifiant la couleur alpha.
Extrait du code :
C'est bien mais tout les contrôles à l'intérieur du formulaire sont du coup transparent autant que la fenêtre.
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 Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2 Private Const GWL_EXSTYLE = &HFFEC Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, _ ByVal lngWinIdx As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _ (ByVal hWnd As Long, _ ByVal lngWinIdx As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "USER32" _ (ByVal hWnd As Long, _ ByVal crKey As Integer, _ ByVal bAlpha As Integer, _ ByVal dwFlags As Long) As Long
J'aurais souhaité afficher un image avec le fond du formulaire transparent à 100% pour n'afficher que l'image, ou n'importe quel contrôle.
Question : Est-il possible de rendre les contrôles opaques tout en gardant le fond du formulaire transparent ?
Partager