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()就行了

创新互联建站从2013年开始，是专业互联网技术服务公司，拥有项目网站制作、成都网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元通辽做网站,已为上家服务,为通辽各地企业和个人服务,联系电话:18982081108

vb.net中，我用picturebox控件画曲线。使用picturebox.CreateGraphics()画线，请教保存问题？？

首先你要建一个 Bitmap

再将picture控件的image属性与之相关联

再到 picture的image上画线

保存image到文件

/////////////////////////////////

Dim mybitmap As Bitmap

mybitmap = New Bitmap(300, 150)

PictureBox0.Image = mybitmap

Dim Graph As Graphics

Graph =Graphics.FromImage(PictureBox0.image)

Graph .drawline(Pens.Blue,0,0,111,111)

picturebox0.image.save("c:\aaa.jpg")

/////////////////////////////////////

存成的文件绝对有你画的线..我一直在用这种方法

vb.net中怎样曲线图，棒图，和饼图

vb2010以后的版本就自带Chart控件了，比如

Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Pie '饼图

VB中，将从下位机读取的数据，用控件的方式画出以时间为横轴的曲线

1.用picturebox 控件可以实现

2.可以使用Scale方法移动坐标原始位置和改变坐标轴方向，以下该方法：

Scale(x1,y1)-(x2,y2)

X1和y1为对象左上角的新坐标位置；

X2和y2为对象右下角的新坐标位置；

现在让我们看看一些范例。这一方法将使原点处于左上角，但将坐标系统单位改变为窗体大小的1/100：

Picture1.Scale(0,0)-(100,100)

以下调用将移动原点到窗体的左下角，并旋转Y轴：

Picture1.Scale(0,100)-(100, 0)

以下调用将移动原点到窗体的正中心，并旋转Y轴，然后将坐标单位转换为窗体大小的1/5000：

Picture1.Scale(-2500,2500)-(2500,2500)

用Picture1.Line （x1,y1）-(x2,y2)

如果不指定(x1,y1)则line方法默认为上次line方法的(x2,y2)为当前line方法(x1,y1)

For i = 1 To 100

j = i + 10

Me.Picture1.Line -(i, j), vbRed '可以指定画线的颜色

Next

3.如果画到最右边的时候，可以清掉picturebox 的内容，从头再画。

给段代码，供参考：

Private Sub Form_Load()

Dim i, j As Integer

Me.Picture1.Scale (0, Me.Picture1.Height)-(Me.Picture1.Width, 0)

Me.Picture1.AutoRedraw = True

Me.Picture1.Line (0, 0)-(0, 0), vbRed

For i = 1 To 1000

j = i + 10

Me.Picture1.Line -(i, j), vbRed

Next

End Sub

我这样画过曲线，大概思路就是这样吧，希望能帮到你

vb.net实现实时数据采集曲线，有什么方法，或是书籍呢？

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

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

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

x轴为时间，y轴为数据

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

本文标题：vb.net曲线控件 vb如何绘制曲线图
标题网址：http://cqwzjz.cn/article/hpdpgp.html