首页 > 代码库 > VB随笔2

VB随笔2

1 显示进度条

先弄一个label标签,capation属性设为空白,背景色设为深蓝色

然后弄一个timer控件,同时时间间隔为(Interval):100

Private Sub Timer1_Timer()

Label1.Width = Label1.Width + 20

End Sub