meriemabdelouahab
Messages postés6Date d'inscriptionmercredi 13 janvier 2010StatutMembreDernière intervention23 février 2010
-
21 févr. 2010 à 22:48
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 2011
-
21 févr. 2010 à 23:10
bonjour,j'ai déjà déposé cette question mais je n'ai pas reçu la réponse,je veux parcourir une image dans ma formulaire,voilà le code que j'ai trouvé pour le téléchargement de l'image
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim OpenImg As New OpenFileDialog()
OpenImg.InitialDirectory = Application.StartupPath
OpenImg.Filter = "jpeg files (*.jpg)|*.jpg|PNG (*.png)|*.png|Gif (*.gif)|*.gif"
OpenImg.FilterIndex = 1
OpenImg.RestoreDirectory = True
'affiche l'image sélectionnée
a: If OpenImg.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim MAX_IMAGE_SIZE As Long = 500000
Dim ms As New System.IO.MemoryStream
Dim img As Image
img = New Bitmap(OpenImg.FileName)
img.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
If ms.Length > MAX_IMAGE_SIZE Then
MessageBox.Show("La photo ne doit pas depasser 500 ko", "Photo trop grosse", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
GoTo a
End If
Me.PictureBox1.Image = CType(img, Image)
imag.Text = IO.Path.GetFileName(OpenImg.FileName)
Dim image As String = IO.Path.GetFileName(OpenImg.FileName)
'Dim t1 As String = IO.Path.GetDirectoryName(Application.StartupPath)