VB中利用第三方控件实现软件在线升级Word文档
用VBA操作Word
用VBA操作Word(转）在所有Office 应用程序中，Microsoft Word 可能是应用最广泛的应用程序，它还经常在自定义Office 解决方案中扮演重要的角色。
开发人员用各种不同的方式使用Word，有一些方式很简单，而另一些极其复杂。
无论涉及何种自定义解决方案，用Visual Basic for Applications (VBA) 处理Word 文档的基本方法都是一样的。
在本栏目中，我将概括地介绍如何使用Word，并提供一些关于如何运用Range 对象处理Word 文档内容的详细资料。
理解基本方法在Word 中，几乎所有的操作都要调用Document 对象本身或其内容。
当您用VBA 操作Word 时，Document 对象表示一个打开的文档，而且所有的Document 对象都是Application 对象的Documents 集合的成员。
文档是一个由字符、单词、句子和段落组成的集合，字符组成单词，单词组成句子，句子组成段落，等等。
因此，每一个Document 对象都具有Characters、Words、Sentences 和Paragraghs 四个集合。
此外，每个文档具有一个包含一个或多个节的Sections 集合，每一个节都有一个包含该节页眉和页脚的HeadersFooters 集合。
注意：您可以在Microsoft Office 2000 开发人员对象模型指南（英文）中查阅完整的Word 对象模型。
另外，您也可以使用对象浏览器和Microsoft Word Visual Basic 参考帮助来学习有关具体某个对象、属性、方法和事件的详细内容。
通过VBA 使用Word 时，Document 对象处于中心位置。
如果您要打开文档或创建新文档，就要创建新的Document 对象。
每个打开或新创建的文档均被添加至Documents 集合。
具有焦点的文档称为活动文档，由ActiveDocument 属性表示。
最新VB中利用第三方控件实现软件在线升级
V B中利用第三方控件实现软件在线升级VB中利用第三方控件实现软件在线升级(bkDLControl控件)2006-11-21bkDLControl控件一个可以快速实现在线下载的控件，它在下载的同时通过进度条显示进度。
你可以编写当其下载完成后的事件，这样我们就可以轻松达到在线升级的目的。
要了解该控件强大便捷的功能，下面我们就通过一个实例来讲解。
第一步：首先启动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显示默认的下载地址。
代码如下：②添加两个commandbutton的Click事件，分别实现开始下载和取消下载的功能。
VBA实现Word的自动化文档处理
VBA实现Word的自动化文档处理随着信息技术的不断发展，自动化文档处理已成为现代办公工作中必不可少的一项技能。
VBA（Visual Basic for Applications）是一种功能强大的编程语言，可以与Microsoft Office软件（如Word、Excel、PowerPoint等）无缝集成，实现自动化任务的编写和执行。
在本文中，我们将探讨如何利用VBA实现Word的自动化文档处理。
一、了解VBA及其基础知识在使用VBA前，我们需要了解一些基础知识。
VBA是一种面向对象的编程语言，基于Visual Basic语言，专门用于编写Microsoft Office的应用程序。
它提供了丰富的API（Application Programming Interface），可以对Office软件进行自定义操作。
在Word中，我们可以通过VBA编写宏（Macro）来实现自动化任务。
宏是一组预定义的动作、命令和函数的集合，可以记录并自动执行。
VBA的代码可以直接录制成宏，也可以通过VBA 编辑器进行编辑和修改。
二、1. 自动创建新文档在Word中，我们经常需要创建新文档。
利用VBA，我们可以编写代码实现自动创建新文档的功能。
下面是一个示例代码：```vbaSub CreateNewDocument()Documents.Add ' 创建新文档With ActiveDocument.SaveAs "C:\Folder\NewDocument.docx" ' 保存新文档.Close ' 关闭文档End WithEnd Sub```通过运行上述代码，我们可以自动创建一个新文档，并将其保存在指定的路径下。
2. 自动插入文本和格式化在实际应用中，我们可能需要在Word文档中插入大量的文本，并进行格式化。
VBA可以帮助我们实现自动插入文本和格式化的功能。
以下是一个示例代码：```vbaSub InsertTextAndFormat()Selection.TypeText "这是一段自动插入的文本。
使用VBA开发自定义Word功能的步骤与技巧
使用VBA开发自定义Word功能的步骤与技巧Microsoft Word是一款功能强大的文字处理软件，它提供了多种自定义功能和扩展开发选项。
在这篇文章中，我将向您介绍使用VBA（Visual Basic for Applications）开发自定义Word功能的步骤与技巧。
VBA是一种基于Visual Basic语言的宏编程语言，它被广泛用于Microsoft Office应用程序的自动化和自定义开发。
借助VBA，您可以通过编写宏代码来操作Word应用程序，并实现定制的功能和任务。
以下是使用VBA开发自定义Word功能的步骤：1. 启用开发工具栏：在Word中，单击顶部菜单栏中的"文件"选项，然后选择"选项"。
在弹出的选项对话框中，选择"自定义功能区"。
然后，在右侧的"主选项卡"列表中，选中"开发工具栏"，点击"确定"按钮。
这样，开发工具栏将在Word界面中显示出来。
2. 打开Visual Basic编辑器：在开发工具栏中，单击"Visual Basic"按钮，或按下Alt + F11快捷键，即可打开Visual Basic编辑器。
在编辑器窗口中，可以看到“项目 - VBAPro ject”的树形结构。
3. 创建新的宏模块：右键单击“项目 - VBAProject”树形结构中的“插入”菜单，然后选择“模块”。
这将在编辑器窗口中创建一个新的模块。
您可以在该模块中编写您的VBA代码。
4. 编写VBA代码：在新创建的模块中，可以使用VBA语言编写您的自定义Word功能代码。
您可以使用各种对Word对象模型的方法和属性进行操作，如文档、段落、表格、字体等。
例如，以下是一个简单的VBA代码示例，将当前选择的文本居中对齐：```vbaSub CenterAlignText()Selection.ParagraphFormat.Alignment = wdAlignParagraphCenterEnd Sub```通过使用各种VBA内置对象和方法，您可以实现自定义的功能，例如批量替换文本、插入图片、生成报告等。
VB写自己的在线更新教程
VB-写自己的在线升级程序-免服务器（1）2011年11月08日星期二下午 12:59首先我们先把程序的框架画好如图：然后我们进入代码框里面输入以下代码：Private Sub Command1_Click()Dim Zfc, Wz, Jg, Wz2, Jg2Dim Sjwz As String, jqw As StringZfc =Inet1.OpenURL("/%E5%9D%8F%E5%9D%8F%E8%AF%BA%E8%AF%BA%E8%A6% icString) ' 升级地址是我用百度的博客发布升级地址，'然后然程序检测，INET1是获取网页的源码,Zfc是接收网页的源码Wz = "【"要查找字符串 "【"。
Wz2 = "】"要查找字符串 "】"。
Jg = InStr(1, Zfc, Wz, 1)的第一个位置Jg2 = InStr(1, Zfc, Wz2, 1)一位置jqw = Val(Jg2 - Jg)Sjwz = Mid(Zfc, Val(Jg + 1), Val(jqw - 1))Text1 =Sjwz'网址赋值到文本框Me.Caption = "共获取网址长度为：" & Len(Sjwz)Text1.ToolTipText = SjwzClipboard.Clear剪辑版End SubPrivate Sub Command2_Click()Clipboard.SetText Text1容End Sub'至此，我们的升级程序也完成一半了，然后我们写一个下载'的程序让用户下载就可以了。
'当然如果你觉得麻烦，就提示用户用迅雷下载就可以了。
效果如图：’-----------------------------------------------------当然了大家也别说我OUT了。
用VB操作word方法.docx
1.'先引用Microsoft Word 11.0 Object Library2.Option Explicit3.4.Dim WordApp As Word.Application '创建Word应用程序5.6.Private Sub Command1_Click()7.Dim i As Long8.On Error GoTo Errhandler9. CommonDialog1.Filter = "Word(*.Doc)|*.Doc|AllFile(*.*)|*.*"10. CommonDialog1.FilterIndex = 111. CommonDialog1.ShowOpen12.Set WordApp = New Word.Application '实例化13. WordApp.Documents.Open CommonDialog1.FileName '打开Word文件14. WordApp.Visible = True'显示 Office Word 界面15.'或者Application.Visible = True16. WordApp.DisplayAlerts = False'不提示保存对话框17.18.'返回段落文字，返回的段落文字在文本框控件中19. Text1.Text = ""20.For i = 1 To ActiveDocument.Paragraphs.Count21. Text1.Text = Text1.Text & (ActiveDocument.Paragraphs(i).Range.Text &vbCrLf & vbCrLf)22.Next23.24.'控制分页25. WordApp.Selection.EndKey unit:=wdStory '将光标移到文档末尾26. WordApp.Selection.InsertBreak wdPageBreak '在文档末尾插入一页27.28.'设置图片格式的页眉29.If ActiveWindow.View.SplitSpecial <> wdPaneNone Then30. ActiveWindow.Panes(2).Close31.End If32.If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then33. ActiveWindow.ActivePane.View.Type = wdPrintView34.End If35. ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader36. Selection.InlineShapes.AddPicture FileName:="F:\资料\My Pictures\2013年元旦.gif", LinkToFile:=False, SaveWithDocument:=True'加载一图片文件作为页眉37. Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft38. ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument39.40.'设置文本格式的页眉41.If ActiveWindow.View.SplitSpecial <> wdPaneNone Then42. ActiveWindow.Panes(2).Close43.End If44.If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then45. ActiveWindow.ActivePane.View.Type = wdPrintView46.End If47. ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader48. Selection.TypeText Text:="办公室常用工具"49. ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument50.51.'隐藏页眉的横线52. WordApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Borders(wdBorderBottom).Visible = False53.54.'取得页眉的内容55. Debug.Print WordApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Text '获取WORD第一节的页眉的文字内容56.57.58.'设置页脚59.If ActiveWindow.View.SplitSpecial <> wdPaneNone Then60. ActiveWindow.Panes(2).Close61.End If62.If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then63. ActiveWindow.ActivePane.View.Type = wdPrintView64.End If65. ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader66.If Selection.HeaderFooter.IsHeader = True Then67. ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter68.Else69. ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader70.End If71. Selection.TypeText Text:="2013年"'设置页脚72. Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages73. ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument74.75. ActiveDocument.SaveAs "c:\MyWord.doc"'保存最后生成的word文档76.77.Errhandler:78.Exit Sub79.End Sub80.81.Private Sub Form_Unload(Cancel As Integer)82.On Error Resume Next83. WordApp.Quit84.Set WordApp = Nothing85.End Sub效果图如下：2、控制Word文档中的文本框对象[vb] view plaincopy1.'先引用Microsoft Word 11.0 Object Library2.Option Explicit3.4.Dim WordApp As Word.Application '创建Word应用程序5.6.Private Sub Command1_Click()7.On Error GoTo Errhandler8. CommonDialog1.Filter = "MS Office Word(*.Doc)|*.Doc|AllFile(*.*)|*.*"9. CommonDialog1.FilterIndex = 110. CommonDialog1.ShowOpen11.Set WordApp = New Word.Application '实例化12. WordApp.Documents.Open CommonDialog1.FileName '打开Word文件13.If Documents.Count >= 1 Then14. Text1.Text = "打开的Word文件是：" & & vbCrLf & vbCrLf15.End If16. WordApp.Visible = True'显示 Office Word 界面17.'或者Application.Visible = True18. WordApp.DisplayAlerts = False'不提示保存对话框19.20. WordApp.Selection.EndKey unit:=wdStory '将光标移到文档末尾21. WordApp.Selection.Font.Bold = 122. = "黑体"23. WordApp.Selection.Font.Size = 1824. WordApp.Selection.TypeText Text:="在Word文件中插入文本框对象"25. WordApp.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter '居中显示26.27.'创建文本框对象,座标（100，100），宽度200，高度20028.With ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 400, 300).Fill29.'.Transparency = 1 '设置透明色30. .ForeColor = vbRed '设置前景颜色31. .UserPicture ("F:\资料\My Pictures\758254_960x1000_0.jpg") '设置文本框对象的背景图片32.End With33. ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "这是一个美女"'给文本框赋值34.'ActiveDocument.Shapes(1).Line.Transparency = 1 '设置透明边框线条35.36.'再创建一个透明背景的文本框对象37.With ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 400, 400, 300).Fill38. .Transparency = 1 '设置透明色背景39. .ForeColor = vbRed '设置前景颜色40.End With41. ActiveDocument.Shapes(2).TextFrame.TextRange.Text = "这是一个透明背景的文本框"'给文本框赋值42.'ActiveDocument.Shapes(2).Line.Transparency = 1 '设置透明边框线条43.44.'下面是获取文本框对象的内容45.Dim i As Long46.For i = 1 To ActiveDocument.Shapes.Count47. Text1.Text = Text1.Text & ("第" & i & "个文本框的内容：" & ActiveDocument.Shapes(i).TextFrame.TextRange.Text & vbCrLf)48.Next49.50. ActiveDocument.SaveAs "c:\MyWord.doc"'保存最后生成的word文档51.52.Errhandler:53.Exit Sub54.End Sub55.56.Private Sub Form_Unload(Cancel As Integer)57.On Error Resume Next58. WordApp.Quit59.Set WordApp = Nothing60.End Sub效果图如下：3、在Word文档中设置Excel风格的页码[vb] view plaincopy1.'先引用Microsoft Word 11.0 Object Library2.Option Explicit3.4.Dim WordApp As Word.Application '创建Word应用程序5.Dim WordDoc As Word.Document '创建Word文档对象6.7.Private Sub Command1_Click()8.Dim i As Long9.On Error GoTo Errhandler10. CommonDialog1.Filter = "Word(*.Doc)|*.Doc|AllFile(*.*)|*.*"11. CommonDialog1.FilterIndex = 112. CommonDialog1.ShowOpen13.Set WordApp = New Word.Application '实例化14.Set WordDoc = WordApp.Documents.Open(CommonDialog1.FileName) '选择并打开Word文件15. WordApp.Visible = True'显示 Office Word 界面16.'或者Application.Visible = True17. WordApp.DisplayAlerts = False'不提示保存对话框18.19.'设置Word文档第一页页码20.Dim WordRange As Range21.Set WordRange = WordApp.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range22.23.With WordRange24. .InsertAfter "第"25. .Font.Size = 1426. .Collapse Direction:=wdCollapseEnd27.28.'插入页码域29. .Fields.Add Range:=WordRange, Type:=wdFieldEmpty, Text:="PAGE \* Arabic ", PreserveFormatting:=True30. .Expand unit:=wdWord31. .InsertAfter "页 "32.33. .InsertAfter "共"34. .Collapse Direction:=wdCollapseEnd35.36.'插入页数域37. .Fields.Add Range:=WordRange, Type:=wdFieldEmpty, Text:="NUMPAGES \* Arabic ", PreserveFormatting:=True38. .Expand unit:=wdWord39. .InsertAfter "页"40.41. .InsertAfter "【我的Word文件作者：ChenJL1031（东方之珠）】"42. .ParagraphFormat.Alignment = wdAlignParagraphRight '右对齐43.End With44.45.'Text1.Text = WordApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Text46.47.Set WordRange = Nothing48. ActiveDocument.SaveAs "c:\MyWord.doc"'保存最后生成的word文档49.50.Errhandler:51.Exit Sub52.End Sub53.54.Private Sub Form_Unload(Cancel As Integer)55.On Error Resume Next56. WordApp.Quit57.Set WordApp = Nothing58.End Sub效果图如下：。
vb操作word详解
vb操作word详解Visual Basic支持一个对象集合，该集合中的对象直接对应于Microsoft Word 97中的元素，并且通过用户界面，用户熟悉这些元素中的绝大多数。
例如，Document 对象代表了一个打开的文档，Bookmark对象代表了一个文档中的书签，而Selection对象则代表了在一个文档窗口窗格中的选定内容。
在Word中，每一类元素－文档、表格、段落、书签、域等等－都可以用Visual Basic的对象来表示。
要在Word中自动执行任务，可以使用这些对象的方法和属性。
关于理解和使用Microsoft Office 97对象模型的一般性内容，请参阅本书的第二章“理解对象模型”。
在Microsoft Office 97中的对象模型相当丰富，其中包含了大约180个对象。
要查看Word对象模型的层次关系图，请参阅“帮助”中的“Microsoft Word 对象”。
要获得对某种特定对象的详细描述，可以在此图中单击该对象的名字，或是在“帮助”的索引中对特定对象进行搜索。
怎样显示Word Visual Basic帮助要使用Word Visual Basic帮助，必须在安装过程中选择“自定义”的安装方式，并且为Word选中“Visual Basic在线帮助”复选框。
否则，安装程序不会安装Visual Basic帮助。
如果用户已经安装好了Word，那么可以再次运行Setup程序来安装Visual Basic帮助。
要查看Word Visual Basic 帮助，可以在“Visual Basic 编辑器里的“帮助”菜单中点击“目录和索引”一项。
在“帮助主题”对话框的“目录”一表中，双击“Microsoft Word Visual Basic 参考”，然后再双击“Visual Basic 参考”。
“帮助主题”对话框会重新出现，显示出Microsoft Word Visual Basic的目录和索引。
VB操作WORD详解
VB操作WORD详解VB操作Word是一种常见的编程任务，可以用来自动化创建、修改和格式化Word文档。
VB是Visual Basic的简称，是一种简单易学的编程语言，广泛应用于Windows平台上的开发工作。
下面将详细介绍如何使用VB操作Word。
一、引用和初始化Word对象模型在使用VB操作Word之前，需要先引用Word对象模型。
在VB的项目中，点击“项目”菜单，选择“引用”，在弹出的对话框中找到并勾选“Microsoft Word xx.0 Object Library”（这里的xx表示Word的版本号），点击“确定”进行引用。
在VB中操作Word，首先要创建一个Word.Application对象，用来表示Word应用程序实例，在这个实例上进行后续的操作。
可以使用如下代码创建Word应用程序实例：Dim wdApp As Word.ApplicationSet wdApp = New Word.Application二、打开、创建和保存Word文档1. 打开现有的Word文档可以使用如下代码打开一个现有的Word文档：Dim wdDoc As Word.DocumentSet wdDoc = wdApp.Documents.Open("C:\path\to\your\file.docx")2. 创建新的Word文档可以使用如下代码创建一个新的Word文档：Dim wdDoc As Word.DocumentSet wdDoc = wdApp.Documents.Add3. 保存Word文档可以使用如下代码保存一个Word文档：wdDoc.SaveAs "C:\path\to\save\your\file.docx"三、操作Word文档内容1.读取和写入文本内容可以使用如下代码读取和写入文本内容：Dim strText As StringstrText = wdDoc.Range.Text '读取文档内容到字符串变量wdDoc.Range.Text = "Hello, World!" '向文档中写入文本内容2.插入和删除文本内容可以使用如下代码插入和删除文本内容：wdDoc.Range.InsertBefore "Insert Before" '在光标位置之前插入文本wdDoc.Range.InsertAfter "Insert After" '在光标位置之后插入文本wdDoc.Range.Delete '删除光标当前所在位置的文本3.格式化文本内容可以使用如下代码格式化文本内容，如设置字体、大小、颜色等： = "Arial" '设置字体为ArialwdDoc.Range.Font.Size = 12 '设置字体大小为12wdDoc.Range.Font.Color = RGB(255, 0, 0) '设置字体颜色为红色四、操作Word文档样式和格式1.设置段落样式可以使用如下代码设置段落的样式，如对齐方式、缩进等：wdDoc.Range.Paragraphs.Alignment = wdAlignParagraphCenter '设置居中对齐wdDoc.Range.Paragraphs.LeftIndent = 36 '设置左缩进为0.5英寸2.设置页面样式可以使用如下代码设置页面的样式，如边距、纸张大小等：wdDoc.PageSetup.TopMargin = 72 '设置页边距上为1英寸wdDoc.PageSetup.PaperSize = wdPaperA4 '设置纸张大小为A43.插入表格可以使用如下代码插入一个表格到Word文档：Dim wdTable As Word.TableSet wdTable = wdDoc.Tables.Add(wdDoc.Range, 3, 3) '添加3行3列的表格4.格式化表格可以使用如下代码格式化表格，如设置边框、背景颜色等：wdTable.Borders.InsideLineStyle = wdLineStyleSingle '设置内部边框为实线wdTable.Borders.OutsideLineStyle = wdLineStyleDouble '设置外部边框为双线wdTable.Rows(1).Cells(1).Shading.BackgroundPatternColor = RGB(255, 0, 0) '设置第一行第一列的背景颜色为红色五、关闭Word应用程序使用完Word应用程序后，需要关闭它以释放系统资源。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB中利用第三方控件实现软件在线升级
(bkDLControl控件)
2006-11-21
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显示默认的下载地址。
代码如下：
②添加两个commandbutton的Click事件，分别实现开始下载和取消下载的功能。
③编写bkDLControl各个事件的代码，以完成具体功能：
上面两段代码是开始和取消下载时的事件，向lstOut输入状态。
上面的代码调用了一个自定义函数SizeString，代码同样在第四步中说明。
这段bkDLControl完成下载时激发的事件是我们实现在线升级的关键，下载完成后就可以调用下载的内容完成更新，具体的更新办法有很多种，大家可以充分发挥了。
当bkDLControl控件返回零字节时激发上面的出错事件，并在lstOut
中显示相关错误信息。
上面是bkDLControl的相关代码，是这个在线升级程序中最关键的地方。
在其提供的事件中，我们可以有很多的发挥空间，去实现很多的功能。
④编写SizeString函数和LogItem过程，完成最后的代码编写。
上面的过程用于向lstOut添加下载进度信息，其中使用了一个变量，用于装载相应事件描述。
上面的函数把传送来的lBytes根据其大小，转换成合适的单位。
到这里，这个演示程序就完成了，按下F5，在下拉框中选择地址或者输入其他下载地址后按开始就可以开始下载了。
我们可以看到连接下载信息，实时的已下载进度情况，并用进度条的方式表现（如图3）。
有了bkDLControl控件，我们可以很方便地下载更新程序，并在其下载完成激发的事件中写入适当代码，就可以轻松完成程序在线升级
（注：素材和资料部分来自网络，供参考。
请预览后才下载，期待你的好评与关注！）。