MEMBUAT APLIKASI PENGOLAH GAMBAR DI VBNET 2010

                            MEMBUAT APLIKASI PENGOLAH GAMBAR DI VBNET 2010

1 PICTUREBOX,4 button,1 OpenFileDialog=OFD, 1 savefiledialog=SFG

Public Class FormGambar
    Dim gambar As Bitmap
    Private Sub btnlodgambar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlodgambar.Click
        OFD.Filter = "JPG Files|*.jpg|BMP Files|*.bmp|JPEG Files|*.jpeg|PNG Files|*png"
        OFD.ShowDialog()
        If OFD.FileName = "" Then Exit Sub
        PictureBox1.Image = Image.FromFile(OFD.FileName)
        gambar = New Bitmap(PictureBox1.Image)
    End Sub

    Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        SFG.Filter = "JPG Files|*.jpg|BMP Files|*.bmp|JPEG Files|*.jpeg|PNG Files|*png"
        SFG.Title = "Simpan Gambar"
        Dim result As DialogResult = SFG.ShowDialog
        If result = Windows.Forms.DialogResult.OK Or result = Windows.Forms.DialogResult.Yes Then
            PictureBox1.Image.Save(SFG.FileName)
            MsgBox("Gambar Telah DI SImpan")
        End If
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        PictureBox1.Image = Nothing
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class