Bonjour =E0 tous,
J'ai un probl=E8me.J'affiche une image dans un picturebox.Le probl=E8me
est que l'image s'affiche avec une taille plus grande que le
picturebox.Je voudrais que (quelque soit la taille de l'image) l'image
puisse s'afficher totalement dans le picturebox.Il faudra =E0 mon avis
modifier les dimensions de l'image de facon =E0 ce qu'elle soit
totalement visible dans le picturebox.
Comment le faire ?
Le code que j'utilise est celui-ci:
Dim oImage As Bitmap
oImage =3D New Bitmap("E:\Documents de raoul\Raoul.JPG", New
Size(800, 600)) ' Il y a un probl=E8me ici
Me.PictureBox8.Image =3D (CType(oImage, Image))
Me.PictureBox8.Refresh()
Quelqu'un peut-il m'aider par un code d=E9j=E0 test=E9 qui marche?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques
Bonjour,
Voici ... Tu passes l'adresse de l'inage via img ("C:Mes imagesmonImage.jpg")
Public Function RedimensionImage(ByVal img As String) As Boolean Try
Dim objImage As New Bitmap(img) Dim objThumbnail As Bitmap
' Creé l'image et assigne les dimensions.Tu définis les dimension de ton image objThumbnail = objImage.GetThumbnailImage(228, 178, Nothing, Nothing)
' affiche l'image picThumb.Image = objThumbnail Catch ex As Exception
MsgBox("Image introuvable") End Try
End Function
"Raben" a écrit dans le message de news:
Bonjour à tous, J'ai un problème.J'affiche une image dans un picturebox.Le problème est que l'image s'affiche avec une taille plus grande que le picturebox.Je voudrais que (quelque soit la taille de l'image) l'image puisse s'afficher totalement dans le picturebox.Il faudra à mon avis modifier les dimensions de l'image de facon à ce qu'elle soit totalement visible dans le picturebox. Comment le faire ? Le code que j'utilise est celui-ci: Dim oImage As Bitmap oImage = New Bitmap("E:Documents de raoulRaoul.JPG", New Size(800, 600)) ' Il y a un problème ici Me.PictureBox8.Image = (CType(oImage, Image)) Me.PictureBox8.Refresh() Quelqu'un peut-il m'aider par un code déjà testé qui marche?
Merci d'avance!! Cordialement!!
Bonjour,
Voici ...
Tu passes l'adresse de l'inage via img ("C:Mes imagesmonImage.jpg")
Public Function RedimensionImage(ByVal img As String) As Boolean
Try
Dim objImage As New Bitmap(img)
Dim objThumbnail As Bitmap
' Creé l'image et assigne les dimensions.Tu définis les
dimension de ton image
objThumbnail = objImage.GetThumbnailImage(228, 178, Nothing,
Nothing)
' affiche l'image
picThumb.Image = objThumbnail
Catch ex As Exception
MsgBox("Image introuvable")
End Try
End Function
"Raben" <agassoussiraoul@yahoo.fr> a écrit dans le message de news:
1165010652.878169.9220@n67g2000cwd.googlegroups.com...
Bonjour à tous,
J'ai un problème.J'affiche une image dans un picturebox.Le problème
est que l'image s'affiche avec une taille plus grande que le
picturebox.Je voudrais que (quelque soit la taille de l'image) l'image
puisse s'afficher totalement dans le picturebox.Il faudra à mon avis
modifier les dimensions de l'image de facon à ce qu'elle soit
totalement visible dans le picturebox.
Comment le faire ?
Le code que j'utilise est celui-ci:
Dim oImage As Bitmap
oImage = New Bitmap("E:Documents de raoulRaoul.JPG", New
Size(800, 600)) ' Il y a un problème ici
Me.PictureBox8.Image = (CType(oImage, Image))
Me.PictureBox8.Refresh()
Quelqu'un peut-il m'aider par un code déjà testé qui marche?
Voici ... Tu passes l'adresse de l'inage via img ("C:Mes imagesmonImage.jpg")
Public Function RedimensionImage(ByVal img As String) As Boolean Try
Dim objImage As New Bitmap(img) Dim objThumbnail As Bitmap
' Creé l'image et assigne les dimensions.Tu définis les dimension de ton image objThumbnail = objImage.GetThumbnailImage(228, 178, Nothing, Nothing)
' affiche l'image picThumb.Image = objThumbnail Catch ex As Exception
MsgBox("Image introuvable") End Try
End Function
"Raben" a écrit dans le message de news:
Bonjour à tous, J'ai un problème.J'affiche une image dans un picturebox.Le problème est que l'image s'affiche avec une taille plus grande que le picturebox.Je voudrais que (quelque soit la taille de l'image) l'image puisse s'afficher totalement dans le picturebox.Il faudra à mon avis modifier les dimensions de l'image de facon à ce qu'elle soit totalement visible dans le picturebox. Comment le faire ? Le code que j'utilise est celui-ci: Dim oImage As Bitmap oImage = New Bitmap("E:Documents de raoulRaoul.JPG", New Size(800, 600)) ' Il y a un problème ici Me.PictureBox8.Image = (CType(oImage, Image)) Me.PictureBox8.Refresh() Quelqu'un peut-il m'aider par un code déjà testé qui marche?
