vb.net中画曲线 vb 曲线

VB.NET 实时曲线【vb.net中画曲线 vb 曲线】拖一个PictureBox1控件 创建一个Paint事件 。在事件中加入Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint' Create pens.Dim redPen As New Pen(Color.Red, 3)Dim greenPen As New Pen(Color.Green, 3)' Create points that define curve.Dim point1 As New Point(50, 50)Dim point2 As New Point(100, 25)Dim point3 As New Point(200, 5)Dim point4 As New Point(250, 50)Dim point5 As New Point(300, 100)Dim point6 As New Point(350, 200)Dim point7 As New Point(250, 250)Dim curvePoints As Point() = {point1, point2, point3, point4, _point5, point6, point7}' Draw lines between original points to screen.e.Graphics.DrawLines(redPen, curvePoints)' Draw curve to screen.e.Graphics.DrawCurve(greenPen, curvePoints)End Sub得到数据后,改point的数据 。然后PictureBox1.Refresh()就行了
vbnet三点画弧代码为了在VB.NET中绘制一个弧线,可以使用Graphics类的DrawArc方法 。该方法需要指定五个参数,它们分别是:Pen对象、X坐标传入区域左上角、Y坐标传入区域左上角、宽度传入区域右下角和高度传入区域右下角、开始角度和结束角度 。例如,绘制一个宽120,高150的从角度30°开始,以210°结束的弧的代码将为:
e.Graphics.DrawArc(Pens.Black, 0, 0, 120, 150, 30, 210)
所有的这些参数都是必需的,因为所绘制的弧是依赖于这些参数来指定的 , DrawArc的这种方法也可以绘制同心圆或者椭圆形的?。?有了这些基础知识之后,就可以灵活的使用它们来实现不同的形
vb.net绘制曲线图 。net其实还是很好绘制图形的
vb.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)vb.net中画曲线 , New Point(200, 200))
g.Dispose()
Me.BackgroundImage = d
vb.net 画二维数组的曲线图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中的第一个 。
vb.net连续绘制曲线图不消失您好,您是想问vb.net连续绘制曲线图不消失怎么办?b.net连续绘制曲线图不消失的解决办法如下:
1、首先必须创建bitmap,关联到picturebox1.image上 。
2、再在picturebox1.image上创建Graphics,再进行作图 。即可显示线图 。
关于vb.net中画曲线和vb 曲线的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。

    推荐阅读