VB 如何自动选择文本框里面特定位置的字符?
例如文本框1(multiline=true)我要学习编程-电脑网络当鼠标点击“我要学习编程”或者“电脑网络”的任何一个字符的时候,就把“-”符号前面或者后面的字符全选。如...
例如文本框1(multiline=true)
我要学习编程-电脑网络
当鼠标点击“我要学习编程”或者“电脑网络”的任何一个字符的时候,
就把“-”符号前面或者后面的字符全选。
如图
展开
2个回答
展开全部
文本框有 表示选择开始。长度的属性,
好像是 selStart 和selTextLength,这两个属性都是可读培缺写的
再结合敏中局字符串查找函数就可以做到了。
////////
给点分啊,我帮你写了^_^
vs2005 +vb.net 测试通过,
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "我爱编程-百度知道"
End Sub
Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
Dim curindex As Integer = TextBox1.SelectionStart
Dim ganindex As Integer = TextBox1.Text.IndexOf("-")
If curindex < ganindex Then
TextBox1.SelectionStart = 0
TextBox1.SelectionLength = ganindex
Else
TextBox1.SelectionStart = ganindex + 1
TextBox1.SelectionLength = TextBox1.Text.Length - ganindex
End If
End Sub
End Class
如果是6.0 的话,可能属性名字有点变化,indexof函数可桥让以使用
mid或者 instr函数来代替
好像是 selStart 和selTextLength,这两个属性都是可读培缺写的
再结合敏中局字符串查找函数就可以做到了。
////////
给点分啊,我帮你写了^_^
vs2005 +vb.net 测试通过,
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "我爱编程-百度知道"
End Sub
Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
Dim curindex As Integer = TextBox1.SelectionStart
Dim ganindex As Integer = TextBox1.Text.IndexOf("-")
If curindex < ganindex Then
TextBox1.SelectionStart = 0
TextBox1.SelectionLength = ganindex
Else
TextBox1.SelectionStart = ganindex + 1
TextBox1.SelectionLength = TextBox1.Text.Length - ganindex
End If
End Sub
End Class
如果是6.0 的话,可能属性名字有点变化,indexof函数可桥让以使用
mid或者 instr函数来代替
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询