求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表示窗口中背景的颜色

工具 > 选项 > 编辑器格式 修改如下:

字号: 12

标准文本

- 前景色: 白色

- 背景色: 黑色

密码文本

- 前景色: **

- 背景色: 黑色

标识符文本

- 前景色: 绿色

- 背景色: 黑色

语法错误文本/注释文本/书签文本/调用返回文本

- 背景色: 黑色

“纯色”用PictureBox模拟，所以问题转化为如何获取一个随机的颜色（值）

Private Sub Command1_Click()

Randomize Time

Picture1BackColor = RGB(Rnd 256, Rnd 256, Rnd 256)

MsgBox "当前颜色值：&H" & Hex(Picture1BackColor)

End Sub

如果你有准备好的，并且颜色名字也是固定的（比如文件名就是颜色名称），那么问题就是如何读取文件了。这需要更多的细节

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

form1backcolor = vbRed

endsub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

form1backcolor = vbGreen

end sub

扩展资料：

VB当中的颜色代码

vbBlack &H0 黑色

vbRed &HFF 红色

vbGreen &HFF00 绿色

vbYellow &HFFFF **

vbBlue &HFF0000 兰色

vbMagenta &HFF00FF 洋红

vbCyan &HFFFF00 青色

vbWhite &HFFFFFF 白色

vbGrayText &H80000011 变灰的（无效的）文字

vbButtonText &H80000012 揿压按钮上文字的颜色

vbInactiveCaptionText &H80000013 非活动标题内文字的颜色

vb3DHighlight &H80000014 三维显示元素的高亮颜色

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

vb3DLight &H80000016 低于 vb3Dhighlight 的 三维次高亮颜色

vb3DFace &H8000000F 文字表面的颜色

vb3DShadow  &H80000010 文字阴影的颜色

vbInfoText &H80000017 提示窗内文字的颜色

vbInfoBackground &H80000018 提示窗内背景的颜色

假设标签框的名字为labMain。

改颜色：MelabMainForeColor = 打上颜色，如vbRed

改字体：MelabMainFontName = 输入字体名称，如“宋体”

改字体大小：MelabMainFontSize = 输入大小，如20

改为粗体：MelabMainFontBold = True or False

还有几个，就不一一列出来了。

dim clor

ActiveWorkbookColors(1) = oldcolor

If ApplicationDialogs(xlDialogEditColor)Show(1) = True Then

clor = ActiveWorkbookColors(1)

End If

ActiveWorkbookColors(1) = oldcolor

这个程序可以调用调色板，其中的ActiveWorkbookColors(1)就是取到的当前颜色值

vb单击窗口变红色 *** 作方法： 需输入代码。

PrivateSubForm_Click()MeBackColor=&HFF&'红色EndSub。

窗体是一种文档，可以用来收集信息。它包括两部分，一部分是由窗体设计者输入的，填写窗体的人无法更改的文字或图形。窗体设计者可以插入希望得到回答的问题、选项列表、信息表格等。另一部分是由窗体填写者输入的，用于从填写窗体者处收集信息并进行整理的空白区域。窗体设计者可以在文档中插入窗体域或ActiveX控件，为窗体填写者提供用于收集数据的位置。

以上就是关于求VB中颜色代码全部的内容，包括:求VB中颜色代码、VB代码颜色设置、求一vb程序，要求从纯色图片库里随机出一张图片并显示其颜色（文字） 语句越简单越好等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！