用access实现的进度条

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

   '下面的代码放在窗体的“计时器触发”（顺便提一下最好设计时器间隔为100）

Private Sub Form_Timer()
  If Text1.Value < 100 Then
   Text1.Value = 1 + Text1.Value
   Label0.Width = 4991 / 100 * Text1.Value '其中4991决定着进度条达到100%时的长度
   If  你要停止的条件  Then DoCmd.Close
   Else
   Text1.Value = 1
   Label0.Width = 1
  End If
End Sub

  注： 很久没有在自己空间发一些代码了！以后在这里除了写一下自己的心情外还得放一下自己总结的或者是高手们的代码！还有就是写一下英语吧！本来我有一个msn空间专门用来写英语日记的，可惜公司的网络不能登陆（不知是不是给封了端口）