锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net实时绘制曲线的简单介绍

IT技术绘制

vb.net 绘制实时温度曲线这个要用GDI+画 。要看你.net版本 。
以下是VS2005中的一段代码 。
【vb.net实时绘制曲线的简单介绍】 Me.PictureBox1.Height = 450
Me.PictureBox1.Width = 880
Dim gr As Graphics '定义画布
Dim bp As New Bitmap(880, 450) '定义位图,并进行赋值
Dim p As New Pen(Color.Black) '定义画笔
p.Width = 2 '宽度2
p.DashStyle = Drawing2D.DashStyle.Solid '样式直线
PictureBox1.Image = bp
gr = Graphics.FromImage(PictureBox1.Image)
gr.FillRectangle(Brushes.White, New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height))
gr.DrawLine(p, a, b, a, .Height - b) '绘制纵坐标
gr.DrawLine(p, a, .Height - b, .Width - a, .Height - b) '绘制横坐标
vb.net连续绘制曲线图不消失您好 ， 您是想问vb.net连续绘制曲线图不消失怎么办？b.net连续绘制曲线图不消失的解决办法如下：
1、首先必须创建bitmap,关联到picturebox1.image上 。
2、再在picturebox1.image上创建Graphics,再进行作图 。即可显示线图 。
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
VB.NET 实时曲线拖一个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()就行了
关于vb.net实时绘制曲线和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：linux有关倒序命令，linux ll倒序

    下一篇：用什么保存cpu，用什么保存照片不会压缩画质