友情提示:同学您好,此页面仅供预览,在此页面学习不会被统计哦! 请进入学习空间后选择课程学习。

任务描述

    用2个Shape控件和一个定时器控件建立一个模拟进度条的应用程序。

u建立程序的用户界面

     在窗体上添加一个定时器控件、两个形状(Shape)控件。

      ·形状(Shape)控件:可用来在窗体上绘制矩形、正方形、椭圆或圆等8种几何图形。我们使用该控件的Width属性表示进度条的宽度。

      ·定时器(Timer)控件:定时器控件在给定的时间间隔到达后触发定时器事件,以提供时间信息。

v设置对象的属性

      ·窗体对象:设置其Caption属性为“进度条”。

      ·Timer1对象:设置其Interval属性为50,即每50毫秒触发1Timer事件。

      · Shape1对象:设置其BackColor属性为白色,BackStyle属性为1(其值为0时,表示透明;为1时,表示不透明)。

      · Shape2对象:设置其BackColor属性为蓝色,BackStyle属性为1

w编写程序代码

Private Sub Timer1_Timer()

    Shape2.Width = Shape2.Width + 50

    If Shape2.Width >= Shape1.Width Then

         Shape2.Width = Shape1.Width

         Timer1.Interval = 0

    End If

End Sub

x运行程序

     

y保存工程