其实用access实现进度条几简单。用vba都能,相信用其它的语言也是相同,可能差别就是放在不同的事件里吧!
- Private Sub Form_Timer()
- '进度条代码---开始
- '下面的代码放在窗体的“计时器触发”(顺便提一下最好设计时器间隔为100)
- If Text1.Value < 100 Then
- Text1.Value = 1 + Text1.Value
- Label3.Width = 4000 / 100 * Text1.Value
- Me.Text1.Visible = True
- Me.Label4.Visible = True
- Me.Label3.Caption = "欢迎使用本系统!程序正在加载中,请稍候......"
- Me.Label3.ForeColor = 255
- '其中4000决定着进度条达到100%时的长度
- If Me.Text1.Value = 100 Then DoCmd.Close
- Else
- Text1.Value = 0
- Label3.Width = 0
- End If
- '进度条代码---结束
- End Sub