【发布时间】:2014-08-26 23:48:29
【问题描述】:
我相信关于进度条还有很多其他问题,尽管我已经“全部”查看了它们,但找不到一个有效的问题。
我正在尝试将 c:\screenshot.png 上传到我的 ftp,完成后带有进度条和 msgbox。
有人可以为我提供一个工作示例吗?
谢谢
编辑我尝试过的代码。上传作品,虽然进度条没有。
Sub UpdateProgressBar(ByVal sender As Object, ByVal e As UploadProgressChangedEventArgs)
If ProgressBar1.InvokeRequired Then
ProgressBar1.Invoke(New UploadProgressChangedEventHandler(AddressOf UpdateProgressBar), sender, e)
Exit Sub
End If
ProgressBar1.Value = CInt(ProgressBar1.Minimum + _
((ProgressBar1.Maximum - ProgressBar1.Minimum) * _
e.ProgressPercentage) / 100)
End Sub
Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Label16.Text = "Uploading now..."
Label16.Update()
Dim client As New System.Net.WebClient()
AddHandler client.UploadProgressChanged, AddressOf UpdateProgressBar
With client
.Credentials = New NetworkCredential( _
"damon@slimar.eu", "mine123!")
.UploadFile("ftp://slimar.eu/screenshot.png", "C:\screenshot.png")
End With
Label16.Text = "Done!"
Label16.Update()
End Sub
【问题讨论】:
-
though the progress bar dosent请解释一下这部分。发生什么了?它会结冰吗?进度条不会在视觉上更新吗?整个事情发生的速度有多快?