VB怎么做坐标系曲线图

  • 学习15053次

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

VBpicture控件

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

VBAutoredraw属性

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

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

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

VB坐标系结果1

程序解释:

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坐标应用1

VB坐标应用2

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

 

发表评论