扩展控件实例教程

《扩展控件实例教程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、扩展控件的应用实例1RichTextBox控件2TreeView和ListView控件3其他扩展控件4本章小结5上机实训结束1RichTextBox控件概述1.1设置字体格式1.2设置段落格式1.3使用剪贴板1.4查找文本1.5打开与保存文件返回首页概述RichTextBox控件又称为多格式文本框，使用该控件不仅可以输入和编辑文本，还可以对控件中任何部分的文本设置不同的格式，如对选定文本设置字体、字号、字形、颜色、下划线、删除线等。此外，在该控件中还可以设置左右缩进和悬挂式缩进等段落格式，插入图片，并以RTF和纯文本两种格式打开和保存文件。加载RichTextBox

2、控件的方法：右击工具箱，在弹出菜单中选择【部件】菜单项，打开【部件】对话框，在【控件】选项卡的列表中选中MicrosoftRichTextboxControl6.0前面的复选框，单击【确定】按钮。此时工具箱中将增加该控件的图标。返回首页返回本节1.1设置字体格式（1）下面通过实例说明如何设置RichTextBox控件中选定文本的字体格式。【例1】利用字体对话框设置RichTextBox控件中选定文本的字体格式。新建工程，在窗体上添加一个RichTextBox和一个CommonDialog控件，均采用默认名称。将RichTextBox控件的ScrollBars属性设为

3、2。再添加一个命令按钮，名称为cmdFont，Caption属性为“字体”。以下是按钮单击事件过程的代码：1.1设置字体格式（2）PrivateSubcmdFont_Click()OnErrorGoToQuitWithCommonDialog1'设置通用对话框相关属性'显示所有字体和效果选项.Flags=cdlCFBothOrcdlCFEffects'设置对话框默认字体名称If.FontName=""Then.FontName="宋体"'对用户单击“取消”按钮做出响应.CancelError=True.ShowFont'打开字体对话框EndWith'设置RichTe

4、xtBox控件中选定文本字体格式WithRichTextBox11.1设置字体格式（3）'字体名称(字符串型).SelFontName=CommonDialog1.FontName.SelFontSize=CommonDialog1.FontSize'字号(整型).SelBold=CommonDialog1.FontBold'粗体(布尔型).SelItalic=CommonDialog1.FontItalic'斜体(布尔型)'下划线(布尔型).SelUnderline=CommonDialog1.FontUnderline'删除线(布尔型).SelStrikeThr

5、u=CommonDialog1.FontStrikethru.SelColor=CommonDialog1.Color'颜色(长整型)EndWithQuit:EndSub1.1设置字体格式（4）在上述代码中，首先利用通用对话框控件打开字体对话框，用户在对话框中设置格式并确认后，通过代码中的第二个With...EndWith语句块将RichTextBox控件中的选定文本格式设置为由字体对话框返回的各种格式。代码中RichTextBox控件的7个以“Sel”为前缀的属性（代表选定文本的各种格式）分别由字体对话框的对应属性赋值。代码中的注释说明了各属性的含义。程序运行效果

6、如图1所示。1.1设置字体格式（5）图1设置字体格式返回首页返回本节1.2设置段落格式（1）1.段落缩进RichTextBox控件的SelIndent、SelRightIndent和SelHangingIndent属性分别用于设置选定段落的左缩进、右缩进和悬挂缩进，均为整型数值。缩进量的单位与窗体的ScaleMode属性有关，默认单位为缇（1厘米=567缇）。【例2】设置段落缩进。在例1中的窗体上增加一个按钮，Caption属性为“左缩进”，在该按钮的单击事件过程中加入以下代码：1.2设置段落格式（2）DimsMarginAsSinglesMargin=Val(In

7、putBox("输入缩进量（厘米）：",_"左缩进"))RichTextBox1.SelIndent=sMargin*567用同样的方法可设置右缩进和悬挂缩进。2.段落对齐方式RichTextBox控件的SelAlignment属性用于设置选定段落的对齐方式。将该属性值设为常数rtfLeft或0为左对齐，rtfRight或1为右对齐，rtfCenter或2为居中。1.2设置段落格式（3）3.项目符号将RichTextBox控件的SelBullet属性设为True即可为选定段落添加项目符号，若同时设置BulletIndent属性，则可指定含有项目符号的段落的缩进量