栋栋的个人博客

Access-控件解析-窗体-02-进度条

  • 783 字

Part 1：示例

  1. 点击按钮实现进度条显示，并显示完成程度百分比

效果图
图片

动态图
图片

Part 2：代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub 进度条()   
    Dim i, n  
    n = 5000   
    UserForm1.Show 0  
    Set ProgressBar1 = UserForm1.ProgressBar1
    ProgressBar1.Max = n  
    ProgressBar1.Min = 0     
    For i = 0 To n  
        process = CInt(100 * (i - 0) / (n - 0))    
        UserForm1.Caption = "完成度：" & process & "%"   
        ProgressBar1.Value = i  
    Next  
    Unload UserForm1  
    MsgBox "完成"
End Sub

代码截图

图片

Part 3：窗体搭建

新建一个窗体，插入控件ProgressBar

    • 如果没有发现控件工具箱，可以在菜单栏：视图-工具箱打开
    • 默认是没有进度条控件的，需要人工加入，鼠标悬浮在工具箱控件区域位置上，右键附加控件，注意鼠标位置，不同位置右键效果不同。添加控件Microsoft ProgressBar Control

显示工箱

图片

添加进度条控件

图片

图片

Part 4：部分代码解读

  1. UserForm1.Show 0，显示窗体
  2. Unload UserForm1，关闭窗体
  3. Set ProgressBar1 = UserForm1.ProgressBar1，定义控件
本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可
, , , ,