扩展控件实例教程.ppt

《扩展控件实例教程.ppt》由会员分享，可在线阅读，更多相关《扩展控件实例教程.ppt（69页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、扩展控件的展控件的应用用实例例 1 1 RichTextBoxRichTextBox控件控件 2 2 TreeViewTreeView和和ListViewListView控件控件 3 3 其他其他扩展控件展控件 4 4 本章小本章小结 5 5 上机上机实训结束 1 1 RichTextBoxRichTextBox控件控件概述 1.1 设置字体格式 1.2 设置段落格式 1.3 使用剪贴板 1.4 查找文本 1.5 打开与保存文件 返回首页概述概述 RichTextBox控件又称为多格式文本框，使用该控件不仅可以输入和编辑文本，还可以对控件中任何部分的文本设置不同的格式，如对选定文本设置字体、字

2、号、字形、颜色、下划线、删除线等。此外，在该控件中还可以设置左右缩进和悬挂式缩进等段落格式，插入图片，并以RTF和纯文本两种格式打开和保存文件。加载RichTextBox控件的方法：右击工具箱，在弹出菜单中选择【部件】菜单项，打开【部件】对话框，在【控件】选项卡的列表中选中Microsoft Rich Textbox Control 6.0前面的复选框，单击【确定】按钮。此时工具箱中将增加该控件的图标 。返回首页返回本节 1.1 1.1 设置字体格式置字体格式 （1 1）下面通过实例说明如何设置RichTextBox控件中选定文本的字体格式。【例1】利用字体对话框设置RichTextBox控件

3、中选定文本的字体格式。新建工程，在窗体上添加一个RichTextBox和一个 CommonDialog控 件，均 采 用 默 认 名 称。将RichTextBox控件的ScrollBars属性设为2。再添加一个命令按钮，名称为cmdFont，Caption属性为“字体”。以下是按钮单击事件过程的代码：1.1 1.1 设置字体格式置字体格式 （2 2）Private Sub cmdFont_Click()On Error GoTo Quit With CommonDialog1 设置通用对话框相关属性 显示所有字体和效果选项 .Flags=cdlCFBoth Or cdlCFEffects 设置

4、对话框默认字体名称 If.FontName=Then.FontName=宋体 对用户单击“取消”按钮做出响应 .CancelError=True.ShowFont 打开字体对话框 End With 设置RichTextBox控件中选定文本字体格式 With RichTextBox1 1.1 1.1 设置字体格式置字体格式 （3 3）字体名称(字符串型).SelFontName=CommonDialog1.FontName .SelFontSize=CommonDialog1.FontSize 字号(整型).SelBold=CommonDialog1.FontBold 粗体(布尔型).SelIt

5、alic=CommonDialog1.FontItalic 斜体(布尔型)下划线(布尔型).SelUnderline=CommonDialog1.FontUnderline 删除线(布尔型).SelStrikeThru=CommonDialog1.FontStrikethru .SelColor=CommonDialog1.Color 颜色(长整型)End WithQuit:End Sub 1.1 1.1 设置字体格式置字体格式 （4 4）在上述代码中，首先利用通用对话框控件打开字体对话框，用户在对话框中设置格式并确认后，通过代码中的第二个With.End With语句块将RichTextBo

6、x控件中的选定文本格式设置为由字体对话框返回的各种格式。代码中RichTextBox控件的7个以“Sel”为前缀的属性（代表选定文本的各种格式）分别由字体对话框的对应属性赋值。代码中的注释说明了各属性的含义。程序运行效果如图 1所示。1.1 1.1 设置字体格式置字体格式 （5 5）图 1 设置字体格式 返回首页返回本节 1.2 1.2 设置段落格式（置段落格式（1 1）1.段落缩进 RichTextBox控件的SelIndent、SelRightIndent和SelHangingIndent属性分别用于设置选定段落的左缩进、右缩进和悬挂缩进，均为整型数值。缩进量的单位与窗体的ScaleMod

7、e属性有关，默认单位为缇（1厘米=567缇）。【例 2】设置段落缩进。在例 1中的窗体上增加一个按钮，Caption属性为“左缩进”，在该按钮的单击事件过程中加入以下代码：1.2 1.2 设置段落格式（置段落格式（2 2）Dim sMargin As Single sMargin=Val(InputBox(输入缩进量（厘米）：,_左缩进)RichTextBox1.SelIndent=sMargin*567用同样的方法可设置右缩进和悬挂缩进。2.段落对齐方式 RichTextBox控件的SelAlignment属性用于设置选定段落的对齐方式。将该属性值设为常数rtfLeft或0为左对齐，rtfR

8、ight或1为右对齐，rtfCenter或2为居中。1.2 1.2 设置段落格式（置段落格式（3 3）3.项目符号 将RichTextBox控件的SelBullet属性设为True即可 为 选 定 段 落 添 加 项 目 符 号，若 同 时 设 置BulletIndent属性，则可指定含有项目符号的段落的缩进量（默认单位为缇）。提提示示：可可将将设设置置字字体体和和段段落落格格式式的的功功能能汇汇集集在在“格格式式”菜菜单中。单中。段段落落格格式式设设置置效效果果如如图图 2 2所示。所示。返回首页返回本节 1.3 1.3 使用剪使用剪贴板板 （1 1）RichTextBox控件的SelRTF

9、属性含有当前选定的RTF格 式 文 本。利 用 SelRTF属 性 和 剪 贴 板（Clipboad）对象可以实现多格式文本的剪切、复制和粘贴操作。1.操作多格式文本 剪贴板对象的SetText方法用于向剪贴板传送文本。以下代码可将多格式文本复制到剪贴板：Clipboard.Clear 清空剪贴板向剪贴板传送RTF文本Clipboard.SetText RichTextBox1.SelRTF,_vbCFRTF 1.3 1.3 使用剪使用剪贴板板 （2 2）剪切操作与复制相似，只需在上述代码之后加入以下代码：删除RichTextBox控件中的选定内容RichTextBox1.SelText=剪贴

10、板对象的GetText方法用于从剪贴板中粘贴文本。例如：RichTextBox1.SelRTF=Clipboard.GetText(vbCFRTF)将上述代码分别置于对应菜单项的单击事件中即可实现剪切、复制和粘贴功能。1.3 1.3 使用剪使用剪贴板板 （3 3）2.插入图片 利用LoadPicture函数、剪贴板对象的SetData方法 和 模 拟 键 盘 输 入 的 SendKeys语 句 可 以 在RichTextBox控件中插入图片。【例例 3 3】利利用用剪剪贴贴板板在在RichTextBoxRichTextBox控控件件中中插插入入图图片。效果如图片。效果如图 3 3所示。所示。在

11、例在例 2 2中添加一个命令按中添加一个命令按钮或菜单项，在它的单击事钮或菜单项，在它的单击事件过程中输入以下代码：件过程中输入以下代码：1.3 1.3 使用剪使用剪贴板板 （4 4）利用通用对话框选择图片文件CommonDialog1.ShowOpenClipboard.Clear 清空剪贴板将图片文件发送到剪贴板Clipboard.SetData _LoadPicture(CommonDialog1.FileName)RichTextBox1.SetFocus模拟组合键Ctrl+V从剪贴板粘贴图片SendKeys v,TrueClipboard.Clear返回首页返回本节 1.4 1.4

12、查找文本找文本 （1 1）RichTextBox控件的Find方法用于搜索特定字符串。若找到待查内容则将其反相显示，并返回其位置；若未找到则返回-1。Find方法的调用格式为：RichTextBox控件名称.Find(待查字符串，起始位置，结束位置，选项)【例 4】在RichTextBox控件中查找文本。在例 3中添加两个菜单项或命令按钮，标题（Caption）分别为“查找”和“查找下一个”。将RichTextBox控件的HideSelection属性设为False，以便在控件失去焦点时仍可反相显示找到的字符串。1.4 1.4 查找文本找文本 （2 2）在代码编辑窗口的“通用-声明”部分声明一

13、个窗体级的变量用于存放待查内容：Dim strFind As String下面是“查找”菜单项单击事件过程的代码：mnuFind为“查找”菜单项的名称Private Sub mnuFind_Click()strFind=InputBox(输入查找内容,查找)If strFind=Then Exit Sub Find方法返回-1说明未找到 If RichTextBox1.Find(strFind)=-1 Then MsgBox 未找到“&strFind&”。,_ vbInformation,提示 strFind=End IfEnd Sub 1.4 1.4 查找文本找文本 （3 3）在“查找下一个

14、”菜单项或按钮的单击事件过程中加入以下代码：Dim lngL As Long若为首次查找则调用“查找”过程If strFind=Then Call mnuFind_ClickElse With RichTextBox1 lngL=.SelLength .SelStart=.SelStart+lngL 1.4 1.4 查找文本找文本 （4 4）If.Find(strFind,Len(.TextRTF)=-1 Then .SelStart=.SelStart-lngL .SelLength=lngL MsgBox 查找结束。,vbInformation,提示 End If End WithEnd

15、If返回首页返回本节 1.5 1.5 打开与保存文件打开与保存文件 （1 1）RichTextBox控件的LoadFile和SaveFile方法分别用于装载和保存文件。文件格式可以是文本文件或RTF文件。下面通过实例说明这两个方法的调用。【例 5】在RichTextBox控件中打开和保存文件。在例 4中添加一个顶层菜单“文件”，在该菜单下添加“打开”和“保存”两个菜单项。“打开”菜单项单击事件过程的代码如下：1.5 1.5 打开与保存文件打开与保存文件 （2 2）Private Sub mnuOpen_Click()打开文件 On Error GoTo Quit With CommonDial

16、og1 .CancelError=True .Filter=文本文件(*.txt)|*.txt _&|RTF文件(*.rtf)|*.rtf .ShowOpen If UCase$(Right$(.FileName,3)=RTF Then 打开RTF文件 RichTextBox1.LoadFile.FileName,rtfRTF Else 打开文本文件 RichTextBox1.LoadFile.FileName,rtfText End If 1.5 1.5 打开与保存文件打开与保存文件 （3 3）End WithQuit:End Sub“保存”菜单项单击事件过程的代码如下：Private Su

17、b mnuSave_Click()On Error GoTo Quit With CommonDialog1 .CancelError=True .Filter=文本文件(*.txt)|*.txt _&|RTF文件(*.rtf)|*.rtf .ShowSave 1.5 1.5 打开与保存文件打开与保存文件 （4 4）设置默认扩展名，在用户未输入扩展名时使用 If.FilterIndex=1 Then .DefaultExt=txt Else .DefaultExt=rtf End If If UCase$(Right$(.FileName,3)=RTF Then 保存文件为RTF格式 Rich

18、TextBox1.SaveFile.FileName,rtfRTF Else 保存文本文件 RichTextBox1.SaveFile.FileName,rtfText End If End WithQuit:End Sub返回首页返回本节 2 2 TreeViewTreeView和和ListViewListView控件控件 2.1 TreeView控件 2.2 ListView控件 TreeView 和 ListView均为Microsoft Windows Common Controls 6.0中的控件，需要加载后方可使用，加载方法与RichTextBox控件相似。返回首页 2.1 2.1

19、 TreeViewTreeView控件控件 （1 1）1.理解Node对象与Nodes集合 在讨论TreeView控件的应用之前应当对Node对象和Nodes集合有所了解。TreeView控件中的每个列表项都是一个Node对象（节点），节点可包含文本和图片。节点之间的关系可以是父子关系或兄弟关系。如如图图 4所所示示，系系与与其其班班级级之之间间为为父父子子关关系系，各各系系之之间间为为兄兄弟弟关关系系（位位于于同同一一层层次次），一一个个系系中中的的班班级级之之间间也也是是兄弟关系。兄弟关系。图图 4 TreeView控件控件 2.1 2.1 TreeViewTreeView控件控件 （2

20、2）系是班级的父节点（Parent），班级是系的子节点（Child）。各系均为顶层节点，顶层节点没有父节点（Nothing）。控件中的所有Node对象构成Nodes集合，集合中的每一个Node对象具有一个惟一的索引（下界为1），利用索引可以访问集合中的Node对象。例如，TreeView1.Nodes(1)是指集合中的第一个节点。2.1 2.1 TreeViewTreeView控件控件 （3 3）2.添加节点Nodes集合的Add方法用于添加节点。调用格式为：TreeView控件名.Nodes.Add(相关节点，关系，关键字，文本，图片，选定时图片)Add方法的6个参数均为可选参数。前两个参数

21、共同指定新节点的位置。“相关节点”为现有某节点的索引或关键字。2.1 2.1 TreeViewTreeView控件控件 （4 4）“关系”是指新节点与“相关节点”的位置关系，该参数的取值常数为：tvwFirst,tvwLast,tvwNext,tvwPrevious或tvwChild，分 别 对 应 整 数 0 4。其 中tvwChild为父子关系，即新节点是“相关节点”的子节点。其他常数均为兄弟关系，即新节点与“相关节点”位于同一层次，分别为首位、末位、后邻位和前邻位。如果省略了“相关节点”参数，则在所有顶层节点之后添加一个新节点，并且忽略“关系”参数。Add方法的其他参数均不难理解。2.1

22、 2.1 TreeViewTreeView控件控件 （5 5）【例 6】在TreeView控件中建立系和班级的分层列表。新建工程，在窗体上添加一个TreeView控件和一个ImageList控件，均采用默认名称。添加两个命令按钮，Capation属性分别为【添加系】和【添加班级】。按第10章所述方法在ImageList控件中添加4个图片。右击TreeView控件，在弹出菜单中选择【属性】菜单项，打开如图 5所示的【属性页】对话框，在对话框的【图像列表】中选择ImageList1，设【线条样式】为1，单击【确定】按钮关闭对话框。2.1 2.1 TreeViewTreeView控件控件 （6 6）

23、图 5 TreeView控件属性页 2.1 2.1 TreeViewTreeView控件控件 （7 7）在【添加系】按钮的单击事件过程中加入以下代码：Dim mNode As Node 声明节点对象变量若省略Add方法的第一个参数，则在所有顶层节点之后添加一个新的顶层节点，同时忽略Add方法的第二个参数。下面一行语句中的1,2为ImageList控件中的图片索引。Set mNode=TreeView1.Nodes.Add(,X系,1,2)添加节点并为变量赋值mNode.Selected=True 选中新节点使新节点标签处于编辑状态以便用户修改TreeView1.StartLabelEdit 2

24、.1 2.1 TreeViewTreeView控件控件 （8 8）在【添加班级】按钮的单击事件过程中加入以下代码：若控件中无节点退出此过程If TreeView1.Nodes.Count=0 Then Exit SubDim mNode As Node 声明节点对象变量Dim iIndex As Integer若未选择节点将出错，转错误处理语句On Error GoTo NodeErr取当前选定节点的索引 2.1 2.1 TreeViewTreeView控件控件 （9 9）若选定的节点是系节点(无父节点)则添加子节点，否则添加兄弟节点 If TreeView1.Nodes(iIndex).Pa

25、rent Is Nothing Then Set mNode=TreeView1.Nodes.Add(iIndex,_ tvwChild,X级X班,3,4)Else Set mNode=TreeView1.Nodes.Add(iIndex,_ tvwLast,X级X班,3,4)End If mNode.EnsureVisible 使新节点可见 mNode.Selected=True 选中新节点 使新节点标签处于编辑状态以便用户修改 TreeView1.StartLabelEdit 2.1 2.1 TreeViewTreeView控件控件 （1010）Exit SubNodeErr:处理错误 M

26、sgBox 请先选择一个系。,vbExclamation,提示程序运行效果如图6和图7所示。图图 6 添加系添加系 图图 7 添加班级添加班级 2.1 2.1 TreeViewTreeView控件控件 （1111）3.删除和清空节点Nodes集合的Remove方法和Clear方法分别用于删除和清空节点。【例7】扩展例6的功能，使之能够删除和清空节点。在例6中添加两个按钮，Caption分别为“删除”和“清空”。在“删除”按钮的单击事件过程中加入以下代码：2.1 2.1 TreeViewTreeView控件控件 （1212）若控件中无节点退出此过程If TreeView1.Nodes.Count

27、=0 Then Exit SubDim iIndex As Integer取当前选定节点的索引iIndex=TreeView1.SelectedItem.Index 删除选定节点及其子节点TreeView1.Nodes.Remove iIndex在“清空”按钮的单击事件过程中加入以下代码：TreeView1.Nodes.Clear 清除所有节点 2.1 2.1 TreeViewTreeView控件控件 （1313）4.响应节点的单击事件在TreeView中选择节点时将触发节点单击事件NodeClick。该事件过程的Node参数代表被选择的节点对象。例如，在例7中添加一个标签，然后为节点单击事件

28、编写如下代码，程序运行时选择某一节点即可在标签中显示该节点的完整路径(FullPath属性)：Private Sub TreeView1_NodeClick(ByVal _ Node As MSComctlLib.Node)Label1.Caption=“选定节点：”_&Node.FullPathEnd Sub返回首页返回本节 2.2 2.2 ListViewListView控件（控件（1 1）ListView控件可使用大图标、小图标、列表和报表（详细资料）四种不同视图显示列表项。Windows资源管理器的右窗格就是ListView控件的典型例子。1.ListView控件的四种视图 ListV

29、iew控件的View属性决定它的视图显示方式，有4种取值。将该属性值设为常数lvwIcon或0为大图标，lvwSmallIcon或1为小图标，lvwList或2为列表，lvwReport或3为详细资料。四种视图显示模式如图 8图 11所示。2.2 2.2 ListViewListView控件（控件（2 2）图8大图标视图图9小图标视图 2.2 2.2 ListViewListView控件（控件（3 3）图10列表视图图11详细资料视图 2.2 2.2 ListViewListView控件（控件（4 4）2.理解ListView控件中的对象与对象集合（1）ListItem对象与ListItems

30、集合ListView控件中的每个列表项都是一个ListItem对象，列表项可包含文本和图片。控件中的所有ListItem对象构成ListItems集合，集合中的每个对象具有惟一索引。在程序代码中调用ListItems集合的Add方法可以在控件中添加列表项，调用格式为：ListView控件名.ListItems.Add(索引,关键字,文本,大图标,小图标)2.2 2.2 ListViewListView控件（控件（5 5）（2）ColumnHeader对象与ColumnHeaders集合 在如图 11所示的详细资料视图中，第一行的标题【姓 名】、【性 别】和【年 龄】即 为ColumnHeade

31、r对象（列标头）。控件中的所有ColumnHeader对象构成ColumnHeaders集合。在列标头下面，左起第一列是在各种视图中均可显示的列表项，列表项右侧的各列均为列表子项（SubItem）。每个列表项可以有多个子项，它们构成子项数组（SubItems），数组类型为字符串型，下界为1，上界为列标头总数-1。2.2 2.2 ListViewListView控件（控件（6 6）调用ColumnHeaders集合的Add方法可以添加列标头，调用格式为：ListView控件名.ColumnHeaders.Add(索引,关键字,文本,宽度,对齐方式,图标 添加列标头后将自动确定列表子项数组的上界，

32、此时可以为子项数组元素赋值。2.2 2.2 ListViewListView控件（控件（7 7）3.在ListView控件中使用图片 ListView控件中所用的图片由ImageList控件提供。一个ListView控件可以使用三个ImageList控件，分别提供大图标、小图标（供小图标、列表和详细资料视图使用）和列标头图标。在设计时可以通过ListView控件的属性页指定ImageList控件。程序运行时可以通过代码指定要使用的ImageList控件，例如：Set ListView1.Icons=Imagelist1 大图标Set ListView1.SmallIcons=Imagelist

33、2 小图标列标头图标Set ListView1.ColumnHeaderIcons=Imagelist3 2.2 2.2 ListViewListView控件（控件（8 8）【例 8】设计如图 8图 11所示的ListView控件的不同视图。新建工程，在窗体上添加一个ListView控件和两个ImageList控件（本例中未使用列标头图标），均采用默认名称。创建一个含有四个元素的单选按钮数组，名称均为optView，索引为03，设Style属性均为1，Cpation属性分别为“大图标”、“小图标”、“列表”和“详细资料”。ImageList控件和ListView控件的属性分别通过图 12和图

34、13所示的属性页设置。2.2 2.2 ListViewListView控件（控件（9 9）图12ImageList属性页返回 2.2 2.2 ListViewListView控件（控件（1010）图13ListView属性页返回 2.2 2.2 ListViewListView控件（控件（1111）右击ImageList1，在弹出菜单中选择【属性】菜单项，打开如图 12所示的【属性页】对话框，在【通用】选项卡中选择【32 x 32】单选钮（此步骤设置图像大小），然后切换到【图像】选项卡添加4个图片。用同样的方法将ImageList2的图像大小设为【16 x 16】并添加图片。右击ListVie

35、w控件，在弹出菜单中选择【属性】菜单项，打开如图 13所示的【属性页】对话框，切换到【图像列表】选项卡，在【普通】组合框中选择 ImageList1，在【小 图 标】组 合 框 中 选 择ImageList2。2.2 2.2 ListViewListView控件（控件（1212）在窗体的Load事件中对ListView控件进行初始化：Private Sub Form_Load()添加列标头。数字为宽度(缇)ListView1.ColumnHeaders.Add,姓名,1200 ListView1.ColumnHeaders.Add,性别,800 ListView1.ColumnHeaders.

36、Add,年龄,800 Dim itmX As ListItem 声明列表项对象变量 Set itmX=ListView1.ListItems.Add(,_ 张三,1,1)添加列表项 设置子项，供“详细资料”视图使用 itmX.SubItems(1)=男 itmX.SubItems(2)=20 添加其他列表项 End Sub 2.2 2.2 ListViewListView控件（控件（1313）利用单选按钮的单击事件切换视图，代码如下：用单选按钮控件数组切换视图Private Sub optView_Click(Index As Integer)4个单选按钮的索引号为03，恰好与ListView

37、控件 View属性的4个常数值相对应，因此用单选钮的索引号为ListView控件的View属性赋值 可简化代码。ListView1.View=IndexEnd Sub返回首页返回本节 3 3 其他其他扩展控件展控件 3.1 SSTab控件 3.2 ProgressBar控件 3.3 DateTimePicker控件 返回首页 3.1 3.1 SSTabSSTab控件控件 （1 1）SSTab控件提供一组选项卡，每个选项卡都可作为其它控件的容器。该控件在Microsoft Tabbed Dialog 6.0部件中，加载后才能使用。【例 9】制作如图 14和图 15所示含有两个选项卡的用户界面。图

38、图 14 基本情况选项卡基本情况选项卡 图图 15 附加信息选项卡附加信息选项卡 3.1 3.1 SSTabSSTab控件控件 （2 2）在窗体上添加一个SSTab控件，右击该控件，在弹出菜单中选择【属性】菜单项，打开如图 16所示的【属性页】对话框。在对话框中将【选项卡数】设为2，将【样式】设为1。在【选项卡标题】文本框中输入第一个选项卡的标题“基本情况”。单击“”按钮，输入第二个选项卡的标题“附加信息”。单击【确定】按钮关闭对话框。根据图 14和图 15为两个选项卡分别添加相关控件并设置属性。其中，【基本情况】选项卡中用于输入姓名的文本框名称为txtName，【附加信息】选项卡中用于显示姓

39、名的标签名称为lblName。3.1 3.1 SSTabSSTab控件控件 （3 3）图 16 SSTab控件属性页 3.1 3.1 SSTabSSTab控件控件 （4 4）在SSTab控件的单击事件中加入以下代码：Private Sub SSTab1_Click(PreviousTab As Integer)Tab属性返回当前活动选项卡的索引(下界为0)If SSTab1.Tab=1 Then 若单击“附加信息”选项卡 lblName.Caption=姓名：&txtName.Text End IfEnd Sub提示：切换选项卡的方法为单击选项卡标题或用键盘操作(用访问键，或当选项卡具有焦点时

40、按Ctrl+Tab键或左右箭头键)，也可以在代码中为Tab属性赋值实现。SSTab控件的Click事件比较特殊，它仅在选项卡切换时被触发；当单击活动选项卡标题时，不会导致选项卡切换，因此不触发该事件。返回首页返回本节 3.2 3.2 ProgressBarProgressBar控件控件 （1 1）在应用程序中，当执行一个耗时较长的操作时，可用ProgressBar控件（进度条）显示事务的进程。ProgressBar属 于 Microsoft Windows Common Controls 6.0中的控件，需要加载后使用。ProgressBar控件有三个最重要的属性Min、Max和Value。M

41、in和Max用于设置进度条的起点和终点。Value属性用于在运行时设置或返回进度条的填充量。在显示某操作的进展情况时，可以将Value值设为从Min值开始递增，直到由Max属性定义的最大值为止。下面通过实例说明该控件的使用。3.2 3.2 ProgressBarProgressBar控件控件 （2 2）【例10】用进度条和定时器控件模拟数据处理的进度，如图17所示。在窗体上添加一个框架在窗体上添加一个框架Frame1，设其，设其Caption属性为空，属性为空，Visible属性属性为为False。在框架中添加。在框架中添加两个标签，均采用默认两个标签，均采用默认名称。设名称。设Label1的

42、的Caption属性为属性为“正在处正在处理数据，请稍候理数据，请稍候.”。图图 17 进度条进度条 3.2 3.2 ProgressBarProgressBar控件控件 （3 3）输入以下代码：Dim intValue As Integer 窗体级变量用于存放进度值Private Sub cmdStart_Click()“开始”按钮 intValue=0 ProgressBar1.Value=0 进度条初始化 Frame1.Visible=True 显示框架及其中的进度条等控件 Timer1.Enabled=True 启动定时器 cmdStart.Enabled=False 使开始按钮无效E

43、nd Sub 3.2 3.2 ProgressBarProgressBar控件控件 （4 4）Private Sub Timer1_Timer()定时器事件 intValue=intValue+1 累加进度值 If intValue 100 Then 若超过最大值 Timer1.Enabled=False 关闭定时器 MsgBox 数据处理结束。,vbInformation,提示 Frame1.Visible=False 隐藏框架及其中的控件 cmdStart.Enabled=True 设开始按钮有效 Else 设置Value属性值，显示进度 ProgressBar1.Value=intVal

44、ue 显示进度百分比 Label2.Caption=intValue&%End IfEnd Sub返回首页返回本节 3.3 3.3 DateTimePickerDateTimePicker控件控件 （1 1）DateTimePicker控件（DTPicker）可以按指定格式显示日期或时间，并且作为修改日期和时间信息的界面。该控件属于Microsoft Windows Common Controls-2 6.0中的控件，加载后方可使用。DateTimePicker控件有两种不同的显示模式：下拉日历模式。单击控件右部的下拉箭头可显示日历，用于选择日期。时间显示模式。用于显示或设置时间。可在控件中选

45、择一个域（时、分、秒）后，用控件右部的上下箭头设置其值，亦可通过键盘输入数字或按箭头键设置其值。3.3 3.3 DateTimePickerDateTimePicker控件控件 （2 2）通过DateTimePicker控件的Format（格式）属性可以设置日期或时间的显示格式。Format属性有4种取值：设为常数dtpLongDate或0为长日期格式，dtpShortDate或1为短日期格式，dtpTime或2为时间格式，dtpCustom或3为自定义格式。当Format属性值为0或1时，控件以下拉日历模式显示日期；Format属性值为2时，以时间模式显示时间。当Format属性值为3时，控

46、件的显示模式取决于CustomFormat（自定义格式）属性和UpDown（上下箭头）属性。若CustomFormat属性为日期格式字符串，且UpDown属性为False，则为下拉日历模式。若CustomFormat属性为时间格式字符串，且UpDown属性为True，则为时间显示模式。3.3 3.3 DateTimePickerDateTimePicker控件控件 （3 3）【例 11】使用DateTimePicker控件选择日期并设置时间，当到达预定的日期和时间时提示用户。在 窗 体 上 添 加 两 个 DateTimePicker控 件DTPicker1和DTPicker2，分别用于设置日

47、期和时间。右击DTPicker1，在弹出菜单中选择【属性】菜单项，打开如图 18所示的【属性页】，在【通用】选项卡中将【格式】设为3-dtpCustom，将【自定义格式】设为“yyy-M-d”（yyy为完整年份）。用同样的方法将DTPicker2的【格式】设为2-dtpTime。3.3 3.3 DateTimePickerDateTimePicker控件控件 （4 4）图 18 DateTimePicker控件属性页 返回 3.3 3.3 DateTimePickerDateTimePicker控件控件 （5 5）在两个DateTimePicker控件的上方各添加一个标签，用作简单说明。添加一

48、个文本框和两个命令按钮，按钮的Caption属性分别为“确定”和“退出”。添加一个Timer控件，设其Enabled属性为False，Interval属性为500。在“确定”按钮的单击事件过程中加入以下代码：Text1.Text=提示日期：_&Format(DTPicker1.Value,_yyyy年m月d日)_&vbCrLf&提示时间：_&TimeValue(DTPicker2.Value)Timer1.Enabled=True 3.3 3.3 DateTimePickerDateTimePicker控件控件 （6 6）在Timer1控件的Timer事件中加入以下代码：If DateValu

49、e(DTPicker1.Value)=Date _ And TimeValue(DTPicker2.Value)_ =Time Then MsgBox 时间到。Timer1.Enabled=FalseEnd If 说明：DateTimePicker控件的Value属性用于返回或设置日期和时间。3.3 3.3 DateTimePickerDateTimePicker控件控件 （7 7）程序运行效果如图 19和图 20所示。在图 19中，单击控件的下拉箭头显示日历，单击年份和月份可修改年月，单击日历中的某个日期即完成设定。在图 20中，单击时间模式控件中的上下箭头可设置时间。图图 19 下拉日历下

50、拉日历 图图 20 设置时间设置时间 返回首页返回本节 4 本本 章章 小小 结结（1）本章主要介绍了几种较为实用的ActiveX控件。有效地使用这些控件可以为应用程序增加功能、美化界面和提高性能。RichTextBox控件又称多格式文本框，使用该控件可以对控件中不同部分的文本设置不同的字体格式和段落格式，插入图片，在控件中查找文本，用RTF和纯文本两种格式打开和保存文件。TreeView控件由呈树状分布的若干节点组成，用于显示具有层次结构的信息。控件中的每个节点都是Node对象，节点可包含文本和图片。节点之间可以是父子或兄弟关系。所有节点构成Nodes集合，调用该集合的相关方法可以添加、删除