Try .. Catch 使用方法

 

   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