第11章 实用扩展控件.ppt

第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和纯文本两种格式打开和保存文件。 加载RichTextBox控件的方法：右击工具箱，在弹出菜单中选择【部件】菜单项，打开【部件】对话框，在【控件】选项卡的列表中选中“Microsoft Rich Textbox Control 6.0”前面的复选框，单击【确定】按钮。此时工具箱中将增加该控件的图标 。 11.1.1 设置字体格式 （1） 下面通过实例说明如何设置RichTextBox控件中选定文本的字体格式。 【例11.1】利用字体对话框设置RichTextBox控件中选定文本的字体格式。 新建工程，在窗体上添加一个RichTextBox和一个CommonDialog控件，均采用默认名称。将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 = 宋体 对用户单击“取消”按钮做出响应 .CancelError = True .ShowFont 打开字体对话框 End With 设置RichTextBox控件中选定文本字体格式 With RichTextBox1 11.1.1 设置字体格式 （3） 字体名称(字符串型) .SelFontName = CommonDialog1.FontName .SelFontSize = CommonDialog1.FontSize 字号(整型) .SelBold = CommonDialog1.FontBold 粗体(布尔型) .SelItalic = CommonDialog1.FontItalic 斜体(布尔型) 下划线(布尔型) .SelUnderline = CommonDialog1.FontUnderline 删除线(布尔型) .SelStrikeThru = CommonDialog1.FontStrikethru .SelColor = CommonDialog1.Color 颜色(长整型) End With Quit: End Sub 11.1.1 设置字体格式 （4） 在上述代码中，首先利用通用对话框控件打开字体对话框，用户在对话框中设置格式并确认后，通过代码中的第二个With...End With语句块将RichTextBox控件中的选定文本格式设置为由字体对话框返回的各种格式。代码中RichTextBox控件的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中的窗体上增加一个按钮，Caption属性为“左缩进”，在该按钮的单击事件过程中加入以下代码： 11.1.2 设置段落格式（2） Dim sMargin As Single sMargin = Val(InputBox(输入