189 8069 5689
在属性里面-你找到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 系统的对应颜色。
VB中的RGB是就是三基色的意思：
红色RED；
绿色GREEN；
蓝色BLUE。
VB是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
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
vb的RGB颜色模式，是十六进制的，转换相对麻烦。可以用0-225来表示，比如要设置一个对象（标签、文本框等）的背景颜色，可以用形如：Label1.BackColor = RGB(225, 0, 0)来表示。RGB后的括号里为三个0到225之间的整数分别代表红、绿、蓝。也可以用表达式来表示，但是表达式的值必须在0到225之间，形如：
x=0
y=225
z=y-x
Label1.BackColor = RGB(x,y, y)
自己多试一下，可以结合进度条控件来测试。
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颜色
应改成
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