如何让状态栏里的进度条动态变化

lzg

// 我们还可以在状态栏显示Proj.MainForm.ShowProcessBar = trueroj.MainForm.ProgressBar.Maximum = 100roj.MainForm.ProgressBar.Minimum = 0roj.MainForm.ProgressBar.Value = 25;
我用for循环控制上面的Proj.MainForm.ProgressBar.Value，但是进度条没有动态变化。是否还要写什么语句让进度条动态刷新？

admin

'显示状态栏中的进度条
Proj.MainForm.ShowProcessBar=True
'设置进度条的最大值和最小值
Proj.MainForm.ProgressBar.Maximum=100
Proj.MainForm.ProgressBar.Minimum=0
'在程序运行过程中设置进度条中的值，以更新
For i As Integer = 1 To 100
        '模拟软件运行逻辑占用时间，实际场景使用实际的代码
        Thread.Sleep(50)
        '设置显示文本
        Proj.MainForm.ProgressBarMessage="当前进度" & i & "%"
        '设置进度值
        Proj.MainForm.ProgressBar.Value=i
        '交出独占权，方便程序可以处理其他事件，比如刷新界面
        Application.DoEvents()
Next
复制代码