第十单元 程序.pptVIP

第十单元 图形操作 第一节 图形控件 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）BorderWidth、BorderStyle、BorderColor属性 （1） BorderStyle： 用来指定直线的类型。在属性窗口的属性表中，找到BorderStyle，单击右端箭头，有一个下拉菜单，列出下列7种类型。 0——Transparent，透明的，即不显示出线来。 1——Solid，实线。 2——Dash，虚线。 3——Dot，点线。 4——Dash-Dot，点画线。 5——Dash-Dot-Dot，双点画线。 6——Inside Solid，内实线。 注意：只有当BorderWidth为1时才可以用以上7种类型的线，如果BorderWidth不为1，则上述7种类型中只有0和6有效。 （2） BorderWidth： 设置线宽。 （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所示。 单击“设置线宽”命令按钮，事件过程代码如下： Private 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 + 8) Next i End Sub 其中：QBColor是颜色函数，当参数i为不同值时，给出不同的颜色。 2、形状控件 （书上P100） 形状（Shape）控件主要用于在窗体、框架或图片框上绘制常见预定义的几何图形。 1）Shape属性 通过设置图形（Shape）控件的Shape属性，可以画出矩形、正方形、椭圆形、圆形、圆角矩形或圆角正方形等多种图形。该属性值有6种情况： （1）0--表示vbShapeRectangle，即矩形（缺省值） （2）1--表示vbShapeSquare，即正方形 （3）2--表示vbShapeOval，即椭圆形 （4）3--表示vbShapeCircle，即圆形 （5）4--表示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--表示vbBSDashDot，即点划线，当BorderWidth为1时有效。 （6）5--表示vbBSDashDotDot，即双点划线，当BorderWidth为1时有效。 （7）6--表示vbBSInsideSolid，即内收实线