任务描述
用2个Shape控件和一个定时器控件建立一个模拟进度条的应用程序。
u建立程序的用户界面
在窗体上添加一个定时器控件、两个形状(Shape)控件。
·形状(Shape)控件:可用来在窗体上绘制矩形、正方形、椭圆或圆等8种几何图形。我们使用该控件的Width属性表示进度条的宽度。
·定时器(Timer)控件:定时器控件在给定的时间间隔到达后触发定时器事件,以提供时间信息。
v设置对象的属性
·窗体对象:设置其Caption属性为“进度条”。
·Timer1对象:设置其Interval属性为50,即每50毫秒触发1次Timer事件。
· 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保存工程