Access实现进度条功能

Hi，大家好久不见，最近这个天气实在是太热了，出个门，直接就融化了，感谢空调给了我生存下去的勇气😫

自从上次发了下一步的计划后，我就消失了，但大家不要急，最近我就会开始给大家分享了。那今天，先给大家来一个开胃小菜吧，今天给大家分享一个进度条功能。

01、创建窗体

在窗体上放上这几个控件，两个文本框，两个标签，按下图，设置一下两个文本框的背景色，一个设置为灰色，一个设置为蓝色

接着，我们将两个文本框重叠

02、添加代码

我们将显示百分比的标签名称改成：lbl_Percent

显示信息的标签名改成：lbl_Msg

灰色的文本框名称改成：Text1

蓝色的文本框名称改成：Text2

两个文本框的可能都改成否，是否锁定改成是

接着，我们添加一下代码：

Private Sub Form_Load()
Me.lbl_Percent.Caption = "0%"
Me.Text2.Width = 1
Me.TimerInterval = 1

End Sub

Private Sub Form_Timer()
Dim i As Integer
For i = 1 To 100
    Sleep 5
    Me.lbl_Percent.Caption = i & "%"
    Me.Text2.Width = i * (Me.Text1.Width \ 100)
    Me.Repaint
    DoEvents

Next i
Me.TimerInterval = 0
Sleep 500

End Sub

03、运行测试

最后，我们来看一下运行结果。

原理非常的简单，利用计时器事件，利用一个文本框来遮住另一个文本框。

好了，今天的分享就到这里了，请大家持续关注我。

END