画曲线vb.net ps钢笔怎么画曲线

vb.net 画二维数组的曲线图

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

成都创新互联公司主营双河网站建设的网络公司,主营网站建设方案,APP应用开发,双河h5微信平台小程序开发搭建,双河网站营销推广欢迎双河等地区企业咨询

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中的第一个。

简单说下思路吧，具体的代码可以查资料

首先要会画曲线图，有三种方法：

1、用mschar控件（vb6的）；2、用水晶报表；3、用word图表

x轴为时间，y轴为数据

要实现实时数据刷新，只要用定时器定时刷新曲线图的数据就可以了（x、y的数据重写）

。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连续绘制曲线图不消失怎么办？b.net连续绘制曲线图不消失的解决办法如下：

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

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

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容