2u5综合案例1.doc

25综合案例（1） 【教学时间】第 周 第 节 【教学目的】 通过教学，使学生熟练掌握Visual Basic的常用控件图片框、图像框、形状控件、线条控件、定时器控件、进程条控件等，并能掌握其在编程中的应用。 【重点、难点】Visual Basic的常用控件图片框、图像框、形状控件、线条控件、定时器控件、进程条控件等，并能在编程中应用。 【学习过程】 一、形状（Shape）Width属性：设置形状控件的宽度 Height属性：设置形状控件的高度 Left属性：设置形状控件的左边界与窗体左边界的距离 Top属性：设置形状控件的上边界与窗体上边界的距离 3、主要方法： 画圆的Circle方法，格式为：对象名. Circle（X1，X2），R，颜色，纵横比 ［例10－4］创建一个窗体Form1（Caption：圆和滚动条），在此窗体上创建1个形状控件（红色的圆）、1个滚动条和2个标签，程序运行后，形状控件（圆）的大小随着滚动条的移动而变化，并在标签中显示出大小数值。 ［解］第一步：创建新窗体Form1，在此窗体上创建1个形状控件Shape1（红色的圆），1个滚动条HScroll1,2个标签Label1、Label2。 第二步：设置对象的属性 对象类型 对象名 属性设置 窗体 Form1 Caption 圆和滚动条 滚动条 HScroll1 Max 3400 Min 100 形状控件 Shape1 Shape 3 FillColor 红色 标签 Label1 Caption 空白 标签 Label2 Caption 空白 第三步：补充完成代码编写 Private Sub Form_Load() Form1.BorderStyle = 3 Shape1.FillStyle = 0 透明显示填充色 Label1.Caption = 园直径为: HScroll1.LargeChange = 50 HScroll1.SmallChange = 50 Label2.Caption = HScroll1.Value Shape1.Left = 2400 - HScroll1.Value / 2 固定圆心位置为(2400,1800) Shape1.Top = 1800 - HScroll1.Value / 2 End Sub Private Sub HScroll1_Change() Shape1.Width = HScroll1.Value Shape1.Height = HScroll1.Value Shape1.Left = 2400 - HScroll1.Value / 2 固定圆心位置为(2400,1800) Shape1.Top = 1800 - HScroll1.Value / 2 Label2.Caption = HScroll1.Value End Sub Private Sub HScroll1_Scroll() 圆的直径随滚动条变化 Call HScroll1_Change End SubTimer）：（P110－111） 1 功能：定时器控件又称时钟控件（Timer），用于有规律地定时执行指定的工作，适合编写不需要与用户进行交互就可直接执行的代码，如计时、倒计时、动画等。在程序运行阶段，时钟控件不可见。定时器控件默认名称为Timer1、Timer2、Timer3…。 2 主要属性 （1）Interval属性：设置定时器的时间间隔，即每隔多少时间触发一次。取值范围在0 到 64767 之间（包括这两个数值），单位为毫秒（0.001秒），表示计时间隔。若将Interval属性设置为0或负数，则计时器停止工作。 （2）Enabled属性：设置定时器是否有效。无论何时，只要时钟控件的Enabled属性被设置为True而且Interval属性值大于0，则计时器开始工作（以Interval属性值为间隔，触发Timer事件）。通过把Enabled属性设置为False可使时钟控件无效，即计时器停止工作。 3、主要事件 时钟控件只能响应Timer事件，当Enabled属性值为True且Interval属性值大于0时，该事件以Interval属性指定的时间间隔发生，需要定时执行的操作即放在该事件过程中完成。 ［例10－5］设计一个电子手表，当单击“开始”按钮时，立体标签中显示黄底蓝字的系统时间，如果单击“停止”按钮，则电子时钟停止运行。 ［解］第一步：创建新窗体Form1，在此窗体上创建2个命令按钮Command1、Command2，1个定时器Timer1和1个标签La