13518219792
这个要用GDI+画。要看你.net版本。
网站建设哪家好，找创新互联公司！专注于网页设计、网站建设、微信开发、成都微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了振兴免费建站欢迎大家使用！
以下是VS2005中的一段代码。
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) '绘制横坐标
原因：名字错误，需要先把控件画好，并zd命名完再写代码。解决方法：
1．首先，用Inputbox在VB编程软件中输入一个数字。
2．然后进入选择案例判断语句的框架。
3．然后输入第一个分支的语句。
4．然后输入第二个语句判断否定条件权利，可以用Else代替。
5．最后，运行测试，如下图所示，就完成了。
扩展资料：
注意事项：
Vb．net特点：
1．VB。Net完全集成到VisualStudio集成开发环境中，这与VB有几个方面的不同。主要体现在布局和菜单的形式等方面有所不同。
2．VB。Net项目不同于VB。它使用基于文件夹的模型，其中所有项目都放在项目文件夹层次结构中。
3．net使用ado．net，它是。net的一部分。NetFramework，以访问数据库。在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()就行了
简单说下思路吧，具体的代码可以查资料
首先要会画曲线图，有三种方法：
1、用mschar控件（vb6的）；2、用水晶报表；3、用word图表
x轴为时间，y轴为数据
要实现实时数据刷新，只要用 定时器 定时刷新曲线图的数据就可以了（x、y的数据重写）
数组元素intstr(137)是全局声明吗？如果是全局声明，则可以在FORM1中建个定时器或多线程，然后使用me.textbox1.text=intstr(x).ToString即可，如果要把数组全显示完成，则多加个FOR
定时器中处理
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 10 '10毫秒刷新一次
Timer1.Start() '开启定时器
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
End Sub
