课件：VBJYQ苏大版.ppt

* 11.1.2 自行定义坐标系 方法一：通过ScaleTop，ScaleLeft，ScaleWidth和ScaleHeight属性实现。 （ScaleTop，ScaleLeft） 例11.1 在Form_Paint 事件中定义窗体的坐标系。 * 方法二：采用Scale方法来设置坐标系： [对象.]Scale [(xLeft,yTop)-(xRight,yBotton)] 例如，Form1.Scale (-200,250) - (300, -150)将建立和例11.1一样的坐标系。 可在程序中使用Scale方法改变坐标系统。当Scale方法不带参数时，取消用户定义的坐标系，采用缺省坐标系。 改变坐标系后产生的影响： (xLeft,yTop) (xRight,yBotton) 例11.1a Line (0, 0) - (1000, 1000)在不同坐标系的效果。 例11.1b 控件对象在坐标系内与X轴和Y轴的位置保持相对不变。 * 利用图形层的特点，实现悬浮效果。 在命令按钮后放置一个表面色彩为黑色的标签，如图所示。 同一图形层内控件对象排列顺序称为Z序列。 Zorder方法的语法为： 对象.Zorder [position] position =0 表示该控件被定位于Z序列的前面； position = 1表示该控件被定位于Z序列的后面。 例 Zorder方法的使用。 11.1.3 图形层 * 11.2 绘 图 属 性 11.2.1 当前坐标 CurrentX，CurrentY属性给出窗体或图形框或打印机在绘图时的当前坐标。 这两个属性在设计阶段不能使用。 例11.2 利用CurrentX，CurrentY属性在窗体上随机打印100个“★”。 11.2.2 线宽与线型 窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。DrawWidth属性以像素为单位来度量，最小值为1。 例11.3 用DrawWidth属性改变直线宽度。 * 窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状。 11.2.3 填充与色彩 * Visual Basic 默认采用对象的前景色(ForeColor属性)绘图，也可以通过以下颜色函数指定色彩。 1. RGB(红,绿,蓝)函数 红、绿、蓝三基色使用0~255之间的整数。 2. QBColor(颜色码) 颜色码使用0~15之间的整数。 11.3 图 形 控 件 11.3.1 Picture Box(图形框) 主要作用：显示图片、也可作为其他控件的容器。 装入图形：图形框对象.Picture = LoadPicture(“图形文件名”) 删除图形：图形框对象.Picture = LoadPicture( ) Autosize属性设置为True时，图形框能自动调整大小与显示的图片匹配。 例11.4 颜色的渐变过程。 * 11.3.2 Image(图像框) 图像框比图形框占用更少的内存块。图像框内不能保存其他控件。 Stretch属性=False，图像框可自动改变大小，以适应其中的图形。 Stretch属性=True， 图形可自动调整尺寸，以适应图像框的大小。 例11.5 图形框Autosize属性与图像框的Stretch属性对加载图形的影响。 SavePicture对象名.属性,文件名 把绘制或装在窗体、图形框和图像框内的图形保存到Bmp格式文件内。 11.3.3 Line(画线工具) 11.3.4 Shape(形状) 例11.6 例11.7 * 11.4 图 形 方 法 11.4.1 Line方法 画直线或矩形： [对象.] Line [ [Step] (x1,y1)]-(x2,y2)[,颜色][,B[F]] 其中：对象可以是窗体或图形框。 (x1,y1) ，(x2,y2)为线段的起终点坐标或矩形的左上角右下坐标。 关键字B表示画矩形，关键字F表示用画矩形的颜色来填充矩形。 例11.8 用Line方法在一个窗体上画坐标轴与坐标刻度。 例11.9 用Line方法在一个窗体上画随机射线。 11.4.2 Circle方法 Circle方法 用于画圆、椭圆、 圆弧和扇形。 * 11.4.3 Pset方法 Pset方法用于画点： [对象.] Pset [Step] (x,y) [,颜色] 参数(x,y)为所画点的坐标,关键字Step表示采用当前作图位置的相对值。 例11.10 本例用Pset方法绘制阿基米德螺线 1