正在阅读：VisualBasic第三方控件实现软件在线升级VisualBasic第三方控件实现软件在线升级

　　③添加一个Listbox，命名为lstOut。为了美观，可以把Appearance属性设置为“0－Flat”。该控件用于显示下载过程中的进度说明。

　　④在bkDLControl控件的右下方添加一个Label，命名为lblProg，设置Autosize属性为True。它将用于实时显示下载的大小和百分比。

　　程序总体界面如图2，在界面和属性设置上非常的简单。

图2

　　到这里就完成了这个演示程序的界面设置，接着进行代码的编写。


　　第四步：编写代码，实现具体的功能。

　　①编写Form1的Load事件，使程序启动时cboURL显示默认的下载地址。代码如下：

Private Sub Form_Load()
　 cboURL.ListIndex = 0
End Sub

Private Sub cmdBegin_Click()
　　With DL　　　　　　　　
　　　.FileURL = cboURL.Text ’设置bkDLControl的下载地址　　　　
　　　.SaveFilePath = App.Path ’设置下载后的保存路径，这里设置为当前程序所在文件夹
　　　LogItem "请求下载" & cboURL.Text
　　　’在lstOut中添加下载状态说明，这里使用了一个自定义过程，该过程的代码将在下面第四步说明
　　　.BeginDownload ’发出开始下载命令
　　End With
　　cmdCancel.Enabled = True ’设置cmdCancel属性为True，使下载过程中可以中止下载
End Sub

Private Sub cmdCancel_Click()
　　　DL.CancelDownload ’发出取消下载命令
End Sub