VB 如何自动选择文本框里面特定位置的字符？

文本框有 表示选择开始。长度的属性，

公司主营业务：做网站、成都网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出蕲春免费做网站回馈大家。

好像是 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函数来代替

vb中如何通过点击按钮，全选文本框中所有文字？

1）在窗体上布置一个TextBox和一个Command控件

2）窗体代码

Option Explicit

Private Sub Command1_Click()

'选择文本框中所有文本

With Text1

.SelStart = 0

.SelLength = Len(Text1.Text)

'让文本框获取焦点

.SetFocus

End With

End Sub

Private Sub Form_Load()

'在TextBox中显示一些文本

Text1.Text = "Visual Basic是一种可视化程序设计语言"

'命令按钮的提示

Command1.Caption = "选择所有文本"

End Sub

vb点击文本框自动选中文本

Private Sub Text1_GotFocus()   '当Text1获得焦点时，最后一个字符串被选中

Text1.SelStart = InStrRev(Text1.Text, " ")

Text1.SelLength = Len(Text1.Text)

Text1_MouseUp 0, 0, 0, 0     '同时把选中内容放入Text2

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Text1_MouseUp 0, 0, 0, 0     '如果选择是通过键盘完成的，也放入Text2中

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)   '这个则是处理用鼠标来选定的情况，不管是双击还是拖动选择均可

If Text1.SelText  "" Then Text2.Text = Text1.SelText    '如果Text1存在被选中的字符就放入Text2中

End Sub

网站名称：vb.net自动选择文本 vb选中文本框内容
文章链接：http://kswjz.com/article/hieoei.html