vba msgbox html 标签,VBA更改MsgBox中的文本颜色

正如Ralph建议的那样,最好在UserForm中显示您的消息,您可以轻松控制文本特征.

但是,可以使用系统颜色API更改MessageBox文本的颜色.由于MessageBox是一个Window,您可以更改它的颜色参数(不仅仅是文本,还有其他各种参数).

您需要确保之后立即重置原始值,否则所有窗口都将以修改后的颜色显示.

下面的代码将自动检测32位和64位系统,并且同样适用于两者：

Option Explicit

#If Win64 Then

Private Declare PtrSafe Function GetSysColor Lib "user32" _

(ByVal nIndex As Long) As Long

Private Declare PtrSafe Function SetSysColors Lib "user32" _

(ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

#Else

Private Declare Function GetSysColor Lib "user32" _

(ByVal nIndex As Long) As Long

Private Declare Function SetSysColors Lib "user32" _

(ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

#End If

Private Const COLOR_WINDOWTEXT As Long = 8

Private Const CHANGE_INDEX As Long = 1

Public Sub RunMe()

Dim defaultColour As Long

'Store the default system colour

defaultColour = GetSysColor(COLOR_WINDOWTEXT)

'Set system colour to red

SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, vbRed

MsgBox "Incorrect", , "Your result is..."

'Set system colour to green

SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, vbGreen

MsgBox "Correct", , "Your result is..."

'Restore default value

SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, defaultColour

End Sub

vba msgbox html 标签,VBA更改MsgBox中的文本颜色相关推荐

html表格一行设置颜色,更改表格中一行的颜色，html
我想用html和css制作表格.但我的问题是,我希望桌子有两种颜色的行,一个橙色和一个白色....我使用JavaScript来填充表格.但我不能改变颜色在第二种情况下.什么sintax我应该使用使用J ...
更改PDF中的文本框的文字的大小和颜色
1,点击文本框工具,添加文本框,并输入内容 2,更改PDF中的文本框的文字的大小和颜色键盘Ctrl+E,将弹出文本属性菜单,此时就可以更改文本的字体.大小和颜色了. 参考:https://jingy ...
linux命令行颜色,技术|在 Linux 命令行中自定义文本颜色
在 Linux 命令行当中使用不同颜色以期提供一种根据文件类型来识别文件的简单方式.你可以修改这些颜色,但是在做之前应该对你做的事情有充分的理由. 如果你在 Linux 命令行上花费了大量的时间(如果 ...
Android中设置文本颜色的五种方法
0.利用系统自带的颜色类 tx.setTextColor(android.graphics.Color.RED); 一.利用系统自带颜色XML文件 @android:color/holo_red_da ...
如何修改Linux命令行中的文本颜色
简述如果你在 Linux 命令行上花费了大量的时间(如果没有,那么你可能不会读这篇文章),你无疑注意到了 ls 以多种不同的颜色显示文件.你可能也注意到了一些区别 -- 目录是一种颜色,可执行文件是 ...
android searchview光标,android – 在没有ActionBarSherlock的情况下更改SearchView中的光标颜色...
我试图在ICS中的SearchView小部件上更改闪烁光标的颜色.我尝试过以下方法: >添加< item name ="android:textCursorDrawable&qu ...
python读excel字体颜色_无法使用python xlsxwri更改excel中的字体颜色
在XlsxWriter中使用条件格式时,最好先弄清楚要在Excel中执行什么操作,然后将其传输到XlsxWriter.在在这种情况下,Excel不支持单元格与字符串相等.相反,你必须使用" ...
Ps 初学者教程「52」如何更改照片中的天空颜色？
欢迎观看 Photoshop 教程,小编带大家了解如何使用混合颜色带将照片中的阴暗天空替换为更漂亮的天空. 这里有两张图片,要替换天空,需要使用「混合颜色带」滑块,它位于「图层样式」对话框中.在开始之 ...
python画图设置彩色线条_更改绘图中的线条颜色
我在Python中用一些数据绘制了一个曲面图. 现在我试图改变这种情节的风格.但不幸的是,我陷入了线颜色的困境.它的默认值是黑色,但我想让它变成红色或其他颜色. 我的代码是:from mpl_tool ...
android tabhost黑色背景,android更改FragmentTabHost背景和文本颜色
您必须使用操作栏选项卡为每个选项卡获取不同的颜色. MainActivity.java:强> public class MainActivity extends FragmentActivity ...

vba msgbox html 标签,VBA更改MsgBox中的文本颜色

vba msgbox html 标签,VBA更改MsgBox中的文本颜色相关推荐

最新文章

热门文章