成都网站建设设计

将想法与焦点和您一起共享

vb.net制作渐变色 vb如何实现变色

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 系统的对应颜色。

vb.net 如何使文字能渐变颜色,就是颜色慢慢变淡然后在慢慢恢复?

也容易,如果是黑白三个颜色加上相同的渐变量,彩色的是起始颜色的三个分量与终止颜色的对应三个分量的差值,再除于相同的份数,就得出三原色各自的步进量。

窗体上放个图片框试试下面代码:

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

C#或VB.NET中,如何用timer控件给Label.BackColor来回变色闪动?

首先,设定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; //将背景色变为红色

}


当前标题:vb.net制作渐变色 vb如何实现变色
分享地址:http://chengdu.cdxwcx.cn/article/dddsscc.html