Waarom werk je niet met een OpenFileDialog en een SaveFileDialog ... ?
Dan kan je vast van start gaan met de volgende code die ik als voorbeeld heb geschreven ...
Tools aanwezig op Form 1 :
Picturebox = Pb1
Afbeelding open = Button : ImageOpen
Opslaan = Button : ImageSave
Dialogen aanwezig op Form 1 :
OpenFileDialog1
SaveFileDialog1
Code:
PublicClass Form1
PrivateSub ImageOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageOpen.Click
OpenFileDialog1.Filter = "Jpeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
OpenFileDialog1.FileName = "Selecteer een afbeelding"
OpenFileDialog1.ShowDialog()
Pb1.Image = Image.FromFile(OpenFileDialog1.FileName)
EndSub
PrivateSub ImageSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageSave.Click
Dim saveFileDialog1 AsNew SaveFileDialog()
saveFileDialog1.Filter = "Jpeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
Dim FileStream As System.IO.FileStream = CType _
(saveFileDialog1.OpenFile(), System.IO.FileStream)
SelectCase saveFileDialog1.FilterIndex
Case 1
Me.Pb1.Image.Save(FileStream, _
System.Drawing.Imaging.ImageFormat.Jpeg)
Case 2
Me.Pb1.Image.Save(FileStream, _
System.Drawing.Imaging.ImageFormat.Bmp)
Case 3
Me.Pb1.Image.Save(FileStream, _
System.Drawing.Imaging.ImageFormat.Gif)
EndSelect
FileStream.Close()
EndIf
EndSub
EndClass
Favorieten/bladwijzers