Pernyataan Resume

Artikel
03/05/2024

Melanjutkan eksekusi setelah rutinitas penanganan kesalahan selesai.

Sebaiknya gunakan penanganan pengecualian terstruktur dalam kode Anda jika memungkinkan, daripada menggunakan penanganan pengecualian yang tidak terstruktur dan pernyataan On Error serta Resume. Untuk informasi selengkapnya, lihat Pernyataan Try...Catch...Finally.

Sintaks

Resume [ Next | line ]

Generator

Resume
Harus diisi. Jika kesalahan terjadi dalam prosedur yang sama dengan handler kesalahan, eksekusi dilanjutkan dengan pernyataan yang menyebabkan kesalahan. Jika kesalahan terjadi dalam prosedur yang dipanggil, eksekusi dilanjutkan pada pernyataan yang terakhir dipanggil dari prosedur yang berisi rutinitas penanganan kesalahan.

Next
Opsional. Jika kesalahan terjadi dalam prosedur yang sama dengan penanganan kesalahan, eksekusi dilanjutkan dengan pernyataan segera setelah pernyataan yang menyebabkan kesalahan. Jika kesalahan terjadi dalam prosedur yang dipanggil, eksekusi dilanjutkan dengan pernyataan segera setelah pernyataan yang terakhir dipanggil dari prosedur yang berisi rutinitas penanganan kesalahan (atau pernyataan On Error Resume Next).

line
Opsional. Eksekusi dilanjutkan pada baris yang ditentukan dalam argumen line yang diperlukan. Argumen line adalah label baris atau nomor baris dan harus dalam prosedur yang sama dengan penangan kesalahan.

Keterangan

Catatan

Sebaiknya gunakan penanganan pengecualian terstruktur dalam kode Anda jika memungkinkan, daripada menggunakan penanganan pengecualian yang tidak terstruktur dan pernyataan On Error dan Resume. Untuk informasi selengkapnya, lihat Pernyataan Try...Catch...Finally.

Jika Anda menggunakan pernyataan Resume di mana saja selain dalam rutinitas penanganan kesalahan, kesalahan terjadi.

Pernyataan Resume tidak dapat digunakan dalam prosedur apa pun yang berisi pernyataan Try...Catch...Finally.

Contoh

Contoh ini menggunakan pernyataan Resume untuk mengakhiri penanganan kesalahan dalam prosedur, lalu melanjutkan eksekusi dengan pernyataan yang menyebabkan kesalahan. Nomor kesalahan 55 dihasilkan untuk mengilustrasikan penggunaan pernyataan Resume.

Sub ResumeStatementDemo()
  On Error GoTo ErrorHandler   ' Enable error-handling routine.
  Dim x As Integer = 32
  Dim y As Integer = 0
  Dim z As Integer
  z = x / y   ' Creates a divide by zero error
  Exit Sub   ' Exit Sub to avoid error handler.
ErrorHandler:     ' Error-handling routine.
  Select Case Err.Number   ' Evaluate error number.
      Case 6   ' "Divide by zero" error.
        y = 1 ' Sets the value of y to 1 and tries the calculation again.
      Case Else
        ' Handle other situations here....
  End Select
  Resume   ' Resume execution at same line
  ' that caused the error.
End Sub

Persyaratan

Namespace layanan: Microsoft.VisualBasic

Perakitan: Pustaka Runtime Visual Basic (di Microsoft.VisualBasic.dll)

Bagikan melalui