课
程
程
资
讯
讯
综
合
合
5.3.3 选择文本
文本框控件还提供了3个属性，用于操作用户所选择的文本。且这3个属性不能在【属性】窗口中设置，只能在代码中使用。表5.12中列出这3个属性以及它们的含义。
要在程序中操作用户所选的文本，如将文本替换成指定的文本以及更改所选文本的大小写等，都可以使用SelText属性。
例如，将用户在文本框(Textl) 中所选文本替换成3个A的语句如下：
Texil.SelText=""AAA'".
要删除当前所选的文本，只需向SelText属性赋予空字符串即可，语句如下：
Text1.Se1Text="".
将所选文本转换成大写，可以使用Ucase()函数，语句如下：
Textl_SelText=UCase(Textl.SelText).
实例5.6替换文本。
在该程序中，用户在一个文本框中输入一段文本，使用鼠标拖动选中要替换的字符串，则在窗体上显示出所选字符串的起始位置和字符串的长度。在另一个文本框中输入替换内容后，单击【替换】按钮即可将所选的字符串替换，如图5.19所示，将用户所选的字符串替换成了"改变"两个字。 [NextPage]
在窗体中放置五个标签控件、两个文本框控件和一个按钮控件，如图5.20所示。其中各对象的属性设置如表5.13所示。
使用鼠标拖动选中文本框中的字符串后，释放鼠标，则窗体上就显示出所选字符串的信息。因此，可以将显示所选字符串信息的代码添加到文本框的MouseUp事件中。Texsel_MouseUp事件过程如下所示：
Private Sub Textsel_MouseUp(Button As Interger,Shift As Integer,x As Single,Y As Single )
LabStart.Vaption=TextSel.SelStart
LabStart.Caption=TextSel.selLength
End Sub
在按钮的Click事件中添加如下代码：
Private Sub Comch_Click()
Text.SelText Texch.Text
End Sub
这样，一个替换文本程序就创建完毕。
| 广告合作：400-664-0084 全国热线：400-664-0084 Copyright 2010 - 2017 www.my8848.com 珠峰网 粤ICP备15066211号 珠峰网 版权所有 All Rights Reserved 
|
