第十节 图形操作.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一样的坐标系。 可在程序中使用Scale方法改变坐标系统。当Scale方法不带参数时，取消用户定义的坐标系，采用缺省坐标系。 改变坐标系后产生的影响： 10.1.3 图形层 利用图形层的特点，实现悬浮效果。 同一图形层内控件对象排列顺序称为Z序列。 Zorder方法的语法为： 对象.Zorder [position] position =0 表示该控件被定位于Z序列的前面； position = 1表示该控件被定位于Z序列的后面。 10.2 绘 图 属 性 10.2.1 当前坐标 CurrentX，CurrentY属性给出窗体或图形框或打印机在绘图时的当前坐标。 这两个属性在设计阶段不能使用。 10.2.2 线宽与线型 窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。DrawWidth属性以像素为单位来度量，最小值为1。 例10.3 用DrawWidth属性改变直线宽度。 窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状。 10.2.3 填充与色彩 Visual Basic 默认采用对象的前景色(ForeColor属性)绘图，也可以通过以下颜色函数指定色彩。 1. RGB(红,绿,蓝)函数 红、绿、蓝三基色使用0~255之间的整数。 2. QBColor(颜色码) 颜色码使用0~15之间的整数。 10.3 图 形 控 件 10.3.1 Picture Box(图形框) 主要作用：显示图片、也可作为其他控件的容器。 装入图形：图形框对象.Picture = LoadPicture(“图形文件名”) 删除图形：图形框对象.Picture = LoadPicture( ) Autosize属性设置为True时，图形框能自动调整大小与显示的图片匹配。 10.3.2 Image(图像框) 图像框比图形框占用更少的内存块。图像框内不能保存其他控件。 Stretch属性=False，图像框可自动改变大小，以适应其中的图形。 Stretch属性=True， 图形可自动调整尺寸，以适应图像框的大小。 例10.5 图形框Autosize属性与图像框的Stretch属性对加载图形的影响。 SavePicture对象名.属性,文件名 把绘制或装在窗体、图形框和图像框内的图形保存到Bmp格式文件内。 10.3.3 Line(画线工具) 10.3.4 Shape(形状) 10.4 图 形 方 法 10.4.1 Line方法 画直线或矩形： [对象.] Line [ [Step] (x1,y1)]-(x2,y2)[,颜色][,B[F]] 其中：对象可以是窗体或图形框。 (x1,y1) ，(x2,y2)为线段的起终点坐标或矩形的左上角右下坐标。 关键字B表示画矩形，关键字F表示用画矩形的颜色来填充矩形。 例10.8 用Line方法在一个窗体上画坐标轴与坐标刻度。 例10.9 用Line方法在一个窗体上画随机射线。 10.4.2 Circle方法 Circle方法 用于画圆、椭圆、 圆弧和扇形。 10.4.3 Pset方法 Pset方法用于画点： [对象.] Pset [Step] (x,y) [,颜色] 参数(x,y)为所画点的坐标,关键字Step表