vb.net渐变色按键 vb按钮变色代码

用vb做出七彩过度渐变色的效果？

VB可用Line方法循环调用RGB函数实现七彩过渡渐变色效果。

创新互联是一家专业提供瓮安企业网站建设,专注与做网站、网站制作、H5建站、小程序制作等业务。10年已为瓮安众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。

1）Line 方法，在对象上画直线和矩形。

2）RGB 函数，返回一个 Long整数，用来表示一个 RGB 颜色值。

3）实现代码如下：

Option Explicit

Dim w, h, a, i, c

Private Sub Form_Click()

ScaleMode = 3

w = 600 '宽度

h = 300 '高度

a = w / 6 '图像分六部分

For i = 0 To a

c = i * 255 / a

Line (i + a * 0, 0)-(i + a * 0, h), RGB(255, 0, 255 - c)

Line (i + a * 1, 0)-(i + a * 1, h), RGB(255, c, 0)

Line (i + a * 2, 0)-(i + a * 2, h), RGB(255 - c, 255, 0)

Line (i + a * 3, 0)-(i + a * 3, h), RGB(0, 255, c)

Line (i + a * 4, 0)-(i + a * 4, h), RGB(0, 255 - c, 255)

Line (i + a * 5, 0)-(i + a * 5, h), RGB(c, 0, 255)

Next i

End Sub

Private Sub Form_Load()

Me.Width = 9270

End Sub

效果：

vb菜单背景色为渐变色

用属性设置。

VB设置窗体背景颜色为渐变色，支持水平、垂直、圆形渐变，代码将告诉你如何设置渐变线型、线宽等。

VB菜单作用是提供人机对话的界面，以便让使用者选择应用系统的各种功能，管理应用系统，控制各种功能模块的运行。

vb.net怎么实现单击数字区域的按钮使按钮变红色，单击运算符按钮变蓝色同时数字区按钮还原？紧急在线等…

您好，这种方法可以通过按钮的MouseDown和MouseUp事件来实现，比如说，当单击按钮RedColor（RedColor为这个按钮的Name属性的属性值）的时候，要使按钮的颜色变成红色，这可以在代码视图中的控件选择下拉列表中选择RedColor这个控件，然后在右边的事件下拉列表中选择MouseDown事件（当按下鼠标时发生），这时，Visual Studio会自动生成如下代码：

Private Sub RedColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles RedColor.MouseDown

End Sub

接下来就在当前生成的代码中写入如下代码：

RedColor.BackColor = Color.FromArgb(255, 0, 0)

这句代码的作用是利用Color下的FromArgb方法来设置RGB颜色参数，在RGB颜色系统中，R代表红色，G代表绿色，B代表蓝色，根据这三种颜色的不同程度的调和，就会得到不同的颜色，如果您要得到深色的天蓝色，则可以设置FromArgb(0, 191, 255)，这个颜色转换为HTML中的RGB颜色就是#00BFFF。

当然颜色还原最好是写在MouseUp事件里面，这样就不必在单击其他按钮时来还原上一次按下的按钮的颜色，在这里，为了方便描述，我们假设按钮的默认颜色为白色，也就是FromArgb方法设置为FromArgb(255, 255, 255)的时候，所标示的颜色就是白色

所以选择了RedColor按钮的MouseUp事件后，Visual Studio会自动生成下列代码：

Private Sub RedColor_MouseUp(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles RedColor.MouseUp

End Sub

MouseUp的含义是当鼠标弹起时发生，所以在这个事件就可以设置按钮颜色的还原，即添加下列代码来实现：

RedColor.BackColor = Color.FromArgb(255, 255, 255)

当然，这就编写好了一个按钮按下时变色，回弹时还原的功能，至于另外一个按钮的功能，这与这个按钮的功能一样，只是代码有一些细微的差别而已，假设这个按钮的Name属性的属性值为BlueColor，相应的代码对应如下：

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown

BlueColor.BackColor = Color.FromArgb(0, 0, 255) '蓝色的FromArgb

End Sub

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown

BlueColor.BackColor = Color.FromArgb(255, 255, 255)

End Sub

另外，为了避免代码的冗余，可以将RedColor和BlueColor的MouseUp事件进行合并，这合并后的代码如下：

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown, RedColor.MouseUp

BlueColor.BackColor = Color.FromArgb(255, 255, 255)

RedColor.BackColor = Color.FromArgb(255, 255, 255)

End Sub

当然，这个你只要分析了控件事件代码的基本结构，一切就一目了然了，控件事件代码的基本结构如下：

[作用域] Sub 事件名([参数列表]) Handles 控件事件1 [, 控件事件2, 控件事件3...]

[事件代码区域]

End Sub

如果此回答对您有帮助，别忘了采纳哦，如果没有解决您的问题，您可以在互联网上寻找更多关于此问题的解决方案，谢谢！

VB.NET更改按键颜色后怎样改回默认？

Dim LngC1 As Color, LngC2 As Color

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Button1.BackColor = Color.Blue

Me.Button1.ForeColor = Color.Gold

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

LngC1 = Me.Button1.BackColor

LngC2 = Me.Button1.ForeColor

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Button1.BackColor = LngC1

Me.Button1.ForeColor = LngC2

End Sub

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

VB.NET 按下按钮变凹效果，颜色也变亮，如何实现

css

可以控制按钮的外观

也有一些外置的类 去搜下 可以控制外观