WebBrowser Transparent

[maval]

Bonjour,

J'ai sur un Userform un WebBrowser. Peut on lui donner un fond transparent?

Je vous remercie de votre aide

 

[job75]

Re : WebBrowser Transparent

Bonjour maval,

Regardez les propriétés du WebBrowser 🙄

Il sera à coup sûr parfaitement transparent avec .Visible = False 😀

A+

 

[PMO2]

Re : WebBrowser Transparent

Bonjour,

Une piste avec les APIs.

1) créer 1 UserForm1
2) créer 1 WebBrowser1
3) copier le code suivant dans la fenêtre de code de UserForm1

Private Sub UserForm_Initialize()
Dim Hndl&
Hndl& = FindWindowA(vbNullString, Me.Caption)
Call SetTransparency(Hndl&)
'---
WebBrowser1.Navigate "c:\tsoin.gif"   'url du fichier à adapter
End Sub

4) copier le code suivant dans un module Standard

'### Constante de l'opacité (à adapter) ###
'### Pourcentage de l'opacité (0 à 100) ###
Const OPACITE = 30
'##########################################

'--- APIs ---
Declare Function FindWindowA& Lib "user32" ( _
  ByVal lpClassName As String, ByVal lpWindowName As String)
Declare Function SetLayeredWindowAttributes& Lib "user32.dll" ( _
  ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long)
Declare Function SetWindowLong& Lib "user32.dll" Alias "SetWindowLongA" ( _
  ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
'--- Constantes ---
Const WS_EX_LAYERED As Long = &H80000
Const LWA_ALPHA As Long = &H2
Const GWL_EXSTYLE As Long = -20

Sub SetTransparency(Hndl As Long)
SetWindowLong Hndl, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes Hndl, 0, 255 * OPACITE / 100, LWA_ALPHA
End Sub