Discussion :

[perchman]

Salut à tous,

j'aimerai avoir une frame transparente pour visualiser l'image de fond...

j'ai trouvé un morceau de code mais je n'arrive pas à le mettre en place dans mon userform...

voici le code !!

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_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

le reste est à télécharger ici: http://excel.ftp-developpez.com/sour...renceFrame.zip



je n'arrive pas à être très clair car je rame un peu et je ne peu pas mettre mon code car il fait un peu beaucoup de lignes...

[ucfoutu]

Bonjour,

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

Tiens donc ... (drôle d'habitude de nommage)
Voilà donc un bout de code (celui que tu nous montres) qui a été écrit par quelqu'un il y a près de 3 ans (le 22 juillet 2006 à 06:02:08, pour être précis) pour VB6 et que quelqu'un d'autre semble avoir à peine tenté d'adapter pour VBA...
peut-on savoir, s'il te plait, où tu as trouvé ce bout de code ?
Sur DVP ou ailleurs ?

[SilkyRoad]

bonjour à vous

Rendre un Frame transparent pour voir l'image située en arrière plan.

bonne journée
michel

[ucfoutu]

Bonjour, Michel,
Ouais...
Je regrette assez de voir un nom d'auteur (consentant ????) apparaître dans cet exemple...
Il est la transformation de quelque chose marchant fort bien sous VB6 (et qui avait été écrit pour VB6 par quelqu'un qui ne possédait à l'époque pas VBA) mais qui n'est pas l'idéal pour VBA.
Bien...
Il ne s'agissait par ailleurs pas de transparence mais de pseudo-transparence (où l'on reconstituait, dans le Frame, une image de l'UserForm)
Je vais donc m'attacher à écrire un autre code, plus orthodoxe et mieux adapté à VBA. Celà va me conduire à extraire plusieurs choses, dont le handle de l'UserForm, mais également celui du Frame.... et va me prendre un peu de temps d'étude...
A plus, donc...

[perchman]

merci SilkyRoad, mais c'est de ce lien que vient le code !!!

si vous le souhaitez je peux vous envoyer mon fichier "allégé" par mail...

je referai des tests ce soir en espérant trouver !!

bonne journée

[ucfoutu]

Une question pour toi, perchman (j'ai déjà commencé à travailler et avance bien sans passer par ce chemin mal adapté à VBA, à coups de fonctions de l'Api de Windows... avec pour résultat de montrer également tout -pas seulement l'image de fond - qui pourrait être caché par le Frame ... contrôles autres, etc..., sans que, pour autant (intéressant non ?) tu puisses les atteindre ou cliquer dessus avec la souris, mais toujours disponibles en utilisant le clavier) :
Quelles sont les propriétés de ton Frame (Caption, bordure, style) ?