新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
应改成
成都创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于成都网站建设、成都网站设计、白山网络推广、重庆小程序开发、白山网络营销、白山企业策划、白山品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;成都创新互联公司为所有大学生创业者提供白山建站搭建服务,24小时服务热线:18980820575,官方网址:www.cdcxhl.com
Label4.ForeColor = Color.FromArgb(255, 255, 255, 255)
RGB函数是这样的
Public Function RGB(Red As Integer, Green As Integer, Blue As Integer) As Integer
它返回一个Integer不是Color结构
应该用Color.FromArgb
Public Shared Function FromArgb(alpha As Integer, red As Integer, green As Integer, blue As Integer) As System.Drawing.Color
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
Dim GetColor As Color = CType(PictureBox1.Image, Bitmap).GetPixel(e.X, e.Y)
TextBox3.Text = GetColor.B.ToString
TextBox2.Text = GetColor.G.ToString
TextBox1.Text = GetColor.R.ToString
End Sub
基于具有 能处理 256色或 256色以上的视频适配器和显示驱动程序的系统, vb 可支持 256 种颜色。VB 中的颜色设置 界面上的彩色图形能够产生更强的视觉效果,因而越来越受到用户的重视。 在 Visual Basic 中,窗体、控件、图形以及文字信息都可以用不同的颜色显示。 对于所有的颜色属性和图形方法,每种颜色都由一个 Long 整数表示。对于多媒体应用程序, 或对于那些需要显示接近相片质量图 像的应用程序来说,具有同时显示 256 色的功能是特别有价值的。 第一种: 打开画图板,颜色里面调出你要的颜色以后,记下红绿蓝的数值 然后vb中用xxx.forecolor(或者backcolor之类)=rgb(红,绿,蓝) 这种办法好处就是很简单 不好之处就是不能在设计的时候更改 第二种: 打开画图板,调好颜色以后 记下红绿蓝 打开计算器 分别翻译成16进制 然后vb中用xxx.forecolor = H蓝绿红 例如蓝色255 16进制就是FF 红色0 16进制是0 绿色128 16进制是80 然后颜色就是HFF8000 (0要补齐) 第三种: 打开专业的制图软件(photoshop/fireworks) 直接获取16进制颜色 比如说#AABBCC 然后对应的VB种颜色就是HCCBBAA
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颜色
在属性里面-你找到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 系统的对应颜色。