土嘎嘎VB下载模块带进度条源码分享

Dim WithEvents oDownload As CFileDownload

Private Sub oDownload_OnProgress(ByVal lProgress As Long, ByVal lMaxProgress As Long, ByVal lSpeed As Long, ByVal lStatusCode As Long, ByVal sStatusText As String)

    Dim I As Single

    If lProgress = 0 Or lMaxProgress = 0 Then Exit Sub

    I = lProgress / lMaxProgress * 30

    labProgress.Caption = String(I, "■")

End Sub

Private Sub cmdDownload_Click()

    '开始下载

    '注意StartDownloading过程是阻塞的.

    If oDownload.StartDownloading(txtURL.Text, AddStrToStr(App.Path, "\") & GetFileNameInPath(txtURL.Text)) Then

        gg.Caption = "下载成功!"

            Call oDownload.AbortDownloading

            Set oDownload = Nothing

    Else

        gg.Caption = "下载失败!"

        cmdDownload_Click

    End If

End Sub

Private Sub cmdCancel_Click()

    '取消下载.

    Call oDownload.AbortDownloading

End Sub