![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
vb中如何实现text中选定文本操作
展开全部
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
它的三个相关属性介绍给你:
SelLength、SelStart、SelText 属性
例如:
Private Sub Command1_Click()
Text1.SetFocus ' 这个不能没有,让Text1获得焦点
Text1.SelStart = 0
Text1.SelLength = 3
End Sub
这样,选中了前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 "请先使用“读数据”功能!"
追答
不明白,你想要做啥?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询