vb.net自动选择文本 vb选中文本框内容

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

相关问答

Q1: 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

Q2: 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