在属性里面-你找到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 系统的对应颜色。
也容易,如果是黑白三个颜色加上相同的渐变量,彩色的是起始颜色的三个分量与终止颜色的对应三个分量的差值,再除于相同的份数,就得出三原色各自的步进量。
窗体上放个图片框试试下面代码:
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim startColor As Color = Color.Red
Dim endColor As Color = Color.Green
Dim s As String = "vb.net 如何使文字能渐变颜色,就是颜色慢慢变淡然后在慢慢恢复?"
Dim Steps As Integer = s.Length \ 2
Dim StepR As Integer = (CInt(endColor.R) - startColor.R) \ Steps
Dim StepG As Integer = (CInt(endColor.G) - startColor.G) \ Steps
Dim StepB As Integer = (CInt(endColor.B) - startColor.B) \ Steps
Dim R As Integer = startColor.R
Dim G As Integer = startColor.G
Dim B As Integer = startColor.B
Dim drawFont As New System.Drawing.Font("Arial", 16)
Dim X As Integer = 50
For i As Integer = 1 To Steps
Dim drawBrush As New SolidBrush(Color.FromArgb(R, G, B))
e.Graphics.DrawString(s.Substring(i - 1, 1), drawFont, drawBrush, X, 50.0)
X += 18
R += StepR
G += StepG
B += StepB
Next
For i As Integer = 1 To Steps
Dim drawBrush As New SolidBrush(Color.FromArgb(R, G, B))
e.Graphics.DrawString(s.Substring(i + Steps - 1, 1), drawFont, drawBrush, X, 50.0)
X += 18
R -= StepR
G -= StepG
B -= StepB
Next
End Sub
首先,设定Timer控件的Enabled属性为True,Interval属性为1000(单位为毫秒)。
然后,添加程序代码如下:
private void timer1_Tick(object sender, EventArgs e)
{
if (this.label1.BackColor == Color.Red) //判断当前背景色是否为红色
this.label1.BackColor = Color.Blue; //如果是则变为蓝色
else //如果当前背景色不是红色
this.label1.BackColor = Color.Red; //将背景色变为红色
}