miblkimo

2013-04-15

VB學習心得9.例外類別與錯誤處理機制

摘要:VB學習心得9.例外類別與錯誤處理機制

參考書籍:Visual Basic 2008程式設計學習教本

15-32頁
7.於表單配置一個文字輸入方塊,讓使用者輸入數值,另外配置一個按鈕.當使用者按下按鈕時,利用Cint函數轉換文字方塊的值,並以MsgBox顯示出來,透過Try-Catch捕捉可能的錯誤
 
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim showtext As Integer = CInt(TextBox1.Text)
            MsgBox(showtext)
        Catch ex As Exception
            TextBox2.Text = ex.Source + vbCrLf
            TextBox2.Text = ex.StackTrace + vbCrLf
            MsgBox(ex.Message)
        End Try
    End Sub
End Class