Access培训-Access开发平台-Access行业开发
Access交流网(免费Access交流）
QQ：18449932
网 址：www.access-cn.com
作者：RJXERP -Lymin_li
其实用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
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
