Lotus Symphony 1.2


MsgBox 陳述式 [執行時期]

顯示一個包含訊息的對話框。

語法:

MsgBox Text As String[,Type As Integer[,Dialogtitle As String]](As Statement) 或 MsgBox (Text As String[,Type As Integer[,Dialogtitle As String]]) (As Function)

參數:

Text:字串表示式,即在對話框中顯示的訊息。使用 Chr$(13) 可以插入換行符。

DialogTitle:對話框標題列中顯示的字串表示式。如果不指定此參數,標題列將顯示個別應用程式名稱。

Type:任意整數表示式,用於指定對話框類型、要顯示的按鈕數目和類型,及圖示類型。Type 表示位元型樣組合,也就是可透過加入個別值來定義元素的組合:

0 : 僅顯示「確定」按鈕。

1 : 顯示「確定」和「取消」按鈕。

2 : 顯示「取消」和「重試」按鈕。

3 : 顯示「是」、「否」和「取消」按鈕。

4 : 顯示「是」和「否」按鈕。

5 : 顯示「重試」和「取消」按鈕。

16 : 在對話框中加入停止圖示。

32 : 在對話框中加入問號圖示。

48 : 在對話框中加入感嘆號圖示。

64 : 在對話框中加入資訊圖示。

128 : 將對話框中的第一個按鈕作為預設按鈕。

256 : 將對話框中的第二個按鈕作為預設按鈕。

512 : 將對話框中的第三個按鈕作為預設按鈕。

錯誤代碼

5 無效的程序呼叫

範例:

Sub ExampleMsgBox

Const sText1 = "An unexpected error occurred."

Const sText2 = "The program execution will continue, however."

Const sText3 = "Error"

MsgBox (sText1 + Chr (13) + sText2,16,sText3)

End sub


其他文件 | 商標