VB怎么做坐标系曲线图

VB可以用来做坐标系。新建一个工程，在窗口中放入一个Picture空间，如下图所示：

在Picture1的属性里面，修改AutoRedraw为Ture，如下图所示：

这时，就开始写代码了。进入写代码的窗口，编写以下代码进去：

Private Sub Form_Load()
Picture1.Scale (-100, 1100)-(1100, -100)
Picture1.DrawWidth = 2
Picture1.Line (0, 0)-(1000, 0), vbRed 
Picture1.Line (0, 0)-(0, 1000), vbRed 
End Sub

执行后的效果如下图所示：

程序解释：

Picture1.Scale (-100, 1100)-(1100, -100)?’定义Picture1的坐标范围，分别为左上坐标和右下坐标的值。(Xstart, Ystart)-(Xend, Yend);

Picture1.DrawWidth = 2’定义线的宽度为2;

Picture1.Line (0, 0)-(1000, 0), vbRed ‘画一条红色的线，起始坐标(Xstart, Ystart)到终点坐标(Xend, Yend);

Picture1.Line (0, 0)-(0, 1000), vbRed ”画一条红色的线，起始坐标(Xstart, Ystart)到终点坐标(Xend, Yend);

总结：首先学会使用Scale定义Picture的范围，其次学会使用画线函数。满足这两点，就可以做一个漂亮的坐标系了。例如，下面的VB应用程序就是本人学会了这两点以后做的一个项目上的效果。

放出该实例的VB源文件，供大家学习，点击下载：ABS制动测试VB源文件