vb点虐 颜色渐变 vb颜色怎么更改

vb点虐 如何使文字能渐变颜色，就是颜色慢慢变淡然后在慢慢恢复？

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

成都创新互联是专业的芷江网站建设公司，芷江接单;提供成都网站建设、网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行芷江网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

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

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点虐  如何使文字能渐变颜色，就是颜色慢慢变淡然后在慢慢恢复？"

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

VB.NET 下给Listbox 添加图片或者渐变背景。

在普通window应用程序中的背景是不能有ALPHA通道的

既然是点虐 ，试试用WPF窗体吧：

Listbox1.Background=New SolidBrush(Color.FromARGB(200,0,0,0))

当然你要是了解点虐 的笔刷类，绘制复杂的背景也不成问题

VB点虐 或C#点虐 做按钮动态渐变

我是新手，仅谈谈我的理解，按钮的MouseEnter与MouseLeave事件就可以解决，需要这么复杂吗？

比如当鼠标移入按钮（Button1）时，按钮的字体变色（假如变为红色）可以写为（MouseEnter事件）：

Button1.Forecolor=color.red;

当鼠标移出，字体颜色变回去（假如本来是黄色）（MouseLeave事件）：

Button1.Forecolor=color.yellow;

如要做高级的动态变化，估计添加timer进来，写Timer的Tick事件，比如Tmier每Tick一次，按钮的红色就加5，同时设置按钮的Tick间距。

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点虐 中就会提示说"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 系统的对应颜色。