/7bb00c0e11234a878503ad0d54a5addb/auth-avatar/352c4fcb87652f4f45947d861acd10f2-tbbuim1)
MDI Picture [Résolu]
tbbuim1
- Messages postés
- 940
- Date d'inscription
- jeudi 20 février 2003
- Dernière intervention
- 3 février 2011
- Messages postés
- 940
- Date d'inscription
- jeudi 20 février 2003
- Dernière intervention
- 3 février 2011
A voir également:
- Mdi pictures
- Visual picture - Meilleures réponses
- Picture d'une MDI ✓ - Forum - Visual Basic 6
- [visual basic] [graphisme] comment enregistrer une picture box :) (paint) - Conseils pratiques - Visual Basic / VB.NET
- Multi navigateur exemple de gestion des feuiles mdi - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Bloc note mdi - Codes sources - Visual Basic / VB.NET (Texte)
- Créer une pseudo childform dockable dans une mdi - Codes sources - Visual Basic / VB.NET (API)
5 réponses
Meilleure réponse
- Messages postés
- 940
- Date d'inscription
- jeudi 20 février 2003
- Dernière intervention
- 3 février 2011
J'ai trouvé sans subclasser
http://www.vb-helper.com/howto_mdi_background_picture.html
TBBUIM
http://www.vb-helper.com/howto_mdi_background_picture.html
TBBUIM
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
120 internautes nous ont dit merci ce mois-ci
- Messages postés
- 940
- Date d'inscription
- jeudi 20 février 2003
- Dernière intervention
- 3 février 2011
Source venant d'ici
' Make the image fit the MDI form.
Private Sub MDIForm_Resize()
Dim client_rect As RECT
Dim client_hwnd As Long
picStretched.Move 0, 0, _
ScaleWidth, ScaleHeight
' Copy the original picture into picStretched.
picStretched.PaintPicture _
picOriginal.Picture, _
0, 0, _
picStretched.ScaleWidth, _
picStretched.ScaleHeight, _
0, 0, _
picOriginal.ScaleWidth, _
picOriginal.ScaleHeight
' Set the MDI form's picture.
Picture = picStretched.Image
' Invalidate the picture.
client_hwnd = FindWindowEx(Me.hwnd, 0, "MDIClient", _
vbNullChar)
GetClientRect client_hwnd, client_rect
InvalidateRect client_hwnd, client_rect, 1
End Sub
TB
BU
IM
' Make the image fit the MDI form.
Private Sub MDIForm_Resize()
Dim client_rect As RECT
Dim client_hwnd As Long
picStretched.Move 0, 0, _
ScaleWidth, ScaleHeight
' Copy the original picture into picStretched.
picStretched.PaintPicture _
picOriginal.Picture, _
0, 0, _
picStretched.ScaleWidth, _
picStretched.ScaleHeight, _
0, 0, _
picOriginal.ScaleWidth, _
picOriginal.ScaleHeight
' Set the MDI form's picture.
Picture = picStretched.Image
' Invalidate the picture.
client_hwnd = FindWindowEx(Me.hwnd, 0, "MDIClient", _
vbNullChar)
GetClientRect client_hwnd, client_rect
InvalidateRect client_hwnd, client_rect, 1
End Sub
TB
BU
IM
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
120 internautes nous ont dit merci ce mois-ci
/39b9c3628b5e4777a622f68e4330feb3/auth-avatar/cdb17dd712f21b50dc01261361df1b97-Renfield)
/8b261a52cd874c9dab37c788c8adbf4a/auth-avatar/d79b1c87e11a23af8556b9af3a7b5939-Any_Problem_Have_Solution)
- Messages postés
- 4
- Date d'inscription
- samedi 14 avril 2007
- Dernière intervention
- 12 janvier 2009
On peut faire aussi comme ceci :
Mettre 2 pictureBox sur la MDIForm : PictureOriginal et PictureStrech
(mettre le PictureOriginal en visible = false)
Mettre aussi un timer : TimerResize
(mettre l'interval du timer a 10 par exemple)
Le but de ce timer va être d'attendre la fin du resize de la form car si on clique sur le bouton agrandir de la feuille sans mettre une toute petite temporisation alors ca va merder !!!
Voici le code :
Private Sub MDIForm_Resize()
TimerResize.Enabled = True
End Sub
Private Sub TimerResize_Timer()
TimerResize = False
PictureStrech.Move 0, 0, MDIForm1.Width, MDIForm1.Height - 500
PictureStrech.Picture = PictureOriginal.Picture
PictureStrech.PaintPicture PictureStrech.Picture, 0, 0, PictureStrech.ScaleWidth, PictureStrech.ScaleHeight
End Sub
Voila @+
Mettre 2 pictureBox sur la MDIForm : PictureOriginal et PictureStrech
(mettre le PictureOriginal en visible = false)
Mettre aussi un timer : TimerResize
(mettre l'interval du timer a 10 par exemple)
Le but de ce timer va être d'attendre la fin du resize de la form car si on clique sur le bouton agrandir de la feuille sans mettre une toute petite temporisation alors ca va merder !!!
Voici le code :
Private Sub MDIForm_Resize()
TimerResize.Enabled = True
End Sub
Private Sub TimerResize_Timer()
TimerResize = False
PictureStrech.Move 0, 0, MDIForm1.Width, MDIForm1.Height - 500
PictureStrech.Picture = PictureOriginal.Picture
PictureStrech.PaintPicture PictureStrech.Picture, 0, 0, PictureStrech.ScaleWidth, PictureStrech.ScaleHeight
End Sub
Voila @+
- Messages postés
- 4
- Date d'inscription
- samedi 14 avril 2007
- Dernière intervention
- 12 janvier 2009
Oups a oui désolé !
Effectivement pour que la picture soit en MDIForm1.picture
alors oui la meilleure solution et bien celle-ci ;-)
http://www.vb-helper.com/howto_mdi_background_picture.html
Sinon on ne voit pas les childs !!!
Sorry
@+
Effectivement pour que la picture soit en MDIForm1.picture
alors oui la meilleure solution et bien celle-ci ;-)
http://www.vb-helper.com/howto_mdi_background_picture.html
Sinon on ne voit pas les childs !!!
Sorry
@+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.