画圆
Circle 方法可画出圆形和椭圆形的各种形状。另外,Circle 方法还可以画出圆弧(圆的一部分)和楔形饼块。使用变化的 Circle 方法,可画出多种曲线。
画圆的完整语法是:
[object.]Circle [Step](x, y), radius[, color]
如果不指定 object,则默认是当前的窗体。x 和 y 是圆心的坐标,radius 是圆的半径。
例如,下面语句将画出一个以 (1200,1000) 为圆心、750 为半径的圆:
Circle (1200, 1000), 750
这个语句产生的精确作用,还要依赖于窗体的大小和窗体的
坐标系。如果不知道窗体的大小,也就不能知道这个圆是否可见。可使用绘图区的标尺属性,将该圆的圆心置于窗体的中心处:
Circle ((ScaleWidth + ScaleLeft) / 2, (ScaleHeight + ScaleTop) / 2), ScaleWidth / 4
在默认情况下 ScaleLeft=0, ScaleTop=0 ,所有两者可以省略。
数字的单位取决于ScaleMode,默认是1 - twip,1像素约=15 twip。
画圆弧
为了用 Circle 方法画出圆弧,应以弧度为单位,给出定义弧线 start 和 end 的角度参数。
画圆弧的语法是:
[object.]Circle [Step](x, y), radius, [color], start, end[, aspect]
如果 start 或 end 是负数将画出一个饼。
Const PI = 3.14159265
Circle (3500, 1500), 1000, , –PI / 2, –PI / 3
注意 将度换算成弧度的公式是将度数乘以 Pi/180。
窗体中以 Scale 开头的几个属性用于设定自定义坐标,从文字上看其实定义的是坐标系的第四象限。
ScaleLeft, ScaleTop 设置原点位置,默认为0,即窗体的左上角,如果设置为
ScaleLeft = me.Width / 2
ScaleTop = me.Height / 2
则原点在窗体的中央
ScaleHeight, ScaleWidth 设置坐标系与窗体实际尺寸的比例,这是通过数值而不是比例系数来表示的,即当窗体的 Width=3000 时设置
ScaleWidth=1500
则坐标系的数值是实际值的2倍,半径为100的圆将显示为200的大小
注意:设置坐标系的语句应该在Resize事件中。