MDI Picture [Résolu]
tbbuim1
940
Messages postés
jeudi 20 février 2003Date d'inscription
3 février 2011
Dernière intervention
-
5 juil. 2006 à 08:36 - Dernière réponse :
tbbuim1
940
Messages postés
jeudi 20 février 2003Date d'inscription
3 février 2011
Dernière intervention
- 28 avril 2008 à 09:07
- MDI Picture
- Picture d'une MDI (Résolu) » Forum - Visual Basic 6
- 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)
- C'est une mdi-child ??? » Codes sources - Visual Basic / VB.NET (API)
5 réponses
Meilleure réponse
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
a aidé 78 internautes ce mois-ci
Meilleure réponse
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
a aidé 78 internautes ce mois-ci
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 @+
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.