[VB中利用第三方控件实现软件在线升级.docVIP

[VB中利用第三方控件实现软件在线升级.doc

  1. 1、本文档共5页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
[VB中利用第三方控件实现软件在线升级

VB中利用第三方控件实现软件在线升级   下载本文控件和示例源代码   大家对金山毒霸、瑞星等杀毒软件的在线升级一定不陌生吧?它们可以利用在线升级程序进行在线升级 ,无需用户访问网站下载。这样的功能的确对于使用者来说是十分方便的。那么,您是否也想为您的软件添加方便的在线升级的功能呢?下面介绍一个第三方控件,能够帮你非常容易地就实现。   bkDLControl控件一个可以快速实现在线下载的控件,它在下载的同时通过进度条显示进度。你可以编写当其下载完成后的事件,这样我们就可以轻松达到在线升级的目的。   要了解该控件强大便捷的功能,下面我们就通过一个实例来讲解。   第一步:首先启动Visual Basic 6.0,新建一个窗口。      第二步:加载bkDLControl控件。   ①在控件工具栏中单击右键,选择“部件”,在弹出的窗口中点击“浏览”,找到bkDLControl控件,载入它,命名为“DL”;因为是一个进度条,所以把大小拖成一个适当的长条状,把它放到Form1窗体中适当位置即可。其他属性保持默认即可。   第三步:加载其他控件,完成界面的设置。   ①在窗体中添加2个CommandButton控件,名称分别为cmdBegin和cmdCancel,Caption属性分别为“开始”和“取消”,其中设置cmdCancel的Enabled属性为“False”。   ②添加一个ComboBox控件,名称为cboURL,在list中添加几个下载地址(如图1),其他属性保持默认。添加该控件用于选择下载地址,这样可以用用户自行选择下载的服务器。   ③添加一个Listbox,命名为lstOut。为了美观,可以把Appearance属性设置为“0-Flat”。该控件用于显示下载过程中的进度说明。   ④在bkDLControl控件的右下方添加一个Label,命名为lblProg,设置Autosize属性为True。它将用于实时显示下载的大小和百分比。   程序总体界面如图2,在界面和属性设置上非常的简单。   到这里就完成了这个演示程序的界面设置,接着进行代码的编写。   第四步:编写代码,实现具体的功能。   ①编写Form1的Load事件,使程序启动时cboURL显示默认的下载地址。代码如下: Private Sub Form_Load()   cboURL.ListIndex = 0 End Sub   ②添加两个commandbutton的Click事件,分别实现开始下载和取消下载的功能。 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   ③编写bkDLControl各个事件的代码,以完成具体功能: Private Sub DL_DLBeginDownload()  LogItem 开始下载从 DL.FileURL End Sub Private Sub DL_DLCanceled()  LogItem 取消下载 End Sub   上面两段代码是开始和取消下载时的事件,向lstOut输入状态。 Private Sub DL_DLComplete(Bytes As Long) ’下载完成的事件  cmdCancel.Enabled = False  If Bytes 0 Then ’如果下载的不是零字节,则显示相关信息   LogItem 完成 SizeString(Bytes) 下载并保存到 DL.SaveFileName   ’下面添加实现文件更新的代码   ……  Else   LogItem 下载失败  End If End Sub   上面的代码调用了一个自定义函数SizeString,代码同样在第四步中说明。这段bkDLControl完成下载时激发的事件是我们实现在

文档评论(0)

xiayutian80 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档