Rendre un frame transparent

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

je fais suite à cette belle discussion

http://www.developpez.net/forums/d18...nsparente-vba/

qui donne un exemple pour rendre un frame transparent
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub UserForm_Initialize() Frame_Transparent Frame1, Me, Image1 End Sub Private Sub Frame_Transparent(cadre As Frame, f As UserForm, imaj As Image) cadre.BorderStyle = 0 ' cadre.ZOrder 'peut être supprimé si inconnu sous VBA cadre.BackColor = f.BackColor ' imaj.ZOrder 1 'peut être supprimé si inconnu sous VBA imaj.Picture = f.Picture imaj.Move -cadre.Left, -cadre.Top, f.Picture.Width, f.Picture.Height End Sub
sur l'exemple ca marche.
Sur le mien il bloque à l'image image1 oui excel m'indique "type d'argument Byref incompatible".
Je suppose que c'est le nom Image1 qui ne convient pas, mais je ne sais pas comment déterminer le nom de l'image que j'ai inséré.

Une ame charitable pour me renseigner ?

22/07/2015, 12h26
joe.levrai

Bonjour,

passe ton argument en Val comme ça

Code:

Private Sub Frame_Transparent(cadre As Frame, f As UserForm, ByVal imaj As Image)

et regarde si le comportement de ta procédure reste conforme
22/07/2015, 13h13
amnorian

merci pour la réponse, je viens de tenter, ca me crée un erreur d'execution 424 objet requis
22/07/2015, 13h17
joe.levrai

Ah j'avais lu trop vite

c'est quoi Image1, tu l'as instanciée quand ?
Etant un objet, on est d'accord qu'elle a été instanciée avec "Set" ?

et bien sûr, il est d'usage de spécifier la ligne qui plante
22/07/2015, 14h31
amnorian
Je ne l'ai pas instancié car dans le code d'origine (le lien) elle n'est pas instanciée.
Il ne m'est pas informé de la ligne qui plante malheureusement, mais si je retire la ligne ou est contenu l'image cela fonctionne
Code:

1 2 3 Private Sub UserForm_Initialize() Frame_Transparent Frame1, Me, Image1 End Sub
je me doute que je rate quelquechose principalement à ce niveau

imaj.Picture = f.Picture

car je ne sais pas ce qu'est image et si il y a une référence que j'ai peut être oublié de cocher.
22/07/2015, 15h16
joe.levrai

On a un peu de travail si je veux réussir mon objectif : te faire comprendre ce qui se passe

Un peu short pour le moment, j'espère ce soir (mais pas sûr) si personne n'est intervenu d'ici là
22/07/2015, 15h21
amnorian

très bien, il me semblait que c'était le nom donné par excel dans l'userform qui se nommait Image1 dans l'exemple et autrement dans le mien. Je me disais que je devais reussir à le trouver mais je me trompe de cible visiblement. Merci de l'aide j'attendrais la réponse pour mieux comprendre ;)
22/07/2015, 23h28
joe.levrai
Me revoilà

Arf ! Le sujet était effectivement très intéressant, et je suis bluffé par le fait qu'il n'y avait aucune méthode directe pour réaliser ça .... faut dire que je n'ai jamais eu besoin de me poser cette question.
De ce que j'en ai compris, nous allons prendre l'exemple le plus simple possible :

- un Userform dont le fond est une image ... le nom du Userform importe peu
- un frame (dont le nom est Frame1) qui contient 1 bouton (son nom importe peu)

Pour réaliser la transparence, tu dois ajouter un contrôle Image dans ton frame (dont le nom est Image1)

Quand tu regardes ton userform dans l'éditeur VBA, tu vois bien entendu ton Frame qui est "au dessus" de l'image de fond du Userform, et tu as ton Image1 dans le Frame1

La procédure initialisation du userform se contente d'appeler la procédure Frame_Transparent qui réalise l'effet de transparence
Code:

1 2 3 Private Sub UserForm_Initialize() Frame_Transparent Frame1, Me, Image1 End Sub
Je pense que ton problème vient peut être du fait que tu n'as pas inséré de contrôle Image dans ton frame, ou qu'il ne s'appelle pas Image1

La procédure en question, va "simplement", ligne de code par ligne de code :

- retirer la bordure du frame
- utiliser la couleur de fond (pas l'image de fond !) du userform pour l'appliquer à la couleur de fond du Frame
- prendre l'image de fond du Userform pour l'appliquer à Image1
- déplacer (et redimensionner ?) Image1 pour l'appliquer sur l'ensemble du Userform ... donnant ainsi l'effet de transparence

Remarque : je me demande à quoi sert l'étape 2 ?? Tu pourrais essayer sans l'utiliser je pense

Donc ta solution : Insère un contrôle Image dans ton Frame, appelle le Image1 ... et dis nous si c'est bon.
23/07/2015, 09h03
amnorian

j'ai toujours le même problème d'objet requis.
J'ai inséré l'image directement dans les propriétés de ma frame (dans picture)
Mais je n'avais pas compris que l'on transférait l'image de la frame sur l'userform, je croyais que c'était l'inverse. J'ai plusieurs frame bien pratique pour déplacer des blocs.
Je croyais cela plus simple, mais visiblement il est encore plus simple de fusionner les blocs, la frame devient bien gènante pour le coup.
Bizarre qu'il ny est pas d'heritage possible avec les autres éléments qui eux ont la transparance dans leurs background.

merci pour ton aide en tout cas, et si tu as une idée sur ce que j'ai mal fait, je pense que l'objet necessaire est image1 (qui doit être une autres images genre image12) mais je ne sais pas comment retrouver ce nom.
23/07/2015, 11h44
joe.levrai

Bonjour,

je suis tombé sur un classeur exemple dans les contributions

va le regarder : http://excel.developpez.com/sources/...ameTransparent
23/07/2015, 13h03
amnorian

c'est à partir de ce classeur exemple que je suis parti.
Je ne comprends pas comment attribuer le nom d'image1 et ou je me trompe la est le problème.
J'ai inséré une image dans ma frame et ca n'a pas mieux fonctionner, mais leurs exemples fonctionne parfaitement. Etrange.

Bonjour,

Code:

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
30
Private Sub UserForm_Initialize()
  Frame_Transparent Frame1, Me, Image1
  Frame_Transparent2 Frame2, Me
   Frame_Transparent2 Frame3, Me
End Sub
 
Private Sub Frame_Transparent(cadre As Frame, f As UserForm, imaj As Image)
  cadre.BorderStyle = 0
'  cadre.ZOrder 'peut être supprimé si inconnu sous VBA
  cadre.BackColor = f.BackColor
'  imaj.ZOrder 1 'peut être supprimé si inconnu sous VBA
  imaj.Picture = f.Picture
  imaj.Move -cadre.Left, -cadre.Top, f.Picture.Width, f.Picture.Height
End Sub
 
Private Sub Frame_Transparent2(cadre As Frame, f As UserForm)
If TypeName(f.Picture) = "Nothing" Then Exit Sub
Dim imaj As Image
 Set imaj = cadre.Controls.Add("forms.Image.1", cadre.Name & "img", True)
 imaj.AutoSize = False
'Image1.Picture.Render(Image1,cadre.Left, cadre.Top, f.Picture.Width, f.Picture.Height)
  imaj.PictureAlignment = 0
  cadre.BorderStyle = 0
'  cadre.ZOrder 'peut être supprimé si inconnu sous VBA
  cadre.BackColor = f.BackColor
'  imaj.ZOrder 1 'peut être supprimé si inconnu sous VBA
  imaj.Picture = f.Picture
  imaj.Move -cadre.Left, -cadre.Top, f.Picture.Width, f.Picture.Height
  imaj.ZOrder msoSendToBack
End Sub

23/07/2015, 16h50
amnorian

1 pièce(s) jointe(s)

Pièce jointe 183749Bonjour et merci rdurupt pour ton aide.

Le premier ne fonctionne pas malheureusement
Le deuxième recopie uniquement l'image, mais ne joue pas en transparance
11/04/2018, 16h18
EJO64

Bien que c'est un ancien message, j'ai utilisé cette discussion pour résoudre exactement le même problème.
Effectivement le problème (que j'ai aussi rencontré) est bien dans

Citation:

"Je suppose que c'est le nom Image1 qui ne convient pas, mais je ne sais pas comment déterminer le nom de l'image que j'ai inséré."

Il faut insérer dans la frame un contrôle de type "image" vide. Le composant ajouté a alors la valeur "Image1". Le classeur indiqué dans la discussion a bien ce contrôle en dessus des 2 boutons.
11/04/2018, 17h11
patricktoulon

2 pièce(s) jointe(s)

re

bonjour
Pièce jointe 369226
j'ai prevu la caption vide ou pas de la frame pour le positionnement

Bonjour
Comme le dit lui-même l'intervenant qui a proposé cette astuce (le lien de référence) il y a 12 ans :
- il ne possédait pas Excel, ne connaissait pas VBA et travaillait donc "en aveugle"
- cette astuce était apparemment destinée à palier une difficulté : l'incapacité "apparente" d'extraire le handle d'un Frame placé sur un userform
- La vocation d'un Frame est celle de "regrouper" des contrôles en son sein. Si on le souhaite transparent, sa bordure et son titre doivent alors également devenir transparents.

J'ajoute ceci aux réflexions de cet intervenant --->>
L'astuce qu'il a utilisée est assez infirme, dès lors qu'il s'est contenté de substituer à une véritable transparence la reconstitution d'une partie d'une image (entendre une partie de l'image de fond du userform)
La transparence réelle est plus complexe et doit laisser apparaître tout ce qui se trouverait normalement caché par le Frame, qu'il s'agisse d'une image, de plusieurs images, de contrôles, etc ...
Elle doit de surcroît être telle, qu'une fois attribuée au Frame, ce dernier la garde même lorsque l'on le déplace ailleurs (et ce : sans recommencer tout à chaque fois).
Voici comment s'y serait probablement pris celui qui a posté cette astuce s'il avait découvert la possibilité d'extraire le handle d'un Frame :
Code:

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 30 31 32 33 34 35 36 37 38 39 40 41 Option Explicit 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 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 Private Const WS_EX_TRANSPARENT = &H20& Private Const GWL_EXSTYLE = (-20) Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const SWP_FRAMECHANGED = &H20 Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Const TRANSPARENT = 1 Private Declare Function InvalidateRectLong Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long Public Sub FrameTransparent(ByVal fraThis As Control) Dim lehwnd As Long lehwnd = Frame1.[_GethWnd] Dim lExStyle As Long lExStyle = GetWindowLong(lehwnd, GWL_EXSTYLE) lExStyle = lExStyle Or WS_EX_TRANSPARENT SetWindowLong lehwnd, GWL_EXSTYLE, lExStyle SetBkMode GetDC(lehwnd), TRANSPARENT SetWindowPos lehwnd, 0, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE + SWP_FRAMECHANGED InvalidateRectLong lehwnd, vbNull, True End Sub Private Sub CommandButton1_Click() FrameTransparent Frame1 DoEvents Frame1.ZOrder Frame1.Top = Frame1.Top + 1 '******* lire pourquoi cette étrange manoeuvre Frame1.Top = Frame1.Top - 1 '******* à la suite du code reparer_deplacer End Sub Private Sub reparer_deplacer() Dim c As Control For Each c In Frame1.Controls c.ZOrder Next End Sub
******* Ne surtout pas toucher à ces deux lignes. Dans certaines configurations des objets sur le userform, elle "réparent" des petits problèmes graphiques inopinés.

Attention : si vous déplacer dynamiquement le Frame, il faut toujours terminer par l'appel de la procédure reparer_deplacer -->> exemple --->>
Code:

1 2 3 4 5 Private Sub CommandButton2_Click() Dim c As Control Frame1.Top = Frame1.Top + 5 reparer_deplacer ' <<<<<<==================== End Sub
IMPORTANT : la propriété BorderStyle du Frame doit être mise = 0

EDIT : je ne mettrai pas ce code dans la rubrique contributions. La raison est simple : ce serait s'écarter significativement de la vocation d'un tableur.

EDIT 2 : j'ai dit plus haut ce que je pensais des bordures et caption en matière de transparence. Si toutefois certains y tenaient -->> je leur donnerai une astuce de plus pour y pallier ;)

EDIT 3 : Attention : lorsque l'on joue avec le feu (ce que je fais ici), il est nécessaire de bien garder à l'esprit certains comportements en matière d'exécution graphique.
Il est, dans cette affaire, indispensable que la totalité du Frame ainsi traité soit comprise dans le userform. Le moindre débordement du frame (hors du userform) compromettrait sa transparence.
Idem en ce qui concerne l'écran : le Frame doit impérativement être toujours visible et totalement affiché à l'écran

12/04/2018, 09h05
pijaku

Bonjour Jacques,

Pour le code proposé : :plusser:

----------------------------------------
Pour cette phrase : :plusser:

Citation:

Envoyé par unparia

La raison est simple : ce serait s'écarter significativement de la vocation d'un tableur

----------------------------------------

Citation:

Envoyé par unparia

EDIT 2 : j'ai dit plus haut ce que je pensais des bordures et caption en matière de transparence. Si toutefois certains y tenaient -->> je leur donnerai une astuce de plus pour y pallier ;)

Même si je n'ai pas besoin de ce code, je veux bien voir l'astuce... (réduire le rectangle de la largeur d'une bordure???)

----------------------------------------
Néanmoins :

Citation:

Envoyé par unparia

IMPORTANT : la propriété BorderStyle du Frame doit être mise = 0

Sous Excel 2010, pas besoin. J'ai fait le test avec bordure colorée et fond coloré, ça fonctionne très bien.

----------------------------------------

Citation:

Envoyé par unparia

Comme le dit lui-même l'intervenant qui a proposé cette astuce

;););)

Bonne journée
Amicalement,
Franck
12/04/2018, 10h37
patricktoulon

re

re
bonjour
oui pas mal la methode setbkmode(GDI)

Citation:

La transparence réelle est plus complexe et doit laisser apparaître tout ce qui se trouverait normalement caché par le Frame, qu'il s'agisse d'une image, de plusieurs images, de contrôles, etc ...

je vois pas trop l'utilité de cette importance en ce qui concerne les eventuels controls se trouvant en dessous sachant que de toute facon avec cette methode il ne seront pas acceccibles(testé);)

pour une eventuelle accessibilité choisr l'autre methode "setlayeredattribute"(user32) ou le merge de region en (XOR)"createregionrect" avec setwindowsrect et la oui les control seront cliquables ou accessibles

ta demo a sa place dans General VBA, VBA c'est pas fait que pour compter des cellule ;)

joli en tout cas, je la connaissais pas celle la

apres pour etre franc engager des api declare 32/64 pour ca dans un userform d'un classeur (la oui je te l'accorde) est un peu to mutch
la methode image de substitution en copiant le .picture ou le me.image1.picture du userform et largement suffisante, en general on met pas des controls derriere une frame
si c'est le cas on joue avec le visible(true/false)pas la peine d'engager une usine a gaz User32/GDI
12/04/2018, 10h53
unparia

Citation:

je vois pas trop l'utilité de cette importance en ce qui concerne les eventuels controls se trouvant en dessous sachant que de toute facon avec cette methode il ne seront pas acceccibles(testé)

La transparence n'est en général pas demandée à une telle fin, mais bien plus souvent pour laisser apparentes d'autres choses, telles images, labels, ...
Et il importe alors que l'on ne puisse justement pas cliquer "au travers";)

Citation:

demo a sa place dans General VBA, VBA c'est pas fait que pour compter des cellule

Voilà un point de vue. Le mien est autre.
Et ce n'est en tout état de cause pas une "demo".

Citation:

en tout cas, je la connaissais pas celle la

Et pour cause. On ne la trouvera nulle part pour un Frame mis sur un userform VBA Excel et son code pour VB6 ne serait pas exactement le même (et je ne parle pas là du seul handle à extraire).

Bonjour Franck

Citation:

Même si je n'ai pas besoin de ce code, je veux bien voir l'astuce..

.

Facile :
ajoute où tu veux et avec des dimensions toutes petites dans le Frame1 un label nommé koko avec propriété visible = false
--->>

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
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 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
Private Const WS_EX_TRANSPARENT = &H20&
Private Const GWL_EXSTYLE = (-20)
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Const TRANSPARENT = 1
Private Declare Function InvalidateRectLong Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long
Public Sub FrameTransparent(ByVal fraThis As Control)
   With koko
    .BackStyle = 0
    .BorderColor = Frame1.BorderColor
    .BorderStyle = Frame1.BorderStyle
    .Caption = Frame1.Caption
    .Move 0, 0, Frame1.Width, Frame1.Height
    .Visible = True
   End With
   With Frame1
    .BorderStyle = fmBorderStyleNone
    .Caption = ""
   End With
 
    Dim lehwnd As Long
    lehwnd = Frame1.[_GethWnd]
    Dim lExStyle As Long
    lExStyle = GetWindowLong(lehwnd, GWL_EXSTYLE)
    lExStyle = lExStyle Or WS_EX_TRANSPARENT
     SetWindowLong lehwnd, GWL_EXSTYLE, lExStyle
    SetBkMode GetDC(lehwnd), TRANSPARENT
    SetWindowPos lehwnd, 0, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE + SWP_FRAMECHANGED
    InvalidateRectLong lehwnd, vbNull, True
End Sub
 
 
Private Sub CommandButton1_Click()
  FrameTransparent Frame1
  DoEvents
  Frame1.ZOrder
  Frame1.Top = Frame1.Top + 1
  Frame1.Top = Frame1.Top - 1
  reparer_deplacer
End Sub
Private Sub reparer_deplacer()
  Dim c As Control
  koko.ZOrder
  For Each c In Frame1.Controls
     If c.Name <> "koko" Then c.ZOrder
   Next
End Sub

Je sais que tu n'auras aucune difficulté à comprendre pourquoi je "sépare" et traite en premier le label koko dans la procédure reparer_deplacer ;)

Amitiés

Voir 40 message(s) de cette discussion en une page