Error handling & error provider

Error Handling

Fungsinya dari error handling untuk menangkap atau mencegah kemungkinan error yang terjadi dan yang dihasilkan oleh suatu proses. Dengan menggunakan :

1. "Try... Catch... Finally"

* Bertujuan untuk melindungi blok kode program yang mempunyai potensi untuk terjadi suatu kesalahan.

Contoh pengunaan :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e_ As System.EventArgs)Handles Button1.Click
Dim a As Integer
Dim b As Integer = 3

Try
a = b + "Hello"
Catch When Err.Number
MessageBox.Show(Err,Desccription)
Finally
MessageBox.Show("Finnish")
End Try
End Sub

2. "Throw Exception"

* Berguna untuk melakukan validasi terhadap data yang akan dimasukkan dalam sebuah property jika nilai yang dimasukkan kurang dari 0 maka akan melempar exception tidak boleh dibawah 0.


Contoh pengunaan :

Public Class CtnhOrg
Private mintAge As Integer
Public Property Age() As Integer

Get
Age = mintAge
End Get

Set(ByVal Value As Integer)
If Value >= 0 Then
mintAge = Value
Else

Throw New ApplicationException("Age cannot be negative")
End If
End Set
End Property
End Class



Error Provider

Fungsinya Bertujuan untuk mengatur pesan kesalahan pada setiap kontrol dalam form dengan cara menampilkan tooltip ketika isian tidak valid atau memudahkan dalam melakukan validasi terhadap kemungkinan error yang terjadi pada inputan yang berhubungan dengan user interface.


Contoh pengunaan :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e_
As System.EventArgs)Handles Button1.Click
If TextBox.Text = "" Then
ErrorProvider1.SetError(TextBox,"Cannot leave textbox_ blank")
Else
ErrorProvider1.SetError(TextBox. "")
End If
End Sub