следующий код используется для загрузки файла ехе из DriveHQкак установить ProgressBar при загрузке файлов с FTP
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim strFTPpath, strDestPath As String
Cursor.Current = Cursors.WaitCursor
'strFTPpath is the url of where Latest upd is located
'strDestPath is system path to dwonload upd from FTP
strFTPpath = "ftp://MYUSRNAM:[email protected]/rstari9kremcos/RStari9.exe"
strDestPath = "D:\Rstari9\GDS\RStari9.exe"
My.Computer.Network.DownloadFile(strFTPpath, strDestPath)
Cursor.Current = Cursors.Arrow
Button1.Enabled = False
MsgBox("latest updation successfully downloaded to 'D:\Rstari9\GDS\RStari9.exe'", MsgBoxStyle.Information, "RStari9 - Download Success")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Update downloading aborted...")
End Try
End Sub
и this is my UI to download, я хочу, чтобы добавить прогрессбар в нем
код: VB.NET
Не делайте этого в потоке пользовательского интерфейса или он остановит ваш интерфейс до конца. Используйте BackgroundWorker. С помощью DownloadFile() вы не получите уведомлений о статусе загрузки, чтобы не показывать индикатор выполнения (если только вы не хотите выделение). Что вы можете сделать, так это установить для параметра showUi значение true. –
@Adriano любой пример ??? –
Попробуйте [this] (http://msdn.microsoft.com/en-us/library/ms229675 (v = vs.90) .aspx), это не совсем то, что вы делаете, но это объяснит технику. –