用access实现的进度条

其实用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

 

下载地址