Cara Membuat Generic Handler Error di VB6

Dalam artikel kali ini saya akan berbagi kode bagaimana cara membuat Generic Handle Error dengan mengguakan Visual Basic 6.0.

Handle error merupakan penanganan kesalahan pada berbagai macam keadaan.

Untuk membuat generic handle error di form vb6 caranya adalah buka form vb6 anda kemudian tambahkan 1 Form baru yaitu Form2, jadi disini kita mempunyai 2 Form yaitu Form1 dan Form2.

Pada Form1 tambahkan 3 Cmmandbutton, kemudian ketik kode dibawah ini :

Option Explicit

Private Sub Form_Load()

    On Error GoTo FormLoadErr

    Err.Raise 76

    Err.Raise 70

    Exit Sub

FormLoadErr:

    Select Case Err.Number

        Case 76

            MsgBox "Form_Load Error Handler. Form Does Not Exist"

        Case Else

            AppWideErr (Err.Number)

    End Select

End Sub

Private Sub Command1_Click()

    On Error GoTo Cmd1Err

    Err.Raise 53

    Err.Raise 70

    Exit Sub

Cmd1Err:

    Select Case Err.Number

        Case 53

            MsgBox "Command 1 Error Handler"

        Case Else

            AppWideErr (Err.Number)

    End Select

    Resume Next

End Sub

Private Sub Command2_Click()

    Form2.Show

End Sub

Private Sub Command3_Click()

    On Error GoTo ThisSubErr

    Err.Raise 17

    Exit Sub

ThisSubErr:

    AppWideErr (Err.Number)

End Sub

Public Sub AppWideErr(lnErrNumber)

    Select Case lnErrNumber

        Case 70

            MsgBox "Generic Routine.  Access Denied.  See Net Administrator.", , "AppWideErr"

            Exit Sub

        Case Else

            MsgBox "Generic Routine. Unhandled Error: " + Err.Description + " # " & lnErrNumber, , "AppWideErr"

            Exit Sub

    End Select

End Sub

Setelah mengetik kode atas coba jalankan project anda dan hasilnya seperti tampak pada gambar diatas.

Demikian artikel kali ini tentang cara membuat generic handle error di vb6, semoga artikel ini bermanfaat buat kita semua, Amin.

Selamat mencoba semoga berhasil

Related Post: Uncategories