vb中如何实现text中选定文本操作

Question

如题所述

Answer 1

1）设置Text控件的SelStart属性，指定所要选择文本起始位置；

2）设置Text控件的SelLength属性，设置选择文本字符的数量；

3）通过ext控件的SelText属性，获取所选定的文本

举例如下

Private Sub Command1_Click()
    Text1.SelStart = 0  '起始位置为0，这是文本框最开始的位置
    Text1.SelLength = 4 '选定4个字符 
    Debug.Print Text1.SelText
End Sub

Answer 2

Private Sub Command1_Click()
Dim Where1 '获取需要查找的字符串变量
Text2.SetFocus '文本框获得焦点，以显示所找到的内容
Search = Text1.Text '这里的text1里面放你要查找的字符串
Where1 = InStr(Text2.Text, Search) '在文本中查找字符串
If Where1 Then
'若找到则设置选定的起始位置并使找到的字符串高亮
Text2.SelStart = Where1 - 1
Text2.SelLength = Len(Search)
'否则给出提示
Else: MsgBox "未找到所要查找的字符", vbInformation, "提示"
End If
End Sub本回答被提问者采纳

Answer 3

它的三个相关属性介绍给你：
SelLength、SelStart、SelText 属性
例如：
Private Sub Command1_Click()
　　　Text1.SetFocus　　　　' 这个不能没有，让Text1获得焦点
　　　Text1.SelStart = 0
　　　Text1.SelLength = 3
End Sub
这样，选中了前3个字符追问

Private Sub Command2_Click()
Dim m As Integer
' If Len(s) = ? Then
MsgBox "请先使用“读数据”功能！"

追答

不明白,你想要做啥?