程序设计教案VB版第六章.doc

第六章绘制控制网形图的程序设计方法

§6-1VisualBasic6.0绘图基本技术

计算机VB语言系统默认的屏幕（窗体）绘图坐标系的原点位于屏幕的左上角，其横轴向右为正向，纵轴向下为正向。测量程序设计中习惯上使用测量坐标系。要想在计算机屏幕（窗体）上建立起绘图的测量坐标系，应使其坐标原点位于屏幕的左下角，其横轴向右为正向，纵轴向上为正向。这两种坐标系的本质区别是纵轴的方向正好相反。

为了使在屏幕（窗体）上绘出的图形与测量工作的野外实际图形方位一致（当然大小应按一定比例尺缩小），应将计算机VB语言系统默认的屏幕（窗体）绘图坐标系变换成测量坐标系；或者对计算机VB语言系统默认的屏幕（窗体）绘图坐标系不加以变换，而是将测量坐标系中的纵坐标换算成计算机VB语言系统默认的屏幕绘图坐标系中的纵坐标，横坐标保持不变。

下面先介绍这两种变换方法的第一种方法，第二种方法将在本章的第五节中介绍。

一、通过变换，在屏幕（窗体）上直接建立绘图的测量坐标系的方法

1.窗体的缺省坐标系

构成一个坐标系需要三个要素：坐标原点、坐标轴度量单位、坐标轴方向。VB坐标系统的缺省坐标原点（0，0）在对象的左上角，X坐标向右正方向，Y坐标向下为正方向。

窗体对象坐标系是由它的ScaleTop,ScaleLeft,ScaleWidth,ScaleHeight属性决定的，Scale是“标尺”的含义。窗体的另外四个属性，即Top,Left,Width,Height表示了窗体的大小及屏幕标准坐标系上的位置。

图6-1窗体的缺省坐标系统 图6-2窗体在屏幕上的位置

2.控件在窗体上的坐标

窗体是控件的容器，控件在窗体上的坐标是用其Top和Left属性定义的。Width,Height属性表示宽度和高度，它决定了控件的大小。

图6-3控件在窗体中的位置和大小图6-4图片容器框缺省坐标系统

3.其它控件容器的坐标系

除窗体外，图片框（PictureBox)等控件也可以作为其它控件的容器使用，也具有坐标系定义。

4.Scaletop,Scaleleft等与Top,Left的区别

（1）窗体的Top,Left,Width和Height属性的单位永远是Twip,而ScaleTop,ScaleLeft等属性可以通过ScaleMode属性任意改变单位。

（2）窗体的Top,Left,Width和Height属性是相对屏幕坐标而言的，而ScaleTop，ScaleLeft，ScaleWidth，ScaleHeight则定义了窗体自己的坐标系统，窗体上的所有控件将以此为坐标基础。

（3）ScaleWidth，ScaleHeight是指对象的内部尺寸，不包括边框厚度以及菜单或标题等高度。而窗体的尺寸则由Width和Height属性决定。

5.当前坐标

当在窗体等容器绘制图形或输出结果时，经常要将它们定位在某一希望的位置，这时就必须获得某一点的坐标，即当前坐标。VB使用CurrentX和CurrentY属性设置返回当前坐标的水平坐标和垂直坐标。

例如，在点（13，2）处打印“X”，可使用以下语句：

CurrentX=13:CurrentY=2:Print:”X”

6.自定义坐标系统

（1）方法1：使用ScaleLeft,ScaleTop,ScaleWidth和Scaleheight属性设置坐标系统

ScaleLeft和ScaleTop是指容器左上角坐标，其缺省值为０。ScaleWidth和ScaleHeight属性用于设置窗体或图片框等容器的净宽度和净高度，即右下角的坐标为（ScaleLeft+ScaleWidth，ScaleTop+ScaleHeught）。

当我们改变ScaleLeft,ScaleTop的值后，坐标系的Ｘ轴或Ｙ轴将按此值平移后形成新的坐标原点，因此也就形成了新的自定义坐标系统。例如：

Form1.Scale(-14,14)-(14,-14)

将坐标原点设置在窗体中心，左上角的坐标为（-14，14），右下角的坐标为（14，-14），X轴的正方向向右，Y轴的正方向向上。

Form1.Scale(-14,14)-(14,-14)自定义的坐标系统：

图6-5指针式时钟坐标系图6-6指针式时钟坐标系

Form1.Scale(-14,14)-(14,-14)可等同于下面的程序：

PrivateSubForm_Click()

Cls

Form1.ScaleLeft=-14

Form1.ScaleTop=14

Form1.ScaleWidth=28

Form1.ScaleHe