ProgressBarの基本的な使い方を伝授ください (ID:124451)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ProgressBarでダウンロードした％だけ経過％を表示したり、プログレスバーにダウンロードした値だけ表示を増やしていくといった基本的な使用のしかただと思いますが、当方の知識不足でどうしても書けません。
どなたか、御教授してもらえませんか？
よろしくお願いします。出来ているコードは以下までです。
どこをどのように書き直せばよろしいのでしょうか？

Private Declare Function URLDownloadToFile Lib "urlmon" _
      Alias "URLDownloadToFileA" (ByVal pCaller As Integer, _
      ByVal szURL As String, ByVal szFileName As String, _
      ByVal dwReserved As Integer, ByVal lpfnCB As Integer) As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim SaveFileName As String
        Dim DownloadFile As String
        Dim Ret As Decimal
        Dim i As Integer

DownloadFile = TextBox1.Text
        SaveFileName = "C:\" & TextBox2.Text & ".avi"

Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0)

For i = ProgressBar1.Minimum To ProgressBar1.Maximum
            ProgressBar1.Value = i
            Label1.Text = "完了した処理:" & CStr(i) & "%"
            Me.Update()
        Next i

If Ret = 0 Then
            MsgBox("ダウンロードできました。")
        Else
            MsgBox("エラーが発生しました。")
        End If

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る