vb.net绘制渐变线 vb绘制实时曲线控件

vb.net绘制曲线图

。net  其实还是很好绘制图形的

你可以看下 Graphics  类

   Dim d As New Bitmap(Me.Width, Me.Height)  ‘一个图片吧

      Dim g As Graphics = Graphics.FromImage(d)’绘制  准备在这个图片是进行

然后  就是你绘制的东西了

线 就是   g.DrawLine()

圆 弧度  就用  g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

复杂的就是      g.DrawBezier()

 等  如果你用的是 VS的  编译  上面都有详细的参数说明

     Dim d As New Bitmap(Me.Width, Me.Height)

        Dim g As Graphics = Graphics.FromImage(d)

        g.DrawArc(Pens.Black, New Rectangle(0, 0, 200, 200), 0, 360)

        g.DrawLine(Pens.Red, New Point(0, 0), New Point(200, 200))

        g.DrawLines(Pens.Green, New Point() {New Point(0, 0), New Point(50, 40), New Point(50, 80), New Point(90, 70), New Point(100, 400)})

        g.DrawBezier(Pens.Yellow, New Point(0, 100), New Point(0, 0), New Point(200, 0）， New Point(200, 200))

        g.Dispose()

        Me.BackgroundImage = d

相关问答

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

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

既然是.net，试试用WPF窗体吧：

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

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

Q2: 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间距。

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

Q4: vb.net 图片渐入

第一个问题 qq聊天室 必须能 用vb都可以做

第二个问题 vb.net插入数学公式 可以把这些公式封装到一个类中，调用就是了

关于vb.net绘制渐变线和vb绘制实时曲线控件的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。