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

**jerzy59** · 31/05/2006, 14h40

Bonjour. Si j'ai une picture box affichée et que j'appele une fenêtre (je suis dans une application mdi) cette dernière s'affiche sous la picture box.
Serait-il possible qu'elle s'affiche SUR la picture box ?

**zazaraignée** · 31/05/2006, 14h56

Salut

Essaie

Code :

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

MaFenetre.ZOrder

Si ça marche pas, tu dis

**jerzy59** · 31/05/2006, 15h02

Cela ne fonctionne pas. J'ai ceci

Code :

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

1
2
3
pictureMain.Visible = True
        pictureMain.ZOrder
        pictureMain.Height = Me.Height

La picturebox s'affiche bien avec son contenu, elle est à la bonne taille mais impossible d'ouvrir une fenêtre par dessus

**zazaraignée** · 31/05/2006, 15h16

ZOrder sur la fenêtre, pas sur le pictureBox. ZOrder ramène à l'avant le contrôle (ou conteneur) qui est derrière.

**jerzy59** · 31/05/2006, 15h22

J'ai donc remplacé mon picturemain.ZOrder par mdiform1.ZOrder mais il n'y a pas eu de changement

mes fenêtres s'ouvrant toujours sous la picture box

**zazaraignée** · 31/05/2006, 15h28

Je fais des tests et t'en reparle... demain. Tu dis si c'est trop tard.

**zazaraignée** · 31/05/2006, 16h24

Les tests ont étés plus rapides que prévu.

C'est comme je te disais en message privé.

Si tu place ton pictureBox dans une fenêtre sans bordures, tu pourra la gérer comme les autres fenêtres filles. Seulement elle sera affichée dans le menu Fenêtres de ton application.

Voici ce que j'ai fait. J'ai d'abord créé une fenêtre (objet Form) et placé ces différentes valeurs:

Code :

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

1
2
3
4
Propriété      Valeur
Name           frmPicture
BorderStyle    0 - None
Caption        Image  'pour le menu Fenetre

Tu y mets l'image de ton choix.

J'ai ensuite codé ceci dans frmPicture:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
    Me.Width = Picture1.Width
    Me.Height = Picture1.Height
End Sub
 
Private Sub Picture1_Resize()
    frmPicture.Width = Picture1.Width
    frmPicture.Height = Picture1.Height
End Sub

Et ajouté cette ligne dans la procédure de lancement de l'appli:

Code :

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

1
2
3
4
5
6
7
8
Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    LoadPictureForm ' juste avant d'ouvrir un document
    LoadNewDoc
End Sub

Sans oublier de coder LoadPictureForm

Code :

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

1
2
3
4
5
6
7
Private Sub LoadPictureForm()
    Dim frmP As frmPicture
    Set frmP = New frmPicture
    frmP.Top = 0
    frmP.Left = 0
    frmP.Show
End Sub

Après, lorsque tu ouvres un document, celui-ci sera toujours à l'avant plan.

Edit :
Je fais d'autres tests pour empêcher d'ajouter le frmPicture dans le menu fenêtre et le rendre 'inclicable'.

**jerzy59** · 31/05/2006, 16h36

Merci.
J'étais parti sur une autre piste (la picture box est censé contenir une image (je veux donc mettre une image de fond sur mon appli)) mais je vais voir si ceci fontcionne

**ThierryAIM** · 31/05/2006, 16h41

et MDIForm1.picture = loadpicture ...
ca ne suffit pas ?

**jerzy59** · 31/05/2006, 16h44

L'image se charge bien mais aux dimensions de l'image alors que j'aurais souhaité qu'elle s'ouvre aux dimensions de l'écran.

De plus mon application permet de changer le fond d'écran et il y a des bugs avec ce systeme (au niveau du rafraichissement de l'image)

C'est pour ça que j'avais pensé à l'insérer dans une picture box conteant un controlleur image. En étirant l'image à la taille de la picture box elle meme etirée a la taille de l'écran j'avais une image couvrant toute la surface de mon écran.

**zazaraignée** · 31/05/2006, 20h11

Salut

et la propriété AutoRedraw sur ta form principale, si tu la mets à True?

Edit : bon, je vois, pas de AutoRedraw...
Alors, j'ai pas d'idée sur ce coup-là.

**jmfmarques** · 31/05/2006, 20h53

Hum !
Et pourtant... mettre une image de fond (propriété picture de la Form), sur la form, adaptée, quelles que soient ses dimensions, aux dimensions de la form... est loin d'être une mission impossible...

J'en pleurerais !

**méphistopheles** · 31/05/2006, 21h00

le paintpicture est à mon gout bien plus maniable... et plus simple.

**zazaraignée** · 31/05/2006, 21h36

Bon, a part des idées des mecs rogolos

, j'avais dit que je verrais comment empêcher l'affichage de la frmPicture dans le menu Fenêtre... Pour peut que le menu Fenêtre ait la propriété ListWindows à True...

C'est la ligne en gras:

Code :

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

1
2
3
4
5
6
7
8
Private Sub LoadPictureForm()
    Dim frmP As frmPicture
    Set frmP = New frmPicture
    frmP.Top = 0
    frmP.Left = 0
    frmP.Enabled = False
    frmP.Show
End Sub

Les gars (Thierry et jmf), j'ai cru comprendre que c'était pas un problème de redimentionnement en tant que tel mais plutôt un problème de raffraichissement de l'image lors d'un redimentionnement... à moins que j'ai tout compris de travers... ça m'arrive parfois.

**jmfmarques** · 31/05/2006, 21h38

voilà donc, avec l'accord de Thierry :

**zazaraignée** · 01/06/2006, 03h14

Bon.

Et il se passe quoi quand on redimentionne la fenêtre a mano?

**jmfmarques** · 01/06/2006, 07h06

Bonjour zaza,

Pardi ! on lui applique ce calcul d'entrée de jeu !

On ne fait généralement ce genre de calcul qu'une seule fois, au chargement. Cette démo (et donc ses zooms) montre comment on peut à partir d'une même image, modifier la taille de l'affichage de l'image de fond, en évitant d'ajout d'un contrôle container

**jerzy59** · 01/06/2006, 09h05

Je me suis servi du code de jmf pour améliorer la mien. Le rafraichissement d'image s'effectue bien ... problème : il me met une erreur : variable objet ou bloc with non définie.
En bidouillant un peu j'ai ensuite obtenu une "erreur : type incompatible"
suite à ça et malgré ces message d'erreur, le rafraichissement de l'image de fond s'effectue comme il faut

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

Salut

Me v'la avec mon café matinal (les gars viennent de partir pour l'école, je suis seule avec ma pitchounette) et je viens le finir avec vous.

jmf:
Je me suis amusée avec ton zoom. Chouette! Mais il se passe un truc bizarre quand je drague une bordure pour agrandir la fenêtre. T'as essayé?

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

Bonjour zaza,
Non, je n'ai pas essayé car tel n'était pas le but .
Le but ? Démontrer que l'on peut modifier la taille de l'affichage de l'image de fond... c'est tout.
Pour répondre à ta question, maintenant :
fastoche : tu détermines le nouveau coefficient en fonction de l'ancienne taille de la Form et de sa nouvelle taille ... puis appelles ajustimage avec ce coefficient... c'est tout...
Essayes et si tu n'y paviens pas, dis-le et je te fais cette petite bébelle supplémentaire ...

Alors, la ouananiche ? Bonne cette année ?

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

VB 6 et antérieur

Discussions similaires

Partager

Partager