第十单元 程序.ppt

1、第十单元 图形操作,第一节 图形控件 1、直线空间Line 2、形状控件shape 第二节 图形方法 1、Pset方法画点,1、直线控件 （P102 5.11） 直线（Line）控件主要用于在窗体、框架和图片框上画直线。设计时可通过属性BorderWidth、BorderStyle的值确定线的宽度和形状，运行时直线两个端点的位置由位置属性（x1，y1）指定起点坐标，（x2，y2）指定终点坐标确定。,第一节 图形控件,5.11.1 直线的属性,1）X1、Y1、X2、Y2属性 设置（或返回）该直线的起点和终点的x坐标及y坐标。直线起点坐标的属性为x1、y1，直线终点坐标的属性为x2、y2。 2）B

2、orderWidth、BorderStyle、BorderColor属性 （1） BorderStyle： 用来指定直线的类型。在属性窗口的属性表中，找到BorderStyle，单击右端箭头，有一个下拉菜单，列出下列7种类型。 0Transparent，透明的，即不显示出线来。 1Solid，实线。 2Dash，虚线。 3Dot，点线。 4Dash-Dot，点画线。 5Dash-Dot-Dot，双点画线。 6Inside Solid，内实线。,注意：只有当BorderWidth为1时才可以用以上7种类型的线，如果BorderWidth不为1，则上述7种类型中只有0和6有效。 （2） Borde

3、rWidth： 设置线宽。 （3） BorderColor： 设置颜色。 （4） x1、x2、y1、y2： 指定直线起点和终点的x坐标及y坐标。可以通过改变x1、x2、y1、y2的值改变线的位置。,例5.14 在窗体上画一系列不同的直线。在窗体上添加1个Line1控件数组Line1（0）Line1（4），再添加3个命令按钮Command1 Command3（标题分别为“设置线宽”、“设置线型”、“设置线色”）。运行时单击某一命令按钮，分别将直线设置成不同的线宽运行界面如图5.23所示，线型运行界面如图5.24所示和线色运行界面如图5.25所示。,单击“设置线宽”命令按钮，事件过程代码如下： P

4、rivate Sub Command1_Click() For i = 0 To 4 Line1(i).BorderWidth = i + 3 Next i End Sub 单击“设置线型”命令按钮，事件过程代码如下： Private Sub Command2_Click() For i = 0 To 4 Line1(i).BorderStyle = i + 1 Next i End Sub,单击“设置线色”命令按钮，事件过程代码如下： Private Sub Command3_Click() For i = 0 To 4 Line1(i).BorderColor = QBColor(i +

5、8) Next i End Sub 其中：QBColor是颜色函数，当参数i为不同值时，给出不同的颜色。,形状（Shape）控件主要用于在窗体、框架或图片框上绘制常见预定义的几何图形。 1）Shape属性 通过设置图形（Shape）控件的Shape属性，可以画出矩形、正方形、椭圆形、圆形、圆角矩形或圆角正方形等多种图形。该属性值有6种情况： （1）0-表示vbShapeRectangle，即矩形（缺省值） （2）1-表示vbShapeSquare，即正方形 （3）2-表示vbShapeOval，即椭圆形,2、形状控件 （书上P100）,（4）3-表示vbShapeCircle，即圆形 （5）4

6、-表示vbShapeRoundedRectangle，即圆角矩形 （6）5-表示vbShapeRoundedSquare，即圆角正方形 2）BorderWidth属性 设置图形边界的宽度。 3）BorderStyle属性 设置图形控件画线的样式，该属性值有7种情况： （1）0-表示vbTransparent，即透明线，忽略BorderWidth属性。 （2）1-表示vbBSSolid，即实线（缺省）,边框处于形状边缘的中心。,（3）2-表示vbBSDash，即虚线，当BorderWidth为1时有效。 （4）3-表示vbBSDot，即点线，当BorderWidth为1时有效。 （5）4-表示v

7、bBSDashDot，即点划线，当BorderWidth为1时有效。 （6）5-表示vbBSDashDotDot，即双点划线，当BorderWidth为1时有效。 （7）6-表示vbBSInsideSolid，即内收实线，边框的外边界就是形状的外边缘。 4）BorderColor属性 设置Shape控件的边界颜色。 5）FillColor属性 设置Shape控件的内部填充颜色。缺省值为0（黑色）。,6）FillStyle属性 该属性用于设置Shape控件的内部填充图案样式。该属性值有8种情况： （1）0表示vbFSSolid，即实心 （2）1表示vbFSTransparent，即透明（缺省值）

8、 （3）2表示vbHorizontalLine，即水平直线 （4）3表示vbVerticalLine，即垂直直线 （5）4表示vbUpwardDiagonal，即正对角线 （6）5表示vbDownwardDiagonal，即反对角线 （7）6表示vbCross，即十字交叉线 （8）7表示vbDiagonalCross，即对角交叉线。,例 5.13 在窗体上画一系列不同的形状。在窗体上添加1个Label控件数组Label 1（0）Label（7），1个Shape控件数组Shape1（0）Shape（7），再添加4个命令按钮Command1 Command4（标题分别为“设置形状”、“设置颜色”、

9、“填充线条”和“退出”）。运行的效果界面如图5.22所示,单击“设置形状”命令按钮，事件过程代码如下： Private Sub command1_Click() For i = 0 To 7 shape1(i).Shape = i Label1(i).Caption = i= & Str(i) Next i End Sub,单击“设置颜色”命令按钮，事件过程代码如下： Private Sub command2_Click() For i = 0 To 5 shape1(i).FillStyle = 1 shape1(i).BackStyle = 1 shape1(i).BackColor =

10、QBColor(i) Label1(i).Caption = i= & Str(i) Next i End Sub,单击“填充线条”命令按钮，事件过程代码如下： Private Sub command3_Click() For i = 0 To 7 shape1(i).FillStyle = i Label1(i).Caption = i= & Str(i) Next i End Sub 单击“退出”命令按钮，事件过程代码如下： Private Sub command4_Click() End End Sub,1、Pset方法画点 （书上P96） 用于画点。其中，参数(x，y)为所画点的坐标，关键字Step表示采用当前作图位置的相对值。采用背景颜色可清除某个位置上的点。 格式：对象名称.PsetStep(x，y),颜色 （1）参数（X，Y）为所画点的坐标。 （2）Step是可选项，选择该项则表示该坐标（X，Y）是相对坐标，否则是绝对坐标。 （3）颜色也是可选项，省略该项则采用容器的前景色画点；如果使用背景颜色则可清除某个位置上的点。,第二节 图形方法,例 5.8 在窗体中从坐标原点处开始连续画10个红色的点，每个点距离上一个点的相对位置为水平、垂直方向各10个像