VisualBasic实用教程薛亮第10章2.pptVIP

(2) 编写事件代码如下： Private Sub Form_Click( ) Dim i As Integer Print Shape1(0).Shape = 0 设置第一个控件的属性 Shape1(0).FillStyle = 2 For i = 1 To 5 Shape1(i).Left = Shape1(i - 1).Left + 1000 设置其余控件位置 Shape1(i).Shape = i 设置图形属性 Shape1(i).FillStyle = i + 2 设置填充模式 Shape1(i).FillColor = QBColor(i + 3) 设置填充颜色 Next i End Sub (3) 运行结果如图10.7所示。 图10.7 图形控件运行结果 10.4 图 形 方 法 1．Line方法 Line方法用于画直线或矩形，其语法格式如下： [对象.]Line[[Step](x1，y1)]-(x2, y2)[,颜色][,B[F]] 说明： (1) 对象指示Line在何处产生结果，它可以是窗体或图形框，缺省时为当前窗体。 (2) (x1，y1)为线段的起点坐标或矩形的左上角坐标，(x2，y2)为线段的终点坐标或矩形的右下角坐标。 (3) 关键字Step表示采用当前作图位置的相对值。 (4) 关键字B表示画矩形，关键字F表示用画矩形的颜色来填充矩形。缺省下则矩形的填充由FillColor和FillStyle属性决定。 【例10-4】 Line方法举例。 (1) Line (250,300) - (400,500)表示画一条从(250,300)到(400,500)点的直线。 (2) Line - (400，500)表示从当前位置(由CurrentX，CurrentY决定)画到(400，500)的一条直线。 (3) Line (150, 250) - Step (150, 50)表示出发点是(150,250)，终点是向X轴正向走150，向Y轴正向走50的直线。等同于：Line (150,250) - (300,300)。 (4) Line (20,40) - (150,200) , , B表示画一个左上角在(20,40)，右下角在(150,200)的矩形，注意在color 参数省略时，逗号并不省略。 (5) Line (20,40) - Step (50,70), RGB(255,0,0), BF表示用红色从(20,40)到(70,110)画一个实心的矩形。 (6) Line - (30,50), RGB(0,255,255), ABC是错误的语句，因为color 参数后面的参数只有B或BF两种形式。 2．Circle方法 Circle方法用于画圆、椭圆、圆弧和扇形，其语法格式如下： [对象.]Circle[[Step](x,y),半径[,颜色][,起始角][,终止角][,长短轴比率]] 说明： (1) 对象指示Circle在何处产生结果，它可以是窗体、图形框或打印机，缺省时为当前窗体。 (2) (x，y)为圆心坐标，关键字Step表示采用当前作图位置的相对值。 (3) 圆弧和扇形通过参数起始角、终止角控制，当起始角、终止角取值在0～2π时为圆弧：当起始角、终止角取值前加一负号时画出扇形，负号表示画圆心到圆弧的径向线。 (4) 画椭圆时可通过长短轴比率控制，默认值为1时即为画圆。 【例10-5】 Circle方法举例。以下程序语句的运行结果如图10.8所示。 (Private Sub Form_Activate( ) Circle (1000, 1000), 1000, , -1.571, -2.543 Circle (2000, 1000), 500, , -2.543, -1.571 End Sub 图10.8 Circle方法运行结果 【例10-6】 以下代码在窗体上画同心圆，并调用SavePicture方法将图形存入文件tes