我做了一个自更新的小程序,需要更新两个文件,在循环中更新文件,我在循环中用label显示正在下载的文件,不知道为什么label标签不能显示,只有下载完了才显示最后一个文件?我该怎么解决这个问题?谢谢
解决方案 »
- 桌面播放器的一些问题~~求指教
- 求关于VB 读取Excel时遇到"打开表不是预期格式"问题
- 一个这样的应用:用手机和电脑都可以通过Internet查询,输入查询关键字时,输入框要能显示相关的其它关键字(按拼音),应该采用B/S还是C
- 高手请进--紧急就援
- 我想做一个从ftp服务器上下载文件的程序,想用inet控件,不过听说该控件有写缺陷
- 怎样在过程调用中返回多个值?
- 怪事 VB6.0
- 我用VB写了个RPG的框架,有兴趣的人请看看我的源代码!给我点意见!谢谢!
- 如何检测到非U盘的USB设备啊?比如USB键盘..
- 请问各位高手,怎样可以用VB写修改在文本中选定的内容?给分50!
- activeX dll可以不注册使用么
- 怎样给按钮文本中的某一段加粗体?
Label1.Text = "正在下载第" & (I + 1).ToString.Trim & "/" & FileZs.ToString.Trim & "个文件"
If File.Exists(MainPath + "\" + Sfile(I).Trim) Then
File.Delete(MainPath + "\" + Sfile(I).Trim)
End If
If DownLoad(MyHttp + "/GameUpdate/" + Sfile(I).Trim, MainPath + "\" + Sfile(I).Trim) = False Then
Label1.Text = "下载文件错误,请稍候再试!"
Return
End If
Nextlabel也不用刷新呀
Label1.Text = "正在下载第" & (I + 1).ToString.Trim & "/" & FileZs.ToString.Trim & "个文件" '' 加上下面的任意一条语句都可以
Label1.Refresh
Dovents If File.Exists(MainPath + "\" + Sfile(I).Trim) Then
File.Delete(MainPath + "\" + Sfile(I).Trim)
End If
If DownLoad(MyHttp + "/GameUpdate/" + Sfile(I).Trim, MainPath + "\" + Sfile(I).Trim) = False Then
Label1.Text = "下载文件错误,请稍候再试!"
Return
End If
Next
加入Label1.Refresh即可
给分