[VB6] Affichage d'une PictureBox en arrière plan d'une appli

**ThierryAIM** · 01/06/2006, 14h28

ceci suffit très largement sans se casser la tête :

Code :

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

1
2
3
Private Sub Form_Resize()
    Me.PaintPicture Me.Picture, 0, 0, Me.Width, Me.Height
End Sub

bien sur, si on ne tient pas compte des déformations de l'image

**jmfmarques** · 01/06/2006, 14h31

bien sur, si on ne tient pas compte des déformations de l'image

Exact !
Et on peut largement y remédier... suffit de retrouver 2 ou 3 sujets déjà ouverts (pour Riesseg, BanditBoy,...) sur ce forum...

Mais si l'on détermine le coefficient : c'est mieux pour diverses raisons, notamment la possibilité d'utiliser ajustimage pour tout redimensionner... et celà prépare à du beaucoup plus intéressant (ça va venir...

**ThierryAIM** · 01/06/2006, 14h36

d'accord avec toi, mais inutile de faire une usine à gaz, juste pour répondre à la question posée initialement

**zazaraignée** · 01/06/2006, 14h43

Oui, mais une fenêtre, ça se redimentionne. Sauf si elle est fixe. et l'image de fond doit suivre, non. C'est pourquoi je posait la question. Je savait que ça se passait dans le onResize. Je voulais juste insister sur ce fait.

Salut. le fond de café qu'il me reste est froid...

**ThierryAIM** · 01/06/2006, 14h45

sauf que ni la solution de jmf, ni la mienne ne peuvent s'appliquer à une MDIForm, car celle-ci ne connait pas PaintPicture

Alors on efface tout et on recommence (cf le 1er post du sujet ) !!!

**jmfmarques** · 01/06/2006, 14h50

Ki non Ki non !

on fiche dans la MDI une pictureBox aux dimensions de la MDI et elle se comporte dès lors comme une Form

Et c'est dans cette pictureBox que l'on met ce que l'on avait prévu de mettre

**ThierryAIM** · 01/06/2006, 14h52

et bien essaie ensuite d'ouvrir une form fille, je te laisse la surprise

je me suis déjà heuter à ce pb, pas toi, apparement, alors verifie et dis-moi ?

**jmfmarques** · 01/06/2006, 15h04

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
 Load Form2
 Form2.Show
 MDIForm1.Picture1.Visible = False
 Form2.ZOrder
End Sub

**ThierryAIM** · 01/06/2006, 15h08

Pas bon, si la forme fille n'est pas agrandie !! ou alors tu n'as plus de fond

**jmfmarques** · 01/06/2006, 15h16

Hé !
A la bônoise, alors !
Faut savoir ce que l'on veut... le beurre, ou l'argent du beurre ?

Bon, alors, si tu veux le fond sur la Feuille fille, c'est aussi là que tu dois donner l'image à la propriété picture... et :

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_Click()
 Load Form2
 Form2.Show
 MDIForm1.Picture1.Visible = False
 Form2.ZOrder
 Form2.WindowState = 2
End Sub

**méphistopheles** · 01/06/2006, 15h26

autre possibilité, mettre dans un évenement du style lostfocus:

Code :

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

1
2
3
4
5
6
7
dim frm as form
for each frm in form
   if frm.name=screen.activecontrol.name then
      frm.picture=picture1.picture
      exit for
   end if
next for