คำสั่ง On Error Resume Next
ถ้าพบ error ให้ข้ามบรรทัดคำสั่งไปเลย คือโปรแกรมจะไม่หยุดทำงานเมื่อมี error เกิดขึ้น
ตัวอย่าง
Me.txtFileDir.Text = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Config.ini")
เปิดโปรแกรมแล้วไม่พบไฟล์ Config.ini โปรแกรมจะ error ทันทีและปิดตัวเองลง
รูปแบบการใช้งาน
Private Sub on_Load(sender As Object, e As EventArgs) Handles MyBase.Load
On Error Resume Next
Me.txtFileDir.Text = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Config.ini")
End Sub
ไม่มีความคิดเห็น:
แสดงความคิดเห็น