Discussion :

[RiRix]

Bonjour je recherche comment rendre une frame transparente pour faire apparaitre l'image de fond du userform.

j'ai trouvé le code suivant sur internet mais lorsque je l'insére dans ma page cela ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub UserForm_Activate()
  Frame_Transparent Frame1, Me, Image1
end sub
 
Private Sub Frame_Transparent(cadre As Frame, f As Hydraulique, imaj As Image)
   cadre.BorderStyle = 0
  cadre.BackColor = f.BackColor
  imaj.Picture = f.Picture
  imaj.Move -cadre.Left, -cadre.Top, f.Picture.Width, f.Picture.Height
 
End Sub

[patricktoulon]

bonjour

je ne crois pas que cet objet gère la transparence

tu pourrais remplacer ta frame par un label avec rien dans la caption
et puis le label

Code :

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

1
2
3
4
5
with label1
.backstyle=0' transparent 
.borderstyle=1'le pourtour apparent
.bordercolor=vbred'le trait est de couleur rouge 
end with

au plaisir

[NVCfrm]

Bonjour je recherche comment rendre une frame transparente pour faire apparaitre l'image de fond du userform.

j'ai trouvé le code suivant sur internet mais lorsque je l'insére dans ma page cela ne fonctionne pas

bonsoir,

c'est vraiment déroutant la façon d'aborder ton problème avec la Transparence.
gère la visibilité de l'objet. Frame.Visible = False

[NVCfrm]

bonjour,

peut-être que je n'ai pas compris dans ma précédente réponse.
Si le cadre est le conteneur de l'image et que tu souhaites le rendre indistinct dans son conteneur:

Code :

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

1
2
cadre.BackColor = Conteneur.BackColor
cadre.SpecialEffect = 0