主题：动态label怎样实现？

如下以代码：

 

forms("进度条窗口").Show
If forms("进度条窗口").Opened Then
    Dim p As WinForm.ProgressBar=Forms("进度条窗口"). Controls("ProgressBar1")
    Dim l As WinForm.Label =Forms("进度条窗口"). Controls("Label1")
    Dim word As String=l.text
    Dim t As Table=Tables("表目录")
    '''
    p.Minimum = 0 '设置最小值
    p.Maximum = t.Rows.count '设置最大值
   
    For Each r As Row In t
        r("顺序号")=r.Index+1
        '    t.Position=r.Index
        r.DataRow.Save
        p.Value = r.Index  '设置当前值
        l.Text=word & str(r.Index+1/p.Maximum*100) & "%"
    Next
    Forms("进度条窗口").Close
End If

Functions.Execute("刷新导航页签")

 

1、如红字部分，想实现动态的百分比变化，但是实际效果是压根显示不出来，进度条的进程比较正常！怎么解决呀？

2、另外展示进度条的窗口如果用成模式窗口就不动了，若是用成独立窗口，又担心任务进展未完成时用户进行别的操作，该如何解决呀？

 

 

forms("进度条窗口").ToMost  这句是什么意思呢？而且报错，提示tomost不是winform的成员呀！

LockBaseMainForm是锁定主窗口，我的窗口不是主窗口，而是模式窗口，比如是：forms("设置窗口")，窗口有保存按钮，点保存按钮时调用forms("进度条窗口")，显示进度情况，但我想在进度条窗口显示过程中，用户不可以操作forms("设置窗口")，如何实现？

 

试验了StopRedraw和ResumeRedraw，但是效果不理想，比如竟然仍可以在进度条窗口显示过程中，拖动forms("设置窗口")并可以选定窗口中的表，不知怎么杜绝！

或者是转换思路，将进度条窗口设为模式窗口？然后将代码写入进度条窗口的afterload事件里？

接上面的思路，如果将进度条窗口设为模式窗口，将进度代码放入afterload事件的话，那针对不同的表，我就得设计N多个进度条窗口，这明显浪费资源，不是个好的解决方案。我想就设计一个进度条窗口，不同的窗体中的表都可以调用它。

或者我就得声明全局变量了，让label1和ProgressBar1的值对应等用全局变量，这倒也可以，但我尽量不想用全局变量