VBA中的彩色消息框

版权声明：本文为博主原创文章，转载请注明出处。 https://blog.csdn.net/taller_2000/article/details/80677576

VBA中显示消息框实在太简单了，一句MsgBox就可以了。

千篇一律的风格，不能漂亮一点儿吗？我们来给它点儿颜色看看，哈哈

Private Declare Function SetSysColors Lib "user32" ( _
                        ByVal nChanges As Long, _
                        lpSysColor As Long, _
                        lpColorvalues As Long) As Long
Declare Function GetSysColor Lib "user32" ( _
                        ByVal nIndex As Long) As Long
Const COLOR_WINDOWTEXT = 8
Const COLOR_CAPTIONTEXT = 9
Sub CustomMsgBoxFont()
    Dim lngRes As Long
    Dim lngWinText As Long
    Dim lngCapText As Long
    lngWinText = GetSysColor(COLOR_WINDOWTEXT)
    lngCapText = GetSysColor(COLOR_CAPTIONTEXT)
    lngRes = SetSysColors(1, COLOR_WINDOWTEXT, vbRed)
    lngRes = SetSysColors(1, COLOR_CAPTIONTEXT, vbYellow)
    MsgBox "黄色标题，红色文字！", 32, "彩色提示框"
    lngRes = SetSysColors(1, COLOR_WINDOWTEXT, lngWinText)
    lngRes = SetSysColors(1, COLOR_CAPTIONTEXT, lngCapText)
    MsgBox "红色标题，绿色文字！", 32, "彩色提示框"
End Sub

两个API就搞定了，看看彩色效果如何。

API函数GetSysColor用于读取系统颜色设置，以便于恢复。SetSysColors函数用于设置系统颜色，参数lpSysColor指定系统Windows对象，代码中只使用了COLOR_WINDOWTEXT（窗体中的文字）和 COLOR_CAPTIONTEXT （标题栏文字）两个常量，如果需要修改更多元素，请参阅API帮助文档。