Try .. Catch 使用方法 |
Try .. Catch – Description 當 Try 出現 錯誤時, 就直接執行 Catch 內既 指令 不會直接 因 Error 而直接停止 Application 下面例子 : L1.Text = "After Press" & ABC(2) 因為 ABC(2) 沒有 Index : 2 既 Item, 所以出現錯誤 因為用左 Try .. Catch , 所以 Error 後會執行 Catch 內既 Code, 而唔會直接停止 Application |
Private Sub B1_Click() Dim ABC As New ArrayList ABC.Add("123") Try L1.Text = "After Press" & ABC(2) Catch ex As Exception L1.Text = "Error" End Try End Sub |