Discussion :

[bruce207]

Bonjour,
je voudrais savoir comment redimensionner une image sur une feuille MDI et aussi comment lancer mon fichier d'aide .chm depuis cette meme feuille, parce que ce dernier ne se lance qu'apres que j'ai ouvert une feuille classique.
Merci d'avance

[ucfoutu]

Bonjour,

Il est vrai que la méthode PaintPicture ne peut s'appliquer à l'image de fond d'une MDI.

Il va donc te falloir ruser.
Et voilà comment (ce sera ensuite à toi de mettre en oeuvre) :

- sur ta MDIForm, une pictureBox invisible (elle te servira de tremplin), dans laquelle tu charges l'image de fond
- tu redimensionnes comme tu l'entends cette PictureBox et son image car, là, avec la PictureBox, tu peux appliquer la méthode PaintPicture
- tu "figes" (picture1.Picture = Picture1.image) ton image modifiée
- Il ne te reste plus qu'à attribuer cette nouvelle image à la propriété Picture de ta MDIForm.

Exerce-toi ainsi d'abord...
On verra ensuite, lorsque tu y seras parvenu, comment utiliser plutôt une stdpicture

[zazaraignée]

Pour le fichier d'aide...

Tu dois commencer par mettre le numéro de la rubrique à afficher dans la propriété HelpContextID (ou quelque chose y ressemblant) de ta Form.

Pour la suite des choses, je ne sais pas trop.

[bruce207]

Bonjour,
j'ai placé un picturebox dans laquelle j'ai mis une image, mais je n'arrives pas à la redimensionner comme je l'entends et je ne retrouve pas la méthode PaintPicture, donc je suis à l'étape 2, que dois je faire ?

[zazaraignée]

Je sais qu'un composant PictureBox possède une propriété Picture et une propirété Image... Il est peut-être possible de jouer sur les deux. Jamais testé.

Ceci dit, il y a cette rubrique dans la FAQ qui pourrait t'aider.

[ProgElecT]

Salut
Je n'avais jamais essayé ou eu besoin de charger une image dans un MDIForm.
J'ai voulue voir ce que sa pouvait donner.
Un Form MDIChild = True, sans code.
Sur un MDIForm, un PictureBox nommé PictFond, avec menu ou pas,
les deux sont possible sans modification du code, mis a part que s'il n'y en a pas,
supprimer ou mettre en commentaires la sub MenuLanceur_Click.

Code :

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

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
Option Explicit
Dim LaPict As IPictureDisp ' ou StdPicture
Dim HBarretitre As Integer, Bordures As Integer
' *************** eventuellement a REMER si pas de menu ***************************
Private Sub MenuLanceur_Click()
Form1.Show
End Sub
'**********************************************************************************
 
Private Sub MDIForm_Load()
PictFond.Visible = False
PictFond.ScaleMode = vbPixels
PictFond.AutoRedraw = True
PictFond.BorderStyle = 0 'none
Set LaPict = LoadPicture("C:\PersoFrancis\mire1.bmp")
HBarretitre = (Me.Height - Me.ScaleHeight - ((Me.Width - Me.ScaleWidth) / 2)) + 30
Bordures = (PictFond.ScaleX(Me.Width - Me.ScaleWidth, vbTwips, vbPixels) / 4) + 1
End Sub
 
Private Sub MDIForm_Resize()
If Me.Height - HBarretitre < 75 Then Exit Sub
If Me.WindowState = vbMinimized Or PictFond.Width < 1 Then Exit Sub
PictFond.Height = Me.Height - HBarretitre
LaPict.Render PictFond.hDC, 0, 0, PictFond.ScaleWidth - Bordures, PictFond.ScaleHeight - Bordures, _
              0, LaPict.Height, LaPict.Width, -LaPict.Height, 0
'PictFond.Refresh
Me.Picture = PictFond.Image
End Sub

Ce n'est pas terrible , pas de MDIForm.Refresh disponible, quelqu'un trouvera la parade ?

[bruce207]

j'ai tapé le code tel quel mais rien ne se passe, j'ai pas d'image dans ma feuille MDI. Pourquoi ?

[ProgElecT]

As tu modifier le chemin ici

Code :

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

Set LaPict = LoadPicture("C:\PersoFrancis\mire1.bmp") ' <-------------------

[bruce207]

Oui, puisque j'avais un menu je n'ai pas mis en commentaire MenuLanceur_Click()

[ProgElecT]

j'ai tapé le code tel quel mais rien ne se passe, j'ai pas d'image dans ma feuille MDI. Pourquoi ?

Code :

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

Set LaPict = LoadPicture("C:\PersoFrancis\mire1.bmp") ' <---------Là met TON chemin et fichier  ----------

Motif de l'edit
J'ai un peu avancé (bien que je ne suis pas sûr que c'est la meilleur façon de faire), dans les declarations, ajouter

Code :

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

1
2
3
4
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                                    (ByVal hwnd As Long, ByVal wMsg As Long, _
                                     ByVal wParam As Long, ByVal lParam As Any) As Long
Private Const WM_MDIACTIVATE = &H222

La procedure MDIForm_Resize devenant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub MDIForm_Resize()
If Me.Height - HBarretitre < 75 Then Exit Sub
If Me.WindowState = vbMinimized Or PictFond.Width < 1 Then Exit Sub
PictFond.Height = Me.Height - HBarretitre
LaPict.Render PictFond.hDC, 0, 0, PictFond.ScaleWidth - Bordures, PictFond.ScaleHeight - Bordures, _
              0, LaPict.Height, LaPict.Width, -LaPict.Height, 0
PictFond.Refresh
Me.Picture = PictFond.Image
'-- Redessine, sa ne marche pas pourquoi ??
'SendMessage Me.hwnd, WM_SETREDRAW, True, vbNullString        
 
'-- Redessine correctement au passage Normal ----> Maximized et inversement
SendMessage Me.hwnd, WM_MDIACTIVATE, True, vbNullString
End Sub

mais je n'ai pas encore trouvé le WM_???? qui permet de faire l'equivalent d'un Refresh, serait il accepté par la MDIForm, je fini par avoir un doute, car j'en ai essayé beaucoup.
A+

[Delbeke]

Tu trouveras dans mes contributions (suivre le lien dans ma signature) le composant DiGradient6 qui pemet , entre autres , l'affichage d'un picture dans une FormMdi. L'image est redimensionnée pour s'afficher complétement sur la form , le resize est géré ansi qu'une feuille fille qui se ferme.