主题：[求助]进度条

这样似乎可以仿造“透明”：

 

For i As Integer = 1 To MainTable.Rows.Count
    MainTable.Rows(i -1)("第一列") = i
    Application.DoEvents()   '.BackMost = true
    If i Mod 3 = 0
        e.Form.Controls("ProgressBar1").TopMost = True
    Else
        Application.DoEvents()   '.BackMost = true
        e.Form.Controls("ProgressBar1").BackMost = True
    End If
    If i Mod 1 = 0
        p.Value = i
    End If
    Application.DoEvents()
    e.Form.Controls("Label进度").Text = i & "/" & MainTable.Rows.Count
Next

此主题相关图片如下：jdt3.gif