Dim chem = "E:\PHOTO200207\DATA\Le 2002 07 10 Maayane 1 An\DSC04550.JPG" Dim fs As System.IO.FileStream ' Specify a valid picture file path on your computer. fs = New System.IO.FileStream(chem, IO.FileMode.Open, IO.FileAccess.Read) ' PictureBox1.SizeMode = PictureBoxSizeMode.Zoom Me.PictureBox2.Image = System.Drawing.Image.FromStream(fs) Dim bmp As Bitmap = Image.FromStream(fs) 'Dim Wide, High As Integer ' Size of merged image fs.Close() fs.Dispose() fs = Nothing If Me.PictureBox2.Image IsNot Nothing Then Me.PictureBox2.Image.Save("D:\aa.jpg") End If
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ICI Merci d'y penser dans tes prochains messages. |
pictureBox1.Load(Directory.GetFiles("C:\Users\Public\Pictures\Sample Pictures")(0)) If pictureBox1.Image IsNot Nothing Then pictureBox1.Image.Save("C:\Test\essai.png") End If
Dim chem = "E:\PHOTO200207\DATA\Le 2002 07 10 Maayane 1 An\DSC04550.JPG" Dim fs As System.IO.FileStream ' Specify a valid picture file path on your computer. fs = New System.IO.FileStream(chem, IO.FileMode.Open, IO.FileAccess.Read) ' PictureBox1.SizeMode = PictureBoxSizeMode.Zoom Me.PictureBox2.Image = System.Drawing.Image.FromStream(fs) Dim bmp As Bitmap = CType(Image.FromStream(fs), Bitmap) 'Dim Wide, High As Integer ' Size of merged image If Me.PictureBox2.Image IsNot Nothing Then Me.PictureBox2.Image.Save("D:\aa.jpg") End If fs.Close() fs.Dispose() fs = Nothing
Me.PictureBox2.Image= Image.FromFile("chemin")
Dim bmp As Bitmap = CType(Image.FromStream(fs), Bitmap)
Me.PictureBox2.Image.Save("D:\aa.jpg", ImageFormat.Jpeg) 'enregistrement des images