第十章 图形操作新.docVIP

图 形 操 作 Private Sub Form_Paint() Cls Form1.Scale (-200, 250)-(300, -150) Line (-200, 0)-(300, 0) Line (0, -150)-(0, 250) CurrentX = 0: CurrentY = 0: Print 0 CurrentX = 280: CurrentY = 20: Print x CurrentX = 10: CurrentY = 240: Print y Circle (0, 0), 100 End Sub 10.1 图形操作基础 10.1.1 坐标系统 每个容器都有一个坐标系，构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。缺省时为Twip。每英寸1440个Twip，20个Twip为一磅。 10.1.2 自行定义坐标系 方法一：通过ScaleTop，ScaleLeft，ScaleWidth和ScaleHeight属性实现。 方法二：采用Scale方法来设置坐标系： [对象.]Scale [(xLeft,yTop)-(xRight,yBotton)] 例如，Form1.Scale (-200,250) - (300, -150)将建立和例10.1一样的坐标系。 可在程序中使用Sca