opslaan van een plaatje

[infur]

ik heb een soort paint gemaakt met behulp van AxInkPicture1 en daarop kan je gummen en tekenen. en nu wil ik dat het plaatje wordt opgeslagen. weet iemand dat script.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ColorDialog1.ShowDialog()
        AxInkPicture1.CtlBackColor = ColorDialog1.Color
    End Sub

    Private Sub AxInkPicture1_Stroke(ByVal sender As System.Object, ByVal e As AxMSINKAUTLib._IInkPictureEvents_StrokeEvent) Handles AxInkPicture1.Stroke

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AxInkPicture1.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Delete
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        AxInkPicture1.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Ink
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        AxInkPicture1.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Select
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
                 'hier moet het opslaan ding komen
    End Sub

 

[The Mighty Atom]

Probeer dit:

        Dim Image As Bitmap = PictureBox1.Image

        Image.Save(Application.StartupPath & "\YourImage.bmp", _
            System.Drawing.Imaging.ImageFormat.Bmp)

        Image.Save(Application.StartupPath & "\YourImage.jpg", _
            System.Drawing.Imaging.ImageFormat.Jpeg)

        Image.Save(Application.StartupPath & "\YourImage.gif", _
            System.Drawing.Imaging.ImageFormat.Gif)

Deze code slaat een plaatje op dat in een PictureBox zichtbaar is in drie verschillende bestandsformaten.