Program Exception Handling

1. Desain Awal Program

2. Atur Properties Masing-masing Objek sebagai berikut:

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Form1	Text	Aplikasi Buka Gambar
2	Openfiledialog1	Name	OfdBuka
3	PictureBox	Name	Pcbgambar
4	Button1	Text	Buka
		Name	Btnbuka
5	Button2	Text	Exit
		Name	Btnexit

Tampilan program setelah pengaturan properties sebagai berikut:

3. Pemberian Perintah/Instruksi pada Program

     Alur Program:

a.    Jika dilklik Button1 (Buka) maka kita diperintah untuk mencari file gambar pada Openfiledialog1 (Ofdbuka) yang akan menanpilkan langsung file di komputer kita dan kita pilih file gambar yang berformat (Jpg) selain dari format tersebut maka tidak dapat tampil pada PictureBox1 (Pcbgambar).

b.    Button2 (Exit) untuk keluar pada program tersebut dan akan menampilkan message box “Yakin ingin menutup Program ini ?”.

Perintah Program

Public Class Form2

    Private Sub Btnbuka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbuka.Click

        If Ofdbuka.ShowDialog() = Windows.Forms.DialogResult.OK Then

            Try

                PcbGambar.Image = Image.FromFile(Ofdbuka.FileName)

                Me.Text = "Membuka File" + Ofdbuka.FileName

            Catch ex As Exception

                MessageBox.Show("File gagal dibuka", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

            End Try

        End If

    End Sub

    Private Sub Btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnexit.Click

        Dim Tutup As String

        Tutup = MessageBox.Show("Yakin tutup Form ini ?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If Tutup = MsgBoxResult.Yes Then

            End

        Else

            Exit Sub

        End If

    End Sub

End Class

Tampilan Program setelah dijalankan sebagai berikut :