求VB中颜色代码

使用颜色常数：Form1背景色＝虚拟现实。

背景色＝vbBlue＇蓝色。

背景色＝vbWhite＇白色。

使用QBColor函数：form1。背景色＝QBColor（n）n个值，从0到15。

使用RGB函数：form1。背景色＝RGB（r，g，b）＇r，b，值分别为0到255。

扩展资料：

VbGreen &HFF00 green

VbYellow &HFFFF黄色

VbBlue &HFF0000蓝色

vb品红色&HFF00FF品红色

VbCyan &HFFFF00青色

VbWhite &HFFFFFF white

VbGrayText &H80000011灰色(无效)文本

VbButtonText &H80000012按下按钮上文字的颜色

VbInactiveCaptionText &H80000013非活动标题中的文本颜色

Vb3DHighlight &H80000014高亮显示3d显示元素的颜色

Vb3DDKShadow &H80000015三维显示元素的最暗阴影颜色

在3d中，Vb3DLight和h80000016低于vb3Dhighlight

Vb3DFace &H8000000F文本表面颜色

Vb3DShadow &H80000010文本阴影颜色

VbInfoText &H80000017提示窗口文字颜色

VbInfoBackground &H80000018表示窗口中背景的颜色

先在程序中加一个Label,名字应该符合VB程序控件命名规范:

lbl<名称>

再加一个Timer控件,名字也要符合命名规范

在窗体代码对话框中打入

Private Sub Form_Load()

On Error Resume Next

Me.Font = "Arial"

Me.FontSize = 24

Me.FontBold = True

<Timer控件名>.Enabled = True

<Timer控件名>.Interval = 1000

End Sub

'下列函数只能二选其一

'是时间显示

Private Sub <Timer控件名>_Timer()

On Error Resume Next

<Label控件名>.Caption = Time

End Sub

'是日期与时间显示

Private Sub <Timer控件名>_Timer()

On Error Resume Next

<Label控件名>.Caption = Now

End Sub

---