VB.net - 提示視窗、跳出視窗(Msgbox)

我的範例:

            Dim response As MsgBoxResult
            response = MsgBox(strProofing, vbYesNo + vbExclamation, "內容確認")

            If response = MsgBoxResult.No Then
                Exit Sub
            End If


範例:

Dim msg As String
Dim title As String
Dim style As MsgBoxStyle
Dim response As MsgBoxResult
msg = "Do you want to continue?"   ' Define message.
style = MsgBoxStyle.DefaultButton2 Or _
   MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
title = "MsgBox Demonstration"   ' Define title.
' Display message.
response = MsgBox(msg, style, title)
If response = MsgBoxResult.Yes Then   ' User chose Yes.
   ' Perform some action.
Else
   ' Perform some other action.
End If

Public Function MsgBox( _
   ByVal Prompt As Object, _
   Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly, _
   Optional ByVal Title As Object = Nothing _
) As MsgBoxResult

Prompt

必要項。顯示為對話方塊中訊息的 String 運算式。視使用的字元寬度而定，Prompt 的最大長度大約是 1024 個字元。如果 Prompt 是由一行以上所組成，則您可在每一行之間使用歸位字元 (Chr(13))、換行字元 (Chr(10)) 或歸位/換行字元的組合 (Chr(13) & Chr(10))，來隔開這些行。

Buttons

選擇項。數值運算式，這個值總和指定要顯示的按鈕數目和類型、要使用的圖示樣式、預設按鈕的識別及訊息方塊的強制回應性。如果省略 Buttons，則預設值為零。

Title

選擇項。顯示在對話方塊標題列中的 String 運算式。如果省略 Title，則會將應用程式名稱放置在標題列中。

下表所列為 MsgBoxStyle 列舉值。

成員	值	描述
OKOnly	0	僅顯示 [確定] 按鈕。
OKCancel	1	顯示 [確定] 和 [取消] 按鈕。
AbortRetryIgnore	2	顯示 [中止]、[重試] 和 [忽略] 按鈕。
YesNoCancel	3	顯示 [是]、[否] 和 [取消] 按鈕。
YesNo	4	顯示 [是] 和 [否] 按鈕。
RetryCancel	5	顯示 [重試] 和 [取消] 按鈕。
Critical	16	顯示 [重大訊息] 圖示。
Question	32	顯示 [警告查詢] 圖示。
Exclamation	48	顯示 [警告訊息] 圖示。
Information	64	顯示 [資訊訊息] 圖示。
DefaultButton1	0	第一個按鈕是預設值。
DefaultButton2	256	第二個按鈕是預設值。
DefaultButton3	512	第三個按鈕是預設值。
ApplicationModal	0	應用程式是強制回應的。使用者必須在繼續使用目前應用程式之前先回應訊息方塊。
SystemModal	4096	系統是強制回應的。所有的應用程式都會暫止，直到使用者對訊息方塊做出回應時為止。
MsgBoxSetForeground	65536	將訊息方塊視窗指定為前景視窗。
MsgBoxRight	524288	文字靠右對齊。
MsgBoxRtlReading	1048576	指定在希伯來文或阿拉伯文的系統上，文字應該以從右到左的書寫方式呈現。

第一個值群組 (0-5) 描述對話方塊中所顯示的按鈕數目和型別。第二個群組 (16、32、48、64) 描述圖示樣式。第三個群組 (0、256、512) 判斷哪個是預設值。第四個群組 (0、4096) 判斷訊息方塊的形式，而第五個群組則指定訊息方塊視窗是否為前景視窗，以及文字的對齊和方向。當加入數字來建立 Buttons 引數的最後值時，只能使用每個群組當中的一個數

http://msdn.microsoft.com/zh-tw/library/139z2azd(v=vs.90).aspx