第7章VB图形操作教案.ppt

例7.1 在窗体上放置2个Image控件Image1和Image2在窗体的Load事件中编写如下代码： Private Sub Form_Load() Image1.Stretch = False ' 将Stretch属性设置为False '加载图片，不同计算机系统，图形文件的路径可能不同 Image1.Picture = LoadPicture("C:\WINDOWS\Bubbles.bmp") Image2.Stretch = True ' 将Stretch属性设置为true Image2.Picture = LoadPicture("C:\WINDOWS\Bubbles.bmp") End Sub 7.2 坐标系统 7.2.1 缺省坐标系统 每个容器都有一个坐标系，构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。缺省时为Twip。每英寸1440个Twip，20个Twip为一磅。 7.2 坐标系统 7.2.2 用户自定义坐标系统 7.2 坐标系统 7.2 坐标系统 2、使用Scale属性建立自己的坐标系 （1） 重新定义坐标原点 属性ScaleTop，ScaleLeft的值用于控制对象左上角坐标，所有对象的ScaleTop，ScaleLeft属性的缺省值为0，坐标原点在对象的左上角。 = N，表示将X轴向Y轴的负方向平移N个单位 ScaleTop = －N，表示X轴向Y轴的正方向平移N个单位 同样，ScaleLeft的设置值可向左或向右平移坐标系的Y轴。 7.2.2 用户自定义坐标系统 （2） 重定义坐标轴方向和度量单位 属性ScaleWidth，ScaleHeight的值可确定对象坐标系X轴与Y轴的正向及最大坐标值。缺省时其值均大于0，此时，X轴的正向向右，Y轴的正向向下。对象右下角坐标值为(ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight)。 如果ScaleWidth的值小于0，则X轴的正向向左，如果ScaleHeight的值小于0，则Y轴的正向向上。 7.2.2 用户自定义坐标系统 7.2.2 用户自定义坐标系统 7.3 绘图属性 7.3.1 CurrentX、CurrentY属性 CurrentX，CurrentY属性给出窗体或图形框或打印机在绘图时的当前坐标。 这两个属性在设计阶段不能使用。 使用格式： object.CurrentX [= x] object.CurrentY [= y] 7.3 绘图属性 7.3 绘图属性 7.3 绘图属性 窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状。其设置值及含义见表7.6。 7.3.5 图形颜色 7.3.5 图形颜色 7.3.5 图形颜色 7.4 绘图方法 7.4.1 Point 方法 7.4 绘图方法 7.4.2 Pset方法 7.4 绘图方法 7.4 绘图方法 画直线或矩形： [对象.] Line [ [Step] (x1,y1)]－(x2,y2)[,颜色][,B[F]] 其中：对象可以是窗体或图形框。 (x1,y1) ，(x2,y2)为线段的起终点坐标或矩形的左上角右下坐标。颜色为可选参数，指定画线的颜色，缺省取对象的前景颜色，即ForeColor B表示画矩形，F表示用画矩形的颜色来填充矩形。 关键字Step表示采用当前作图位置的相对值，即从当前坐标移动相应的步长后所得的点为画线起点。 例如： 画一条从(250,300)到(400,500)点的直线 Line (250,300)-(400,500) 从当前位置（由CurrentX，CurrentY决定）画到(400,500) Line - (400,500) 出发点是(150,250)，终点是向X轴正向走150，向Y轴正向走50的点 Line (150,250) - Step (150,50) 等同于：Line (150,250) - (300,300) 画一个左上角在(20,40)，右下角在(150,200)的矩形，注意在color 参数省略时，逗号并不省略。 Line (20,40) - (150,200) , , B 用红色从(20,40)到(70,110)画一个实心的矩形。 Line (20,40) - Step (50,70