[VB6] Affichage centré d'une image

**Sophie2097** · 12/05/2006, 12h03

Bonjour à tous,

j'ai réalisé dans une application VB6, une feuille MDI avec différents menus.

et comme cette feuille MDI joue le rôle de "page d'accueil" de mon application, je voudrais afficher lors de l'affichage de celle-ci, une image.

j'utilise le code suivant pr afficher l'image
picture = loadPicture("Chemin d'accès à l'image")

jusque là tout va bien, mais l'image s'affiche dans le coin supérieur gauche, et je voudrais pouvoir l'afficher au centre.

comment puis-je faire?

merci merci

**jmfmarques** · 12/05/2006, 12h10

Move (aide en ligne)
ou utilisation des propriétés left et top (aide en ligne)

pour calculer la position : simple calcul arithmétique :
(largeur de la feuille - largeur de l'imagfe)/2
(hauteur de la feuille - hauteur de l'image)/2

**malhivertman1** · 12/05/2006, 12h10

Dans le form_load

Code :

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

1
2
Image1.Top = (Me.Height / 2) - (Image1.Height / 2)
    Image1.Left = (Me.Width / 2) - (Image1.Width / 2)

**Sophie2097** · 12/05/2006, 12h16

voilà mon code :

Code :

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

1
2
3
Picture = LoadPicture("C:\WINNT\Profiles\gregoryk\Bureau\Ville.bmp")
Picture.Top = (Me.Height / 2) - (Me.Height / 2)
    Picture.Left = (Me.Width / 2) - (Me.Width / 2)

J'obtiens l'erreur suivante: objet ne peut pas être supporté par cette méthode ou propriété

qq un peut-il m'aider?

**Sophie2097** · 12/05/2006, 12h19

petite correction : voilà mon code

Code :

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

1
2
3
Picture = LoadPictur("C:\WINNT\Profiles\gregoryk\Bureau\VilleNamur.bmp")
Picture.Top = (Me.Height / 2) - (Picture.Height / 2)
    Picture.Left = (Me.Width / 2) - (Picture.Width / 2)

**malhivertman1** · 12/05/2006, 12h27

C'est pas plutot picture1 ta picturebox?
essaye

Code :

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

1
2
3
Picture1.picture = LoadPicture("C:\WINNT\Profiles\gregoryk\Bureau\VilleNamur.bmp")
Picture1.Top = (Me.Height / 2) - (Picture1.Height / 2)
    Picture1.Left = (Me.Width / 2) - (Picture1.Width / 2)

**Sophie2097** · 12/05/2006, 12h34

merci pr votre aide, voilà ou j'en suis:

Code :

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

1
2
3
4
Dim picture1 As PictureBox
picture1.picture = LoadPicture("C:\WINNT\Profiles\gregoryk\Bureau\VilleNamur.bmp")
picture1.Top = (Me.Height / 2) - (picture1.Height / 2)
    picture1.Left = (Me.Width / 2) - (picture1.Width / 2)

avec l'erreur : object variable no set

**Catbull** · 12/05/2006, 12h41

Code :

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

Set picture1.picture = LoadPicture(CheminImage)

**Sophie2097** · 12/05/2006, 12h44

snif snif tjs pas.

Code :

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

1
2
3
4
5
Dim picture1 As PictureBox
Set picture1.picture = LoadPicture("C:\WINNT\Profiles\gregoryk\Bureau\VilleNamur.bmp")
'picture1.picture = LoadPicture("C:\WINNT\Profiles\gregoryk\Bureau\VilleNamur.bmp")
picture1.Top = (Me.Height / 2) - (picture1.Height / 2)
picture1.Left = (Me.Width / 2) - (picture1.Width / 2)

erreur : variable no set

**Catbull** · 12/05/2006, 12h58

Pourquoi avoir déclaré :

Code :

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

Dim Picture1 As PictureBox

Ce contrôle ne se trouve-t-il pas sur une Form?

**jmfmarques** · 12/05/2006, 12h59

Je commence à subodorer plusieurs choses :
1) où as-tu mis ton code (dans quel événement de quelle feuille)

2) s'agit-il dune picturebox ou d'un contrôle image ?

ceci étant dit, je ne serais pas étonné que tu aies tout simplement mis ton code dans un événement de la feuille principale :
si c'est le cas : transforme Me par le nom de ta MDI

Voilà pourquoi, entre autres, je préfère donner des indications générales plutôt qu'un code qui sera copié-collé !
on en est tout simplement au 10ème message pour une affaire ultra-élémentaire !
CQFD !

**Sophie2097** · 12/05/2006, 13h15

ultra élémentaire et pourtant sans solution.

j'utilise une picture box et j'ai mis le code dans MDIForm_Load()

**jmfmarques** · 12/05/2006, 13h19

Alors et pour en finir une fois pour toutes :
nom de ta picturebox ?
nom de ta MDIForm ?
et ton code définitif (je le corrige et on n'en parle plus) !

**jmfmarques** · 12/05/2006, 13h42

Bon !
En admettant que ta MDI ait pour nom mdiform1
Dans ta mdi : une picturebox Picture1 (qui va servir de container)
dans cette picture1 : une picturebox picture2 (pour recevoir ton image)
et, dans ton événement load de ta form principale :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_Load()
  MDIForm1.Show
  MDIForm1.Picture2.Picture = LoadPicture("d:\superdeb.jpg")
  MDIForm1.Picture2.Move (MDIForm1.Picture1.Width -   MDIForm1.Picture2.Width) / 2, _
  (MDIForm1.Picture1.Height - MDIForm1.Picture2.Height) / 2
  MDIForm1.ZOrder
End Sub

et ne viens pas nous dire que celà ne marche pas !
Testé et vérifié chez moi !

Ceci étant dit : tu peux faire autrement (

) bien évidemment !
Tu peux aussi (c'est ce que je ferais) n'utiliser que Picture1 et la méthode Paintpicture pour y "peindre" directement, mais je doute fort que tu trouves celà à ta portée... alors ...

**Sophie2097** · 12/05/2006, 14h02

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub MDIForm_Load()
Dim picture1 As PictureBox
Dim picture2 As PictureBox
frmMaster.Show
  frmMaster.picture2.picture = LoadPicture("C:\WINNT\Profiles\gregoryk\Bureau\VilleNamur.bmp")
  frmMaster.picture2.Move (frmMaster.picture1.Width - frmMaster.picture2.Width) / 2, _
  (frmMaster.picture1.Height - frmMaster.picture2.Height) / 2
  frmMaster.ZOrder
end sub

erreur sur picture2: method or data member no found