其它
access实现进度条
2016-12-21 22:46:15

作者：RJXERP -Lymin_li

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

首页