2010年计算机等级考试二级VB补充课程(4)

　　第四章 图形处理

　　1、图形操作基础

　　标准坐标系统

　　2、图形控件

　　直线控件(Line)

　　直线控件用来在窗体和其他容器控件中创建简单的线段，它没有自己的特殊方法，也不产生任何事件。设计和运行时可通过它的属性改变它的位置、粗细和颜色等

　　1.直线控件的常用属性

　　(1)BorderColor属性设置直线的颜色。(2)BorderWidth属性设置直线的粗细。

　　(3)BorderStyle属性设置直线样式。 0～6种类型,1—实线,6—内实线。

　　2.直线控件的特有属性

　　x1,x2,y1,y2属性指定起点和终点的x坐标及y坐标。可以通过改变x1,x2,y1,y2的值,来改变线的位置和长度。

　　说明：直线控件没有Left、Top、Width和Height属性，运行时也不能用Move方法决定直线的位置和长短。

　　3、形状控件(Shape)

　　Ø 使用形状控件在窗体或其他控件容器中画矩形、正方形、圆、椭圆、圆角矩形或圆角正方形。

　　1.形状控件常用属性

　　(1)Left、Top、Width和Height决定形状控件位置和大小，也可用Move方法改变它的大小和位置。

　　(2)BorderWidth设置图形边界宽度，值是以像素为单位的边线宽度 (3)BorderColor：设置图形边界颜色。

　　(4)BorderStyle：设置边界线的类型。 (5)FillColor属性设置图形的前景颜色。

　　如要为图形填充颜色(背景)时,先将FillStyle设成1(透明),否则FillColor(前景色)的颜色会遮盖背景色。

　　2.形状控件特有属性

　　(1)Shape属性：用来设置图形的形状。

　　0——Rectangle 矩形 1——Square 正方形

　　2——Oval 椭圆形 3——Circle 圆形

　　4——Rounded Rectangle 圆角矩形 5——Rounded Square 圆角正方形

　　Ø Shape属性的缺省值为0(矩形)。若选择3,则用Shape控件画出的矩形中画出一个圆(圆的直径是矩形的短边)。

　　(2)BackStyle属性：设置图形背景的风格

　　0——Transparent(透明) 1——Opaque(不透明)

　　缺省值为0。如果着色, 要将BackStyle属性设置为“不透明”。

　　(3)FillStyle属性：设置图形填充的线形(风格或样式)

　　3、 图形方法

　　4、PSet方法

　　格式:[对象名.]PSet (x,y)[,颜色] 功能:在窗体或图片框上画出一个点。对象缺省时,为窗体。

　　程序范例：

　　Ø 有个名称为Form1的窗体，上面没有控件，设有以下程序：

　　Dim cmdmave As Boolean

　　Private Sub Form_MouseDown(……)

　　cmdmave = True

　　End Sub

　　Private Sub Form_MouseMove(……)

　　If cmdmave Then

　　Form1.Pset(X,Y)

　　End If

　　End Sub

　　Private Sub Form_MouseUp(……)

　　cmdmave = False

　　End Sub

　　此程序的功能是

　　A)每按下鼠标键一次，在鼠标所指位置画一个点

　　B)按下鼠标键，则在鼠标所指位置画一个点;放开鼠标键，则此点消失

　　C)不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线

　　D)按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

　　5、Line方法

　　格式:[对象.]Line (x1,y1)- (x2,y2)[,颜色] 功能:在窗体或图片框上画出一条直线。对象缺省时为窗体。

　　6、Circle方法

　　格式:[对象名.]Circle (x,y),半径[,颜色] 功能:在窗体或图片框上画圆。