VBA代碼中,Msgbox函數如何實現個性化對話框

朋友們好，今日我們講解VBA代碼解決方案的第39講：VBA 代碼中如何實現Msgbox函數定製化人機對話消息框。

在上篇文章中簡單實現了MSGBOX對話框，但是界面不是很友好，那麼，如果希望MsgBox函數顯示的消息框具有特定的按鈕、圖標和標題欄，實現相對友好的人機對話界面該怎麼辦呢？可以使用MsgBox函數的buttons參數和title參數來解決

我們看看下面的表格MsgBox函數的buttons參數設置值：

在設定buttons參數值時，這些值可以相加使用，但每一組中只能選擇一個值。在程序代碼中也可以使用buttons參數的常數名稱，而不必使用實際數值。下面我們看看一個實際的應用：

如下面的代碼所示。

Sub MySpecialmsbox()

MsgBox Prompt:="歡迎光臨【VBA與GO語言】學習平臺，讓我一起學習！", _

Buttons:=vbOKCancel + vbInformation, _

Title:="溫馨提示"

End Sub

代碼解析：

MySpecialmsbox過程使用MsgBox函數顯示一個具有特定的按鈕、圖標和標題欄的消息框。

第3行代碼設置消息框的Buttons參數為vbOKCancel + vbInformation,，vbOKCancel如上的列表中「第一組設置消息框按鈕數目和類型」使消息框顯示時具有「確定」、「取消」按鈕和信息消息圖標。vbInformation是顯示信息消息圖標。

第4行代碼將消息框的Title參數設置為「溫馨提示」，使消息框的標題欄顯示「溫馨提示」。

下面看看MySpecialmsbox過程的代碼截圖，之所以要給出此截圖也是我實測的過程：

運行結果：

大家可以看到在上面的對話框中有一個藍色的驚嘆號，如果把上面的代碼修改為：

Sub MySpecialmsbox()

MsgBox Prompt:="歡迎光臨【VBA與GO語言】學習平臺，讓我一起學習！", _

Buttons:=vbOKCancel, _

Title:="溫馨提示"

End Sub

也就是說講vbOKCancel + vbInformation中修改為vbOKCancel則不顯示這個驚嘆號：如下圖：

今日內容回向：

1 MsgBox 函數如何實現定製化的友好界面？

2 上面Buttons各個值都有什麼意義？

分享成果，隨喜正能量