insosama
Messages postés5Date d'inscriptionmardi 7 août 2007StatutMembreDernière intervention 8 mai 2008
-
8 mai 2008 à 03:12
cs_candyraton
Messages postés109Date d'inscriptiondimanche 27 juillet 2008StatutMembreDernière intervention 2 février 2012
-
6 mars 2009 à 13:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_candyraton
Messages postés109Date d'inscriptiondimanche 27 juillet 2008StatutMembreDernière intervention 2 février 20123 6 mars 2009 à 13:31
Dim MyImage As Bitmap
MyImage = Nothing
...
cs_candyraton
Messages postés109Date d'inscriptiondimanche 27 juillet 2008StatutMembreDernière intervention 2 février 20123 6 mars 2009 à 13:22
extrait de msdn pour faire pareil dans une picturebox:
Ajoutez un bouton et une picturebox et collez ce code apres avoir declaré Private MyImage As Bitmap:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShowMyImage(imageperso, 200, 200)
End Sub
Private Sub ShowMyImage(ByVal fileToDisplay As String, ByVal xSize As Integer, _
ByVal ySize As Integer)
' Sets up an image object to be displayed.
If (MyImage IsNot Nothing) Then
MyImage.Dispose()
End If
' Stretches the image to fit the pictureBox.
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
MyImage = New Bitmap(fileToDisplay)
PictureBox1.ClientSize = New Size(xSize, ySize)
PictureBox1.Image = CType(MyImage, Image)
End Sub
Par contre, je ne sais pas comment on declare MyImage dans la fonction; msg:"la var est utilisée avant qu'une variable lui soit assignée..."
cs_candyraton
Messages postés109Date d'inscriptiondimanche 27 juillet 2008StatutMembreDernière intervention 2 février 20123 6 mars 2009 à 12:08
Bonjour,
Insosama:Fonctionne immédiatement, c'est agréable pour une 1° utilisation de vbexpress.
Merci
Gillardg:ta ligne est la même (regarde):
image1 = System.Drawing.Image.FromFile(emplacement)
sauf que tu ne redimensionne pas (ça m'étonne de toi un tel commentaire).
benji2000
Messages postés78Date d'inscriptionsamedi 26 août 2006StatutMembreDernière intervention25 novembre 2016 29 juil. 2008 à 14:03
Merci beaucoup Insosama, ton code m'a bien servi, je cherché comment apporter plusieurs images dans un PictureBox...
Ca fesait un baille que je cherché ce code, 10 pour te remercier ^^
Benji2000
gillardg
Messages postés3275Date d'inscriptionjeudi 3 avril 2008StatutMembreDernière intervention14 septembre 20142 21 juin 2008 à 19:31
6 mars 2009 à 13:31
MyImage = Nothing
...
6 mars 2009 à 13:22
Ajoutez un bouton et une picturebox et collez ce code apres avoir declaré Private MyImage As Bitmap:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShowMyImage(imageperso, 200, 200)
End Sub
Private Sub ShowMyImage(ByVal fileToDisplay As String, ByVal xSize As Integer, _
ByVal ySize As Integer)
' Sets up an image object to be displayed.
If (MyImage IsNot Nothing) Then
MyImage.Dispose()
End If
' Stretches the image to fit the pictureBox.
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
MyImage = New Bitmap(fileToDisplay)
PictureBox1.ClientSize = New Size(xSize, ySize)
PictureBox1.Image = CType(MyImage, Image)
End Sub
Par contre, je ne sais pas comment on declare MyImage dans la fonction; msg:"la var est utilisée avant qu'une variable lui soit assignée..."
6 mars 2009 à 12:08
Insosama:Fonctionne immédiatement, c'est agréable pour une 1° utilisation de vbexpress.
Merci
Gillardg:ta ligne est la même (regarde):
image1 = System.Drawing.Image.FromFile(emplacement)
sauf que tu ne redimensionne pas (ça m'étonne de toi un tel commentaire).
29 juil. 2008 à 14:03
Ca fesait un baille que je cherché ce code, 10 pour te remercier ^^
Benji2000
21 juin 2008 à 19:31
en une ligne ça marche aussi
8 mai 2008 à 03:12