实用扩展控件.pptx
《实用扩展控件.pptx》由会员分享,可在线阅读,更多相关《实用扩展控件.pptx(65页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、实用扩展控件实用扩展控件11.1 RichTextBox控件概述概述 11.1.1 11.1.1 设置字体格式设置字体格式 11.1.2 11.1.2 设置段落格式设置段落格式 11.1.3 11.1.3 使用剪贴板使用剪贴板11.1.4 11.1.4 查找文本查找文本 11.1.5 11.1.5 打开与保存文件打开与保存文件 返回首页第1页/共65页概述 RichTextBoxRichTextBox控控件件又又称称为为多多格格式式文文本本框框,使使用用该该控控件件不不仅仅可可以以输输入入和和编编辑辑文文本本,还还可可以以对对控控件件中中任任何何部部分分的的文文本本设设置置不不同同的的格格式式
2、,如如对对选选定定文文本本设设置置字字体体、字字号号、字字形形、颜颜色色、下下划划线线、删删除除线线等等。此此外外,在在该该控控件件中中还还可可以以设设置置左左右右缩缩进进和和悬悬挂挂式式缩缩进进等等段段落落格格式式,插插入入图图片片,并并以以RTFRTF和和纯纯文文本本两两种格式打开和保存文件。种格式打开和保存文件。加加载载RichTextBoxRichTextBox控控件件的的方方法法:右右击击工工具具箱箱,在在弹弹出出菜菜单单中中选选择择【部部件件】菜菜单单项项,打打开开【部部件件】对对话话框框,在在【控控件件】选选项项卡卡的的列列表表中中选选中中“Microsoft Microsoft
3、 Rich Rich Textbox Textbox Control Control 6.06.0”前前面面的的复复选选框框,单单击击【确确定定】按按钮钮。此此时时工工具具箱箱中中将将增加该控件的图标增加该控件的图标 。返回首页返回本节第2页/共65页11.1.1 设置字体格式(1)下面通过实例说明如何设置RichTextBox控件中选定文本的字体格式。【例11.1】利用字体对话框设置RichTextBox控件中选定文本的字体格式。新建工程,在窗体上添加一个RichTextBox和一个CommonDialog控件,均采用默认名称。将RichTextBox控件的ScrollBars属性设为2。再
4、添加一个命令按钮,名称为cmdFont,Caption属性为“字体”。以下是按钮单击事件过程的代码:第3页/共65页11.1.1 设置字体格式(2)Private Sub cmdFont_Click()Private Sub cmdFont_Click()On Error GoTo Quit On Error GoTo Quit With CommonDialog1 With CommonDialog1 设置通用对话框相关属性设置通用对话框相关属性 显示所有字体和效果选项显示所有字体和效果选项 .Flags=cdlCFBoth Or cdlCFEffectsFlags=cdlCFBoth Or
5、 cdlCFEffects 设置对话框默认字体名称设置对话框默认字体名称 If.FontName=Then If.FontName=Then.FontName=.FontName=宋体宋体 对用户单击对用户单击“取消取消”按钮做出响应按钮做出响应 .CancelError=True CancelError=True.ShowFont ShowFont 打开字体对话框打开字体对话框 End WithEnd With 设置设置RichTextBoxRichTextBox控件中选定文本字体格式控件中选定文本字体格式 With RichTextBox1 With RichTextBox1第4页/共65
6、页11.1.1 设置字体格式(3)字体名称字体名称(字符串型字符串型).SelFontName=CommonDialog1.FontName .SelFontName=CommonDialog1.FontName .SelFontSize=CommonDialog1.FontSize SelFontSize=CommonDialog1.FontSize 字号字号(整型整型).SelBold=CommonDialog1.FontBold SelBold=CommonDialog1.FontBold 粗体粗体(布尔型布尔型).SelItalic=CommonDialog1.FontItalic S
7、elItalic=CommonDialog1.FontItalic 斜体斜体(布尔型布尔型)下划线下划线(布尔型布尔型).SelUnderline=CommonDialog1.FontUnderlineSelUnderline=CommonDialog1.FontUnderline 删除线删除线(布尔型布尔型).SelStrikeThru=CommonDialog1.FontStrikethruSelStrikeThru=CommonDialog1.FontStrikethru .SelColor=CommonDialog1.Color SelColor=CommonDialog1.Color
8、 颜色颜色(长整型长整型)End WithEnd WithQuit:Quit:End SubEnd Sub第5页/共65页11.1.1 设置字体格式(4)在上述代码中,首先利用通用对话框控件打开字体对话框,用户在对话框中设置格式并确认后,通过代码中的第二个With.End With语句块将RichTextBox控件中的选定文本格式设置为由字体对话框返回的各种格式。代码中RichTextBox控件的7个以“Sel”为前缀的属性(代表选定文本的各种格式)分别由字体对话框的对应属性赋值。代码中的注释说明了各属性的含义。程序运行效果如图11.1所示。第6页/共65页11.1.1 设置字体格式(5)图图
9、11.1 11.1 设置字体格式设置字体格式 返回首页返回本节第7页/共65页11.1.2 设置段落格式(1)1.1.段落缩进段落缩进 RichTextBox控件的SelIndent、SelRightIndent和SelHangingIndent属性分别用于设置选定段落的左缩进、右缩进和悬挂缩进,均为整型数值。缩进量的单位与窗体的ScaleMode属性有关,默认单位为缇(1厘米=567缇)。【例11.2】设置段落缩进。在例11.1中的窗体上增加一个按钮,Caption属性为“左缩进”,在该按钮的单击事件过程中加入以下代码:第8页/共65页11.1.2 设置段落格式(2)Dim sMargin
10、As SingleDim sMargin As Single sMargin=Val(InputBox(sMargin=Val(InputBox(输入缩进量(厘米):输入缩进量(厘米):,_,_ 左缩进左缩进)RichTextBox1.SelIndent=sMargin*567RichTextBox1.SelIndent=sMargin*567 用同样的方法可设置右缩进和悬挂缩进。用同样的方法可设置右缩进和悬挂缩进。2.2.段落对齐方式段落对齐方式 RichTextBoxRichTextBox控控件件的的SelAlignmentSelAlignment属属性性用用于于设设置置选选定定段段落落的
11、的对对齐齐方方式式。将将该该属属性性值值设设为为常常数数rtfLeftrtfLeft或或0 0为为左左对对齐齐,rtfRightrtfRight或或1 1为右对齐,为右对齐,rtfCenterrtfCenter或或2 2为居中。为居中。第9页/共65页11.1.2 设置段落格式(3)3.3.项目符号项目符号 将RichTextBox控件的SelBullet属性设为True即可为选定段落添加项目符号,若同时设置BulletIndent属性,则可指定含有项目符号的段落的缩进量(默认单位为缇)。提提示示:可可将将设设置置字字体体和和段段落落格格式式的的功功能能汇汇集集在在“格格式式”菜菜单中。单中。
12、段落格式设置效果如图段落格式设置效果如图11.211.2所示。所示。返回首页返回本节第10页/共65页11.1.3 使用剪贴板(1)RichTextBox控 件 的 SelRTF属性含有当前选定的RTF格式文本。利 用 SelRTF属 性 和 剪 贴 板(Clipboad)对象可以实现多格式文本的剪切、复制和粘贴操作。1.1.操作多格式文本操作多格式文本 剪贴板对象的SetText方法用于向剪贴板传送文本。以下代码可将多格式文本复制到剪贴板:Clipboard.ClearClipboard.Clear 清空剪贴板清空剪贴板 向剪贴板传送向剪贴板传送RTFRTF文本文本Clipboard.Set
13、Text RichTextBox1.SelRTF,_Clipboard.SetText RichTextBox1.SelRTF,_vbCFRTFvbCFRTF第11页/共65页11.1.3 使用剪贴板(2)剪切操作与复制相似,只需在上述代码之后加入以下代码:删除删除RichTextBoxRichTextBox控件中的选定内容控件中的选定内容RichTextBox1.SelText=RichTextBox1.SelText=剪贴板对象的GetText方法用于从剪贴板中粘贴文本。例如:RichTextBox1.SelRTF=Clipboard.GetText(vbCFRTF)RichTextBox
14、1.SelRTF=Clipboard.GetText(vbCFRTF)将上述代码分别置于对应菜单项的单击事件中即可实现剪切、复制和粘贴功能。第12页/共65页11.1.3 使用剪贴板(3)2.2.插入图片插入图片 利用LoadPicture函数、剪贴板对象的SetData方法和模拟键盘输入的SendKeys语句可以在RichTextBox控件中插入图片。【例【例11.311.3】利用剪贴板在】利用剪贴板在RichTextBoxRichTextBox控件中插入图片。效果如图控件中插入图片。效果如图11.311.3所示。所示。在例在例11.211.2中添加一个命令按钮或菜单项,在它的单击事件过程中
15、输入以下代码:中添加一个命令按钮或菜单项,在它的单击事件过程中输入以下代码:第13页/共65页11.1.3 使用剪贴板(4)利用通用对话框选择图片文件利用通用对话框选择图片文件CommonDialog1.ShowOpenCommonDialog1.ShowOpenClipboard.ClearClipboard.Clear 清空剪贴板清空剪贴板 将图片文件发送到剪贴板将图片文件发送到剪贴板Clipboard.SetData _Clipboard.SetData _LoadPicture(CommonDialog1.FileName)LoadPicture(CommonDialog1.FileN
16、ame)RichTextBox1.SetFocusRichTextBox1.SetFocus 模拟组合键模拟组合键Ctrl+VCtrl+V从剪贴板粘贴图片从剪贴板粘贴图片SendKeys v,TrueSendKeys v,TrueClipboard.ClearClipboard.Clear返回首页返回本节第14页/共65页11.1.4 查找文本(1)RichTextBox控件的Find方法用于搜索特定字符串。若找到待查内容则将其反相显示,并返回其位置;若未找到则返回-1。Find方法的调用格式为:RichTextBox控件名称.Find(待查字符串,起始位置,结束位置,选项)【例11.4】在R
17、ichTextBox控件中查找文本。在例11.3中添加两个菜单项或命令按钮,标题(Caption)分别为“查找”和“查找下一个”。将 RichTextBox控 件 的HideSelection属性设为False,以便在控件失去焦点时仍可反相显示找到的字符串。第15页/共65页11.1.4 查找文本(2)在在代代码码编编辑辑窗窗口口的的“通通用用-声声明明”部部分分声声明明一一个个窗窗体体级级的变量用于存放待查内容:的变量用于存放待查内容:Dim strFind As StringDim strFind As String下面是下面是“查找查找”菜单项单击事件过程的代码:菜单项单击事件过程的代码
18、:mnuFindmnuFind为为“查找查找”菜单项的名称菜单项的名称Private Sub mnuFind_Click()Private Sub mnuFind_Click()strFind=InputBox(strFind=InputBox(输入查找内容输入查找内容,查找查找)If strFind=Then Exit SubIf strFind=Then Exit Sub FindFind方法返回方法返回-1-1说明未找到说明未找到 If RichTextBox1.Find(strFind)=-1 ThenIf RichTextBox1.Find(strFind)=-1 Then MsgB
19、ox MsgBox 未找到未找到“&strFind&strFind&”。,_,_ vbInformation,vbInformation,提示提示 strFind=strFind=End If End IfEnd SubEnd Sub第16页/共65页11.1.4 查找文本(3)在“查找下一个”菜单项或按钮的单击事件过程中加入以下代码:Dim lngL As LongDim lngL As Long 若为首次查找则调用若为首次查找则调用“查找查找”过程过程If strFind=ThenIf strFind=Then Call mnuFind_Click Call mnuFind_ClickEl
20、seElse With RichTextBox1 With RichTextBox1 lngL=.SelLength lngL=.SelLength .SelStart=.SelStart+lngL .SelStart=.SelStart+lngL第17页/共65页11.1.4 查找文本(4)If.Find(strFind,Len(.TextRTF)=-1 ThenIf.Find(strFind,Len(.TextRTF)=-1 Then .SelStart=.SelStart-lngL .SelStart=.SelStart-lngL .SelLength=lngL .SelLength=l
21、ngL MsgBox MsgBox 查找结束。查找结束。,vbInformation,vbInformation,提示提示 End If End If End With End WithEnd IfEnd If返回首页返回本节第18页/共65页11.1.5 打开与保存文件(1)RichTextBoxRichTextBox控控 件件 的的 LoadFileLoadFile和和 SaveFileSaveFile方方法法分分别别用用于于装装载载和和保保存存文文件件。文文件件格格式式可可以以是是文文本本文文件件或或RTFRTF文文件件。下下面面通通过过实实例例说明这两个方法的调用。说明这两个方法的调用
22、。【例例11.511.5】在在RichTextBoxRichTextBox控控件件中中打打开开和和保保存文件。存文件。在在例例11.411.4中中添添加加一一个个顶顶层层菜菜单单“文文件件”,在在该该菜菜单单下下添添加加“打打开开”和和“保保存存”两两个个菜菜单单项项。“打打开开”菜菜单单项项单单击击事事件件过过程程的代码如下:的代码如下:第19页/共65页11.1.5 打开与保存文件(2)Private Sub mnuOpen_Click()Private Sub mnuOpen_Click()打开文件打开文件 On Error GoTo QuitOn Error GoTo Quit Wit
23、h CommonDialog1 With CommonDialog1 .CancelError=True .CancelError=True .Filter=.Filter=文本文件文本文件(*.(*.txt)|*.txt txt)|*.txt _ _&|RTF|RTF文件文件(*.(*.rtf)|*.rtfrtf)|*.rtf .ShowOpen .ShowOpen If UCase$(Right$(.FileName,3)=RTF Then If UCase$(Right$(.FileName,3)=RTF Then 打开打开RTFRTF文件文件 RichTextBox1.LoadFile
24、.FileName,rtfRTF RichTextBox1.LoadFile.FileName,rtfRTF Else Else 打开文本文件打开文本文件 RichTextBox1.LoadFile.FileName,rtfText RichTextBox1.LoadFile.FileName,rtfText End If End If第20页/共65页11.1.5 打开与保存文件(3)End WithEnd WithQuit:Quit:End SubEnd Sub“保存”菜单项单击事件过程的代码如下:Private Sub mnuSave_Click()Private Sub mnuSave
25、_Click()On Error GoTo Quit On Error GoTo Quit With CommonDialog1 With CommonDialog1 .CancelError=True .CancelError=True .Filter=.Filter=文本文件文本文件(*.(*.txt)|*.txt _txt)|*.txt _&|RTF&|RTF文件文件(*.(*.rtf)|*.rtfrtf)|*.rtf .ShowSave .ShowSave第21页/共65页11.1.5 打开与保存文件(4)设置默认扩展名,在用户未输入扩展名时使用设置默认扩展名,在用户未输入扩展名时使用
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实用 扩展 控件
限制150内