第11章-实用扩展控件

《第11章-实用扩展控件》由会员分享，可在线阅读，更多相关《第11章-实用扩展控件（65页珍藏版）》请在金锄头文库上搜索。

1、第11章 实用扩展控件,11.1 RichTextBox控件 11.2 TreeView和ListView控件 11.3 其他扩展控件,结束,11.1 RichTextBox控件,概述 11.1.1 设置字体格式 11.1.2 设置段落格式 11.1.3 使用剪贴板 11.1.4 查找文本 11.1.5 打开与保存文件,返回首页,概述,RichTextBox控件又称为多格式文本框，使用该控件不仅可以输入和编辑文本，还可以对控件中任何部分的文本设置不同的格式，如对选定文本设置字体、字号、字形、颜色、下划线、删除线等。此外，在该控件中还可以设置左右缩进和悬挂式缩进等段落格式，插入图片，并以RTF和

2、纯文本两种格式打开和保存文件。 加载RichTextBox控件的方法：右击工具箱，在弹出菜单中选择【部件】菜单项，打开【部件】对话框，在【控件】选项卡的列表中选中“Microsoft Rich Textbox Control 6.0”前面的复选框，单击【确定】按钮。此时工具箱中将增加该控件的图标 。,返回首页,返回本节,11.1.1 设置字体格式 （1）,下面通过实例说明如何设置RichTextBox控件中选定文本的字体格式。 【例11.1】利用字体对话框设置RichTextBox控件中选定文本的字体格式。 新建工程，在窗体上添加一个RichTextBox和一个CommonDialog控件，均

3、采用默认名称。将RichTextBox控件的ScrollBars属性设为2。再添加一个命令按钮，名称为cmdFont，Caption属性为“字体”。以下是按钮单击事件过程的代码：,11.1.1 设置字体格式 （2）,Private Sub cmdFont_Click() On Error GoTo Quit With CommonDialog1 设置通用对话框相关属性 显示所有字体和效果选项 .Flags = cdlCFBoth Or cdlCFEffects 设置对话框默认字体名称 If .FontName = “ Then .FontName = “宋体“ 对用户单击“取消”按钮做出响应

4、.CancelError = True .ShowFont 打开字体对话框 End With 设置RichTextBox控件中选定文本字体格式 With RichTextBox1,11.1.1 设置字体格式 （3）,字体名称(字符串型) .SelFontName = CommonDialog1.FontName .SelFontSize = CommonDialog1.FontSize 字号(整型) .SelBold = CommonDialog1.FontBold 粗体(布尔型) .SelItalic = CommonDialog1.FontItalic 斜体(布尔型) 下划线(布尔型) .

5、SelUnderline = CommonDialog1.FontUnderline 删除线(布尔型) .SelStrikeThru = CommonDialog1.FontStrikethru .SelColor = CommonDialog1.Color 颜色(长整型) End With Quit: End Sub,11.1.1 设置字体格式 （4）,在上述代码中，首先利用通用对话框控件打开字体对话框，用户在对话框中设置格式并确认后，通过代码中的第二个With.End With语句块将RichTextBox控件中的选定文本格式设置为由字体对话框返回的各种格式。代码中RichTextBox控

6、件的7个以“Sel”为前缀的属性（代表选定文本的各种格式）分别由字体对话框的对应属性赋值。代码中的注释说明了各属性的含义。程序运行效果如图11.1所示。,11.1.1 设置字体格式 （5）,图11.1 设置字体格式,返回首页,返回本节,11.1.2 设置段落格式（1）,1. 段落缩进 RichTextBox控件的SelIndent、SelRightIndent和SelHangingIndent属性分别用于设置选定段落的左缩进、右缩进和悬挂缩进，均为整型数值。缩进量的单位与窗体的ScaleMode属性有关，默认单位为缇（1厘米=567缇）。 【例11.2】设置段落缩进。在例11.1中的窗体上增加

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

8、落格式（3）,3. 项目符号 将RichTextBox控件的SelBullet属性设为True即可为选定段落添加项目符号，若同时设置BulletIndent属性，则可指定含有项目符号的段落的缩进量（默认单位为缇）。,提示：可将设置字体和段落格式的功能汇集在“格式”菜单中。 段落格式设置效果如图11.2所示。,返回首页,返回本节,11.1.3 使用剪贴板 （1）,RichTextBox控件的SelRTF属性含有当前选定的RTF格式文本。利用SelRTF属性和剪贴板（Clipboad）对象可以实现多格式文本的剪切、复制和粘贴操作。 1. 操作多格式文本 剪贴板对象的SetText方法用于向剪贴板传

9、送文本。以下代码可将多格式文本复制到剪贴板： Clipboard.Clear 清空剪贴板 向剪贴板传送RTF文本 Clipboard.SetText RichTextBox1.SelRTF, _ vbCFRTF,11.1.3 使用剪贴板 （2）,剪切操作与复制相似，只需在上述代码之后加入以下代码： 删除RichTextBox控件中的选定内容 RichTextBox1.SelText = “ 剪贴板对象的GetText方法用于从剪贴板中粘贴文本。例如： RichTextBox1.SelRTF = Clipboard.GetText(vbCFRTF) 将上述代码分别置于对应菜单项的单击事件中即可实

10、现剪切、复制和粘贴功能。,11.1.3 使用剪贴板 （3）,2. 插入图片 利用LoadPicture函数、剪贴板对象的SetData方法和模拟键盘输入的SendKeys语句可以在RichTextBox控件中插入图片。,【例11.3】利用剪贴板在RichTextBox控件中插入图片。效果如图11.3所示。 在例11.2中添加一个命令按钮或菜单项，在它的单击事件过程中输入以下代码：,11.1.3 使用剪贴板 （4）,利用通用对话框选择图片文件 CommonDialog1.ShowOpen Clipboard.Clear 清空剪贴板 将图片文件发送到剪贴板 Clipboard.SetData _

11、LoadPicture(CommonDialog1.FileName) RichTextBox1.SetFocus 模拟组合键Ctrl+V从剪贴板粘贴图片 SendKeys “v“, True Clipboard.Clear,返回首页,返回本节,11.1.4 查找文本 （1）,RichTextBox控件的Find方法用于搜索特定字符串。若找到待查内容则将其反相显示，并返回其位置；若未找到则返回-1。Find方法的调用格式为： RichTextBox控件名称.Find(待查字符串，起始位置，结束位置，选项) 【例11.4】在RichTextBox控件中查找文本。 在例11.3中添加两个菜单项或命

12、令按钮，标题（Caption）分别为“查找”和“查找下一个”。将RichTextBox控件的HideSelection属性设为False，以便在控件失去焦点时仍可反相显示找到的字符串。,11.1.4 查找文本 （2）,在代码编辑窗口的“通用-声明”部分声明一个窗体级的变量用于存放待查内容： Dim strFind As String 下面是“查找”菜单项单击事件过程的代码： mnuFind为“查找”菜单项的名称 Private Sub mnuFind_Click() strFind = InputBox(“输入查找内容“, “查找“) If strFind = “ Then Exit Sub

13、Find方法返回-1说明未找到 If RichTextBox1.Find(strFind) = -1 Then MsgBox “未找到“ & strFind & “”。“, _ vbInformation, “提示“ strFind = “ End If End Sub,11.1.4 查找文本 （3）,在“查找下一个”菜单项或按钮的单击事件过程中加入以下代码： Dim lngL As Long 若为首次查找则调用“查找”过程 If strFind = “ Then Call mnuFind_Click Else With RichTextBox1 lngL = .SelLength .SelS

14、tart = .SelStart + lngL,11.1.4 查找文本 （4）,If .Find(strFind,Len(.TextRTF)= -1 Then .SelStart = .SelStart - lngL .SelLength = lngL MsgBox “查找结束。“, vbInformation, “提示“ End If End With End If,返回首页,返回本节,11.1.5 打开与保存文件 （1）,RichTextBox控件的LoadFile和SaveFile方法分别用于装载和保存文件。文件格式可以是文本文件或RTF文件。下面通过实例说明这两个方法的调用。 【例11

15、.5】在RichTextBox控件中打开和保存文件。 在例11.4中添加一个顶层菜单“文件”，在该菜单下添加“打开”和“保存”两个菜单项。“打开”菜单项单击事件过程的代码如下：,11.1.5 打开与保存文件 （2）,Private Sub mnuOpen_Click() 打开文件 On Error GoTo Quit With CommonDialog1 .CancelError = True .Filter = “文本文件(*.txt)|*.txt “ _ & “|RTF文件(*.rtf)|*.rtf“ .ShowOpen If UCase$(Right$(.FileName, 3) = “

16、RTF“ Then 打开RTF文件 RichTextBox1.LoadFile .FileName, rtfRTF Else 打开文本文件 RichTextBox1.LoadFile .FileName, rtfText End If,11.1.5 打开与保存文件 （3）,End With Quit: End Sub “保存”菜单项单击事件过程的代码如下： Private Sub mnuSave_Click() On Error GoTo Quit With CommonDialog1 .CancelError = True .Filter = “文本文件(*.txt)|*.txt“ _ & “|RTF文件(*.rtf)|*.rtf“ .ShowSave,11.1.5 打开与保存文件 （4）,设置默认扩展名，在用户未输入扩展名时使用 If .FilterIndex = 1 Then .DefaultExt = “txt“ Else .DefaultExt = “rtf“ End If I