VBA中的彩色消息框

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帮助文档。

注意：Windows 10 和 11 不支持设置标题栏颜色COLOR_CAPTIONTEXT。