020102.htm
来自「提供一个VB学习教程,入门级。来源于网上」· HTM 代码 · 共 104 行
HTM
104 行
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title><style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">ActiveX控件</a></td>
</tr>
<tr>
<td width="100%">
<p align="center">主要ActiveX控件</td>
</tr>
<tr>
<td width="100%"><br>
文字处理Richtextbox控件: <br>
<br>
使用rich textbox控件进行字处理：<br>
richtextbox保存的文档格式是RTF格式的文档，当然也可以保存纯文本，但没有了高级的格式效果。<br>
richtextbox对象的seltext属性：文本框中当前被选定的内容（鼠标拖动）。<br>
补充：commondialog对象的flags属性：设置对话框的内容选项（查看相关资料）<br>
form窗体的resize事件：当窗体改变其尺寸时发生。常在此事件中修改其他控件的尺寸，如text（文本框）的大小自动匹配。例：<br>
Private Sub Form_Resize()<br>
RichTextBox1.Height = Form1.ScaleHeight （FORM的工作区高度）<br>
RichTextBox1.Width = Form1.ScaleWidth （FORM的工作区宽度）<br>
End Sub <br>
利用richtextbox的seltext可以对选定的文本进行各种各样的操作。如全部变成大写：<br>
richtextbox1.seltext=ucase(richtextbox1.seltext)<br>
同样也可以用变小写的函数lcase将它全部变成小写。<br>
对richtextbox内的选定内容（richtextbox.seltext)进行字体改变，用commondialog的显示字体对话框（showfont)对话框。字体对话框中包含了"字体大小fontsize""字体名称fontname，""字体颜色color""是否选择粗体FONTBOLD""是否选斜体Fontitalic""是否选择下划线fontunderline""是否选择删除线fontstrikethru"<br>
多种属性供用户选择，要与richtextbox对象的相关属性一一对应，举一个例子说明：<br>
Private Sub mnuziti_Click() "字体"菜单代码<br>
CommonDialog1.CancelError = True 出错处理<br>
On Error GoTo lxn:<br>
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth 设定选项（必要），<br>
CommonDialog1.ShowFont <br>
RichTextBox1.SelFontName = CommonDialog1.FontName 以下是一一对应的关系<br>
RichTextBox1.SelFontSize = CommonDialog1.FontSize<br>
RichTextBox1.SelColor = CommonDialog1.Color<br>
RichTextBox1.SelBold = CommonDialog1.FontBold<br>
RichTextBox1.SelItalic = CommonDialog1.FontItalic<br>
RichTextBox1.SelUnderline = CommonDialog1.FontUnderline<br>
RichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethru<br>
lxn:<br>
End Sub<br>
学会使用WINDOWS的剪贴板：在VB中连接起WINDOWS剪贴板，需要用Clipboard对象的settext方法和gettext方法（clipboard对象不要在程序中另行创建），settext是将文本复制到剪贴板，格式：<br>
Clipboard.settext 文本内容<br>
Clipboard.SetText RichTextBox1.SelRTF （selRTF是选定RTF文档内容）<br>
gettext方法是从剪贴板粘贴文本，格式：<br>
变量=clipboard.gettext<br>
RichTextBox1.SelRTF = Clipboard.GetText<br>
richtextbox对象的find方法：查找文本内的某字符串。格式：<br>
richtextbox1.find(要查找字符串，查找范围起点，查找范围终点，参数选项）<br>
查找范围缺省为整个文本，参数选项有三个：rtfWholeWord(整字查找），<br>
rtfMatchCase(区分大小写），rtfNoHighlight(加亮找到的字符串）<br>
用find方法找到后，还要用span方法选中查到的单词。<br>
★ richtextbox的loadfile方法：打开一个RTF或TXT文件。<br>
richtextbox1.loadfile 路径及文件名，rtfRTF(或rtfText)<br>
RichTextBox1.LoadFile CommonDialog1.FileName, rtfText<br>
如何在关闭前确定有未保存的修改，并提醒用户进行保存，需要用richtextbox的change事件，只要文本一改变，就触发该事件。<br>
Richtextbox控件还有以下一些主要属性方法事件：<br>
Selchange事件：当前选择的文本发生改变或插入点发生改变时触发。<br>
SaveFile方法：将控件中的文字内容存入文件。格式：<br>
Richtextbox1.SaveFile 文件名，0或1<br>
0表示rtfRTF格式化文本，1表示rtfText纯文本。<br>
SelPrint方法：将选中文本发送到打印机（如果当前没有选中文本，则将全部文本发送到打印机）。<br>
text属性：控件中的文本。<br>
textRTF属性：控件中的格式化文本（含隐藏的格式化信息）。<br>
★ 如何将繁体字文本转换为简体字文本？或将简体转换为繁体？用ActiveX的Big5óGB控件，使用很简单，只要在部件中添加，然后在代码中使用：<br>
繁体化简体（BigToGB方法）--简体文本=Big2GB1.BigToGB（繁体文本）。<br>
如：Text1.Text = Big2GB1.BigToGB（Text1.Text） <br>
简体化繁体（GBToBig方法）--繁体=Big2GB1.GBToBig(简体)<br>
如：Text1.text=Big2GB1.GBToBig(Text1.Text)
<p align="center">
<br>
< <a href="020101.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="020103.htm">下一页</a>
><br>
</p>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?