用access实现的进度条

 

其实用access实现进度条几简单。用vba都能，相信用其它的语言也是相同，可能差别就是放在不同的事件里吧！

1.  Private Sub Form_Timer()
2. '进度条代码－－－开始
3.   '下面的代码放在窗体的“计时器触发”（顺便提一下最好设计时器间隔为100）
4.   If Text1.Value < 100 Then
5.    Text1.Value = 1 + Text1.Value
6.    Label3.Width = 4000 / 100 * Text1.Value
7.    Me.Text1.Visible = True
8.    Me.Label4.Visible = True
9.    Me.Label3.Caption = "欢迎使用本系统！程序正在加载中,请稍候......"
10.    Me.Label3.ForeColor = 255
11. '其中4000决定着进度条达到100%时的长度
12. If Me.Text1.Value = 100 Then DoCmd.Close
14.    Else
15.    Text1.Value = 0
16.    Label3.Width = 0
17.     End If
18.     '进度条代码－－－结束
20. End Sub

                                                                                                                                                                     下载地址