逐步解說：結構化例外處理 (Visual Basic)

發行項
08/15/2011

雖然您仍然可以運用 On Error 陳述式來處理程式碼中的例外狀況，以提供非結構化例外處理，但 Visual Basic 2005 也支援結構化例外處理，使用這項處理來建立與維護具有完整錯誤處理功能的程式。在結構化例外處理中，程式碼區塊會針對特定環境進行測試並產生回應。

此逐步解說將示範如何加入結構化例外處理到程式中。特別是，這裡會示範如何使用 Try...Catch...Finally 陳述式處理例外狀況，以及如何在 Catch 區塊內執行錯誤篩選。

注意事項
您不能在同一個程序中合併使用結構化與非結構化例外處理。

注意事項
您的電腦可能會在下列說明中，以不同名稱或位置顯示某些 Visual Studio 使用者介面項目。您所擁有的 Visual Studio 版本以及使用的設定會決定這些項目。如需詳細資訊，請參閱 Visual Studio 設定。

建立應用程式

下列應用程式是一家銷售泰迪熊之公司的客戶訂購表單。使用者介面由下列控制項組成：

一個用於客戶姓名的 TextBox。
兩個選擇泰迪熊顏色與大小的 ComboBox 控制項。
一個 [訂單] Button。
三個向使用者說明每個控制項用途的標籤。
當使用者輸入要求的資訊並按下 [訂單] 按鈕時，應用程式會顯示訂單的摘要。

若要建立應用程式

從 [檔案] 功能表選取 [新增專案]。 [新增專案] 對話方塊隨即出現。
在 [專案類型] 視窗內，選取 [Visual Basic 和 Windows] (若尚未選取)，然後從 [範本] 視窗中選取 [Windows 應用程式]。
在 [屬性] 視窗中的 [名稱] 下，輸入 TeddyBearProject，並按一下 [確定]。專案會加入 [方案總管] 中，且會開啟 Windows Form 設計工具。

將控制項加入至表單，並依照指定的方式設定其屬性。

控制項	屬性	屬性值
標籤	名稱文字	customerLabel 泰迪熊訂購表單
TextBox	名稱文字	customerName 客戶名稱
標籤	名稱文字	bearColorLabel 可選的顏色
ComboBox	名稱 Items 文字	bearColor Black, Brown, Spotted 泰迪熊顏色
標籤	名稱文字	bearSizeLabel 可選的大小
ComboBox	名稱 Items 文字	bearSize Small, Normal, Large 大小
Button	名稱文字	order 訂單

標籤

名稱

文字

customerLabel

泰迪熊訂購表單

TextBox

名稱

文字

customerName

客戶名稱

標籤

名稱

文字

bearColorLabel

可選的顏色

ComboBox

名稱

Items

文字

bearColor

Black, Brown, Spotted

泰迪熊顏色

標籤

名稱

文字

bearSizeLabel

可選的大小

ComboBox

名稱

Items

文字

bearSize

Small, Normal, Large

大小

Button

名稱

文字

order

訂單

加入功能

現在已加入並已設定控制項及其屬性，您必須在它們後面加入程式碼以便開始運作。下列程式碼會處理 [訂單] 按鈕的 Click 事件，並顯示訊息給客戶。

若要將功能加入至表單及其控制項

將下列程式碼加入 [訂單] 按鈕的 Click 事件。

Dim bearOrder As String
bearOrder =
  String.Format("You have ordered a {0} {1} bear.",
  bearSize.SelectedItem, bearColor.SelectedItem)
MsgBox(bearOrder)

現在即可將應用程式加入結構化例外處理程式碼。

加入 Try...Catch 區塊

若要確定客戶是否已經指定泰迪熊的顏色，則加入 Try...Catch 陳述式。請記住以下要點：

不含識別項的 Catch 子句可以取得所有的例外狀況。
含有 When 子句的 Catch 子句只有在運算式評估為 True 時才會取得例外狀況，該運算式型別必須可以隱含轉換為 Boolean。

若要加入簡單的 Try...Catch 區塊

將下列程式碼加入至 [訂單] 按鈕的 Click 事件中測試大小與顏色值的區段之後 (也就是 String.Format ("You have ordered a {0} {1} bear.", BearSize.SelectedItem, BearColor.SelectedItem) 之後)。如果此程式碼遇到無效的顏色值，就會擲回例外狀況。在加入 Try 陳述式時，要注意編輯器會在陳述式結尾自動加入 End Try。
```
Try
    If bearColor.SelectedIndex < 0 OrElse
       bearColor.SelectedIndex > 2 Then
         Throw New System.Exception()
    End If
    ' The Catch statement handles errors caused by a lack of bear color.
Catch ex As Exception When bearColor.SelectedIndex < 0
    bearOrder = String.Format("You must select a bear color!")
Finally
    Beep() ' Beep at the end.
End Try
```

若要加入其他的 Catch 子句

將新項目 "Purple" 加入 bearColor ComboBox 控制項中。

將下列程式碼加入 bearOrder = String.Format("You must select a bear color!") 程式碼行之後。

Catch ex As Exception When bearColor.SelectedIndex = 3
    bearOrder = String.Format("There are no bears of that color.")

您可以視需要在程式碼中加入 Catch 子句，數目不限。

測試

現在您可以測試應用程式，以確定程式運作正常。

若要建置及執行應用程式

從 [建置] 功能表選取 [建置 TeddyBearProject]。
請按 F5 以執行應用程式。主表單隨即顯示。

若要測試應用程式

在 [客戶名稱] 文字方塊中輸入名字，然後從 [可選的顏色] 和 [可選的大小] 下拉式方塊中選取泰迪熊的顏色和大小。
按一下 [訂單] 按鈕。如果您在前一個步驟中選擇了 [黑色]、[棕色] 或 [斑點] 其中一種顏色，則會顯示訊息，列出訂購的泰迪熊大小和顏色。

如果您沒有指定顏色，會出現一段訊息提醒您先指定顏色。
按一下 [確定] 將訊息取消。
在 [可選的顏色] 文字方塊中，選取 [紫色]，然後按一下 [訂單] 按鈕。則會出現訊息，說明沒有紫色的泰迪熊。

請參閱

Share via