版权声明:本文为博主原创文章,转载请注明出处。 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帮助文档。