ถามวิธีใช้ On Error GoTo line

[somkiatfem]

ถามวิธีใช้ On Error GoTo line ครับ ขอบคุณครับ

[bank9597]

ถามวิธีใช้ On Error GoTo line ครับ ขอบคุณครับ

ใช้ On Error GoTo ErrorHandler แทนดูครับ

ตัวอย่างโค๊ด

Code: Select all

Public Sub InitializeMatrix(ByVal Var1 As Object, ByVal Var2 As Object)
   On Error GoTo ErrorHandler
   ' Insert code that might generate an error here 
   Exit Sub
ErrorHandler:
   ' Insert code to handle the error here 
   Resume Next 
End Sub

[somkiatfem]

ไม่เข้าใจตรงนี้นะครับ รบกวนด้วยครับ

ErrorHandler:
' Insert code to handle the error here
Resume Next

[bank9597]

ไม่เข้าใจตรงนี้นะครับ รบกวนด้วยครับ

ErrorHandler:
' Insert code to handle the error here
Resume Next

หมายความว่า ถ้าหากเจอเออร์เรอร์ เราจะให้โปรแกรมทำอะไรต่อไป เช่น แสดง msgbox หรือ Exit Sub เป็นต้น