循环 Label text 只显示最后的值,该如何解决

循环 Label text 只显示最后的值
在做进度条时  Label 只在计算到100% 是才显示出来
是哪里的问题呀，求解？？

 download.Show()
        download.down_bar1.Minimum = 0
        download.down_bar1.Maximum = 100
        For x1 = 0 To 10
            For y1 = 1 To 10
                If a(x1, y1) <> "" Then
                    MyFileName = strPath & "" & a(x1, 0) & "" & a(x1, y1) & "\1.gif"
                    z1 = z1 + 1
                    bfb = (z1 / z) * 100                '百分比
                    download.down_bar1.Value = bfb 'z1 / z * 100    '进度条
                    download.down_lb1.Text = "已下载" & bfb & "%"      '   Label1         
                    MyClient.DownloadFile(MyUri, MyFileName)
                End If
            Next


        Next
        '  download.Close()

[最优解释]
            For y1 = 1 To 10
                Application.DoEvents()
                If a(x1, y1) <> "" Then

[其他解释]
多谢，感激不尽

查看更多 下一篇