进度条窗体为什么只能用无模式方式打开？

renahu

1. Private Sub UserForm_Initialize()
   
2.     ' 初始化进度条范围
   
3.     ProgressBar1.Min = 0
   
4.     ProgressBar1.Max = 100
   
5.     ProgressBar1.Value = 0
   
6. End Sub

复制代码

1. Sub SimulateProgress()
   
2. Dim i As Integer
   
3. ' 显示UserForm
   
4. 进度条.Show 1
   
5. '进度条.Show 0      '可以正常显示
   
6. ' 模拟一些计算任务
   
7. For i = 1 To 10
   
8.     ' 更新进度条和标签
   
9.     进度条.ProgressBar1.Value = i * 10
   
10.     进度条.Caption = "Progress: " & i * 10 & "%"
    
11.     ' 模拟任务延迟
    
12.     Application.Wait (Now + TimeValue("0:00:01"))
    
13.     VBA.DoEvents
    
14. Next i
    
15. ' 关闭UserForm
    
16. Unload 进度条
    
17. End Sub
    

复制代码

有模式的为什么进度显示不出来？
进度条.zip (18.15 KB, 下载次数: 13)

2024-10-6 10:10 上传

点击文件名下载附件

lss001

'窗体初始化事件
Private Sub UserForm_Initialize()
    ' 初始化进度条范围
    ProgressBar1.Min = 0
    ProgressBar1.Max = 100
    ProgressBar1.Value = 0
End Sub

'模块进度条代码移到窗体激活事件
Private Sub UserForm_Activate()
Dim i As Integer
' 模拟一些计算任务
For i = 1 To 10
    ' 更新进度条和标签
    进度条.ProgressBar1.Value = i * 10
    进度条.Caption = "Progress: " & i * 10 & "%"
    t = Timer  ' 模拟任务延迟
    While Timer < t + 1: VBA.DoEvents: Wend
    VBA.DoEvents
Next i
' 关闭UserForm
Unload 进度条
End Sub

'模块代码仅保留显示窗体
Sub SimulateProgress()
' 显示UserForm
进度条.Show 1
'进度条.Show 0   '可以正常显示
End Sub