vb.net添加曲线图 vb怎么根据数据绘制曲线

vb.net连续绘制曲线图不消失

您好，您是想问vb.net连续绘制曲线图不消失怎么办？b.net连续绘制曲线图不消失的解决办法如下：

创新互联公司主要从事成都做网站、网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务德江,十年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108

1、首先必须创建bitmap,关联到picturebox1.image上。

2、再在picturebox1.image上创建Graphics,再进行作图。即可显示线图。

Private Sub PictureBox2_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox2.Paint

Dim points As New List(Of Point)

points.Add(New Point(0, 0))

points.Add(New Point(1, 10))

points.Add(New Point(3, 15))

points.Add(New Point(14, 0))

points.Add(New Point(20, 60))

points.Add(New Point(40, 20))

points.Add(New Point(70, 50))

e.Graphics.DrawCurve(Pens.Red, points.ToArray)

End Sub

供参考，points可设为全局变量，那样add随便在哪增加，想要看见看上去动态的图，那就在新增完n个后，继续增加n+1个之时，放弃points中的第一个。

。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

本文名称：vb.net添加曲线图 vb怎么根据数据绘制曲线
浏览路径：http://6mz.cn/article/hpcpjo.html