vb.net渐变画笔 在画笔中渐变色怎么添加

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

在普通window应用程序中vb.net渐变画笔的背景是不能有ALPHA通道的

既然是.net，试试用WPF窗体吧vb.net渐变画笔：

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

当然vb.net渐变画笔你要是了解.net的笔刷类，绘制复杂的背景也不成问题

相关问答

Q1: 在vb.net　中DrawEllipse和DrawCircle的区别？

vb.net渐变画笔你说的是GDI+里的方法吗？

我记得没有drawCircle这个方法的vb.net渐变画笔，只有画DrawElipse椭圆和DrawArc这2个方法，分别表示画椭圆（画圆统一用DrawElipse方法）和画弧（画椭圆弧统一用DrawArc方法）。

统一的方法如何实现椭圆、圆的呢？其实是用椭圆、圆的外切矩形来表示的。椭圆跟圆的唯一区别是它们外切矩形的长宽比不同，圆是一个正方形，椭圆是矩形，而且椭圆需要考虑有可能画转了角度的情况的椭圆，长轴与x轴是有特定角度的。

Q2: 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

Q3: VB.net或C#.net 做按钮动态渐变

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

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

Button1.Forecolor=color.red;

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

Button1.Forecolor=color.yellow;

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

Q4: VB.net 涂鸦程序在怎么做

这个是用css+javascript实现vb.net渐变画笔的vb.net渐变画笔，vb.net 不行。

Q5: VB.net中如何画图？

VB.net与VB不同。

VB.net已经有专门绘图的类。

可以定义笔刷然后用Drawing类中的方法绘制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

vb.net渐变画笔的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于在画笔中渐变色怎么添加、vb.net渐变画笔的信息别忘了在本站进行查找喔。