第11章图形.pptVIP

第11章 图 形 11.1 用直线控件画线 11.2 用形状控件画出几何图形 11.3 用 Pset 方法画点 11.4 用 Line 方法画线和矩形 11.5 用 Circle 方法画圆、椭圆和圆弧 习题 第8章介绍了利用图片框和图像框装入和显示图像的方法。但是，仅仅能够把图片显示在窗体上往往还不能满足用户的需求。用户常常希望能根据自己的意愿，画出一些简单的图形。VB提供了画图形的基本工具，可以直接画点、直线、矩形、正方形、圆、椭圆等，并由这些基本元素组成各种图形。 11.1 用直线控件画线 VB提供了画线的工具----直线控件（Line），它在工具箱中的图标为 　　。 使用直线控件的方法与使用其他控件相同。单击工具箱中直线控件的图标，然后把鼠标移到窗体中所需的位置，按下鼠标左键拖拉到直线的终点，松开鼠标，窗体上就出现一条直线。 直线控件常用的属性有： 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有效。 BorderWidth：设置线宽 BorderColor：设置颜色 x1,x2,y1,y2：指定直线起点和终点的x坐标及y坐标。可以通过改变x1,x2,y1,y2的值改变线的位置。 【例11.1】 在窗体上使用直线控件画7条实心直线，编写一个事件过程改变它们的颜色及类型。窗体设计如图11.1。 单击工具箱中的“直线控件”，在窗体上画出最上面一条直线，将其“名称”属性定为LLine。 再画第二条直线，对其“名称”属性也定为LLine，这时会弹出一个消息框，问“你已有一个名为LLine的控件，你是否想建立一个控件数组”，回答“是”，则系统会将该控件作为控件数组LLine中的一个元素LLine(1)，而将第一条直线定为数组元素LLine(0)。 下面以同样的方法再画出5条直线，分别定名为LLine(2)～LLine(6)。在窗体上加两个命令按钮，一个按钮的Caption属性设置成“画直线”，另一个为“退出”。按题目要求，单击“画直线”命令按钮，应画出不同颜色、不同类型的7条线。编写相 应的过程代码如下： Private Sub cmdLine_Click ( ) For i = 0 To 6 LLine(i).BorderColor = QBColor(i) LLine(i).BorderStyle = i Next i End Sub QBColor是颜色函数，当参数i为不同值时，给出不同的颜色。运行程序时，单击“画直线”命令按钮，即将窗体上的7条直线分别改变为不同颜色和不同类型的直线，如图11.2所示。 从程序的运行结果可以看到，各条直线的类型和颜色都发生了变化。这就是用直线控件画直线的方法。 11.2 用形状控件画出几何图形 VB提供“形状控件”（Shape）可以方便地画出矩形、正方形、圆、椭圆等简单的几何图形。 形状控件在工具箱中的图标为　　。 使用形状控件的方法是：单击工具箱中的形状控件图标，然后按下鼠标左键并在窗体上拖动，在适当的位置释放鼠标，窗体上出现一个矩形框，就是形状控件。为该控件设置不同的Shape属性，可以得到不同的形状。 在属性窗口选择Shape属性，并单击该属性右端向下的箭头，显示一个下拉列表，其含义如下： 0 -- Rectangle 矩形 1 -- Square 正方形 2 -- Oval 椭圆形 3 -- Circle 圆形 4 -- Rounded Rectangle 圆角矩形 5 -- Rounded Square 圆角正方形 Shape属性的缺省值为0（矩形）。若选择3，则在刚才用Shape控件画出的矩形中画出一个圆（圆的直径是矩形的短边，也就是说，圆内切於矩形。 请注意：此时矩形的边框不显示出来）。 【例11.2】 设计如图11.3所示的窗体。窗体上有六个Shape控件、六个标签框以及“设置形状”、“设置颜色”、“填充线条”、“退出”等四个命令按钮。运行时如按“设置形状”命令钮，将为“形状控件”设置Shape属性；按“设置颜色”按钮，用不同的颜色填充各形状控件；按“填充线条”按钮，以不同的线条填充图形。 为便于程