新VB程序设计案例教程（ ） 第6章 中文 VB 程序设计基础.pptVIP

第1章 图形图像类和选择类控件 【案例24】圣诞小屋 【拓展案例56】绘制图形和显示图像 【拓展案例57】图像水平移动切换 【拓展案例58】随机下落的旗子 【案例25】正弦和余弦图形 【拓展案例59】三彩球反弹运动 【拓展案例60】定时指针表 【拓展案例61】多圆图案 【拓展案例62】金刚石图案 【拓展案例63】李沙育图形 【拓展案例64】晨练 【案例26】模拟“打开”对话框 【拓展案例65】选择与运行可执行文件 【拓展案例66】多功能图像浏览器1 6.1 【案例24】圣诞小屋 6.1.1 学习目的 “圣诞小屋”程序运行，如图6-1-1所示。通过本案例的学习，可以初步掌握利用形状控件和线形控件绘制图形的方法，了解形状控件和线形控件的常用属性。 6.1.3 相关知识 1．线形控件 线形(Line)控件主要用来在窗体、框架或图片框内绘制简单的线段。线形控件与形状控件相同，也不支持任何事件。它常用的属性如下。 （1）X1，Y1，X2，Y2属性 【格式】对象名称．Xl| Y1| X2| Y2 [=number] 【功能】通过设置线段的起点坐标(Xl，Y1)和终点坐标(X2，Y2)属性，可设置线段的长度。 【说明】[对象名称]是指添加到窗体中的线形控件的名称，其默认值为Linel。表示添加的线形控件的名字。Xl和Y1分别表示线段的起点横、纵坐标，X2和Y2分别表示线段的终点横、纵坐标。Number是一个数值，用来设置线段的坐标值。 （2）BackColor属性：它用于设置窗体或图片框的背景颜色，可参看第2章有关内容。 （3）BorderStyle属性：用于设置Line或Shape控件的边框风格，它只能在设计时使用。在设计时，它的设置不会影响窗体或图片框的显示，但程序运行时会改变显示。它的属性值有6个，可以通过实验了解各种边框风格的特点。 （4）BorderWidth属性：它用于设置Line或Shape控件的边框的宽度。系统默认的线宽度为1。BorderStyle设置值对BorderWidth属性是有影响。BorderStyle值为0时，忽略BorderWidth 设置；BorderStyle值为1到5时，边框宽度从边框中心扩大，控件的宽度和高度从边框的中心度量；BorderStyle值为6时，边框的宽度从控件边框的外边向内扩大，控件的宽度和高度从边框的外面度量。 （5）DrawMode属性：它用于设置绘图时图形线条颜色的产生方式。它不仅可以在“属性”窗口中设置该值，还可以在程序中定义它的值。如果只是在“属性”窗口内设置DrawMode的值，那么该属性会影响整个窗体或图片框的输出结果；如果在程序代码内设置DrawMode的值，那么就可以使窗体或图片框内的各线条显示不同的颜色。DrawMode属性共有16个值，如表6-1-1所示，其中，1与16的颜色相反，2与15的颜色相反，3与14的颜色相反。 2．形状控件 形状(Shape)控件主要用于在窗体、框架或图片框中绘制预定义的几何图形，例如，矩形、正方形、椭圆形、圆形、圆角矩形、圆角正方形等。形状控件不支持任何事件，只用于表面装饰。它常用的属性如下。 （1）Shape属性 【格式】对象名称.Shape[=number] 【功能】返回或设置形状控件的外观。其取值为整数类型，默认值为0。 【说明】[对象名称]参数是指添加到窗体中的形状控件的名称，默认值为Shapel。number表示一个整数，其取值有0……5。其中，0表示vbShapeRectangle，即矩形；1表示vbShapeSquare，即正方形；2表示vbShapeOval，即椭圆形；3表示vbShapeCircle，即圆形；4表示VbShapeRoundedRectangle，即圆角矩形；5表示VbShapeRoundedSquare，即圆角正方形。 （2）其他属性：另外，它还有几种与图片框控件一样的属性，可以控制形状控件的外观，例如利用BorderColor(边框颜色)和FillColor(填充颜色)属性可以改变其颜色，利用BorderStyle(边框样式)、BorderWidth(边框宽度)、FillStyle(填充样式)和DrawMode(绘图模式)属性可以控制如何画图。 3．图像控件 图像(Image)控件主要用来显示图像。它常用的属性如下。 （1）Picture属性 【格式】对象名称.Picture[=picture] 【功能】保存和设置显示在图像控件对象中的图像。这些图像可以是位图文件、图标文件、Windows图元文件、JPEG文件和GIF文件等多种类型。 【说明】“对象名称”是指添加到窗体中的图像控件的名称，其默认