VisualBasic程序设计（第2版）第11章实用扩展控件.pdfVIP

第11章 实用扩展控件  11.1 RichTextBox控件  11.2 TreeView和ListView控件  11.3 其他扩展控件  11.4 本章小结  11.5 上机实训 结束 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） 在上述代码中，首先利用通用对话框控件打开