neg03
Messages postés95Date d'inscriptionjeudi 7 mai 2009StatutMembreDernière intervention 3 juillet 2009
-
7 mai 2008 à 08:30
neg03
Messages postés95Date d'inscriptionjeudi 7 mai 2009StatutMembreDernière intervention 3 juillet 2009
-
7 mai 2008 à 09:14
Bonjour,
je souhaiterais que lorsque je lance ma form mon image prenne directement les dimensions que je lui est passé.
Private Sub Form_Load()
Dir(cheminIm.Text, vbNormal) = "" Then
Picture1.Picture = LoadPicture(App.Path & "" & DossierImage & "" & NomImageErreur & ".jpg")
With Picture1
Call .PaintPicture(Picture1.Picture, 0, 0, 2000, 2000)
End With
Else
Picture1.Picture = LoadPicture(cheminIm.Text)
With Picture1
Call .PaintPicture(Picture1.Picture, 0, 0, 2000, 2000)
End With
End If
End sub
Dans ce code en lançant ma form, l'image est bien chargé mais les dimensions indiqué avec paintPicture ne sont pas pris en compte.
Cependant quand je choisit une autre image dans cette form elle se met au bonne dimension.
Donc ma question est comment faire pour que quand je vais sur ma form l'image soit au bonne dimension directement.
Merci