扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
函数原型 Function RGB(Red As Integer, Green As Integer, Blue As Integer) As Long
创新互联建站公司2013年成立,是专业互联网技术服务公司,拥有项目成都网站建设、成都网站制作网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元淇县做网站,已为上家服务,为淇县各地企业和个人服务,联系电话:18982081108
Red 为红色颜色值
Green 为绿色颜色值
Blue为红色颜色值.范围均为0~255
三者均为0 是为纯黑色
三者均为255时为纯白色
Eg:将窗体背景设置为红色
Private Sub Form_Load()
Me.BackColor = RGB(255, 0, 0)
End Sub
在属性里面-你找到FORM1的窗体属性-那边有2个有颜色的属性值旁边是有个颜色小框框的。你把它换了就可以了。
具体换什么颜色你自己看着来换。。
追问:
我的意思是用color.FormArgb()方法
回答:
vb6的vbWhite在VB.NET中是Color.White
vb6的H808080在VB.NET中是Color.FormArgb(H808080)
如果是System.UInt32
With txtHtml
.SetColor(CodeMax.cmColorItem.cmClrLeftMargin, H808080)
.SetColor(CodeMax.cmColorItem.cmClrLineNumberBk, H808080)
.SetColor(CodeMax.cmColorItem.cmClrLineNumber, i)
.HighlightedLine = 0
End With
这段时间在VB6中运行正常,但是在VB.net中就会提示说"H808080"无法转换为System.Uint32
Convert.ToUInt32(H808080)就行了,如果用VB2005就支持无符号数了,VB.NET暂时不支持。
补充:
函数RGB,格式:
RGB(red,green,blue),red、green、blue取值0~255。
函数QBColor,格式:
QBColor(color),color取值0~15,代表颜色编号,即只能表示16种颜色。
RGB 函数
返回一个 Long整数,用来表示一个 RGB 颜色值。
语法
RGB(red, green, blue)
RGB 函数的语法含有以下这些命名参数:
部分 描述
red 必要参数;Variant (Integer)。数值范围从 0 到 255,表示颜色的红色成份。
green 必要参数;Variant (Integer)。数值范围从 0 到 255,表示颜色的绿色成份。
blue 必要参数;Variant (Integer)。数值范围从 0 到 255,表示颜色的兰色成份。
说明
可以接受颜色说明的应用程序的方法和属性期望这个说明是一个代表 RGB 颜色值的数值。一个 RGB 颜色值指定红、绿、蓝三原色的相对亮度,生成一个用于显示的特定颜色。
传给 RGB 的任何参数的值,如果超过 255,会被当作 255。
下面的表格显示一些常见的标准颜色,以及这些颜色的红、绿、蓝三原色的成份:
颜色 红色值 绿色值 兰色值 黑色 0 0 0 兰色 0 0 255 绿色 0 255 0 青色 0 255 255 红色 255 0 0 洋红色 255 0 255 黄色 255 255 0 白色 255 255 255 QBColor 函数 返回一个 Long,用来表示所对应颜色值的 RGB 颜色码。
补充:
语法:
QBColor(color)
必要的 color 参数是一个界于 0 到 15 的整型。
设置值
color 参数有以下这些设置:
值 颜色 值 颜色 0 黑色 8 灰色
1 兰色 9 亮兰色 2 绿色 10 亮绿色 3 青色 11 亮青色 4 红色 12 亮红色 5 洋红色 13 亮洋红色 6 黄色 14 亮黄色 7 白色 15 亮白色 说明:color 参数代表使用于早期版本的 Basic(诸如 Microsoft Visual Basic for MS-DOS 以及 Basic Compiler)的颜色值。始于最低有效字节,返回值指定了红、绿、蓝三原色的值,用于设置成 VBA中RGB 系统的对应颜色。
R/G/B值最小是0最大是255属Byte值类型
Dim cr As Color = 控件.BackColor '获取控件背景色
Dim alpha As Byte = cr.A '透明度
Dim R As Byte = cr.R 'R值
Dim G As Byte = cr.G 'G值
Dim B As Byte = cr.B 'B值
Dim outAcr As Color = Color.FromArgb(alpha, R, G, B) '创建带有透明通道的ARGB颜色
Dim outcr As Color = Color.FromArgb(R, G, B) '创建不透明的RGB颜色
VB中的RGB是就是三基色的意思:
红色RED;
绿色GREEN;
蓝色BLUE。
VB是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说,VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流