2011年度计算机等级考试二级VB复习指导(31)

会计考友

5.3.3 选择文本　　文本框控件还提供了3个属性，用于操作用户所选择的文本。且这3个属性不能在【属性】窗口中设置，只能在代码中使用。表5.12中列出这3个属性以及它们的含义。

　　
, \& i7 K# d9 j# P% x% z6 n. x
　　要在程序中操作用户所选的文本，如将文本替换成指定的文本以及更改所选文本的大小写等，都可以使用SelText属性。
  a+ u7 b. }* O9 u　　例如，将用户在文本框(Textl) 中所选文本替换成3个A的语句如下：
  t$ Q  Z/ X2 Y8 W$ W' H　　Texil.SelText=""AAA'".
/ p6 @* Y' d8 p　　要删除当前所选的文本，只需向SelText属性赋予空字符串即可，语句如下：
+ N$ k) g5 S& w; h　　Text1.Se1Text="".
　　将所选文本转换成大写，可以使用Ucase()函数，语句如下：
3 ~) ?7 p! K4 g9 a0 F　　Textl_SelText=UCase(Textl.SelText).
　　实例5.6替换文本。
　　在该程序中，用户在一个文本框中输入一段文本，使用鼠标拖动选中要替换的字符串，则在窗体上显示出所选字符串的起始位置和字符串的长度。在另一个文本框中输入替换内容后，单击【替换】按钮即可将所选的字符串替换，如图5.19所示，将用户所选的字符串替换成了"改变"两个字。

会计考友

　　在窗体中放置五个标签控件、两个文本框控件和一个按钮控件，如图5.20所示。其中各对象的属性设置如表5.13所示。
" O$ S. \* L* r% `
$ o; q' u2 y' i2 A" Y" }/ N　　
7 n; T$ s: d/ i
　　
　　使用鼠标拖动选中文本框中的字符串后，释放鼠标，则窗体上就显示出所选字符串的信息。因此，可以将显示所选字符串信息的代码添加到文本框的MouseUp事件中。Texsel_MouseUp事件过程如下所示：
　　Private Sub Textsel_MouseUp(Button As Interger,Shift As Integer,x As Single,Y As Single )
; W: x' a- D1 l7 y* o　　LabStart.Vaption=TextSel.SelStart
　　LabStart.Caption=TextSel.selLength
　　End Sub
　　在按钮的Click事件中添加如下代码：
　　Private Sub Comch_Click()
　　Text.SelText Texch.Text
　　End Sub
, k" h; V% {/ e. p  d　　这样，一个替换文本程序就创建完毕。