VB中自定义坐标系的实现方法

1.使用scale方法定义坐标系

使用Scale方法是建立用户坐标系,可通过用户自己定义坐标系统的初始值,从而构建一个完全受用户自己控制的坐标系统。

[对象.]Scale[(x1,y1)-(x2,y2)]

说明:改变容器(窗体、图片框等)左上角坐标值为(x1,y1),右下角坐标值为(x2,y2),将容器在X轴方向分为x2-x1等份,在Y轴方向分为y2-y1等份,这样可以得到以下结果。

例如,语句Form1.Scale(-200,-100)-(200,100)设置的窗体坐标系统与使用Scale属性建立的窗体坐标系统完全一致。

2.使用Scale属性定义坐标系

当ScaleMode属性设置为0,用户可通过修改ScaleLeft、ScaleTop、ScaleWidth、Scale-Height属性值来设置容器对象的位置和尺寸。

用ScaleLeft、ScaleTop属性来重新定义坐标原点,相当于将X轴沿Y方向平移了ScaleTop个单位,将Y轴沿X方向平移了ScaleLeft个单位。对象的左上角坐标为(ScaleLeft、ScaleTop),右下角坐标为(ScaleLeft+ScaleWidth,ScaleTop+ScaleHeight)。坐标值的正向可以自动设置,X、Y轴的度量单位分别是1/ScaleWidth和1/ScaleHeight。

【案例8-1】自定义坐标系示例。(www.xing528.com)

【案例要求】

在宽度(Width)为4600缇,高度(Height)为2800缇的窗体上建立一个坐标系,原点定义在窗体中心,X轴正向向右,Y轴正向向下。界面设计如图8-3中的设计效果。

图8-3　建立坐标系界面

【案例操作】

(1)在窗体单击事件中输入如下代码。

(2)按F5键或点击工具栏中的“运行”按钮运行程序,单击窗体运行结果如图8-3中运行效果所示。