Question

vb 在文本框中输入字符，立刻选中它

要在keyup中设置

Answer 1

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text1.SelStart = Len(Text1.Text) - 1
Text1.SelLength = 1
End Sub

追问

能解释一下这是什么意思么？selstart和sellength是怎么用的

追答

SelLength、SelStart、SelText 属性

SelLength－返回或设置所选择的字符数。

SelStart－返回或设置所选择的文本的起始点；如果没有文本被选中，则指出插入点的位置。

SelText－返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为零长度字符串 ("")。
这些属性在设计时是不可用的。

语法

object.SelLength [= number]

object.SelStart [= index]

object.SelText [= value]

SelLength、SelStart、和 SelText 属性的语法包含下面部分：

部分 描述
Object 对象表达式，其值是“应用于”列表中的一个对象。
Number 一个用来指定被选择字符数的数值表达式。对于 SelLength 和 SelStart，设置值的有效范围是 0 到文本长度－在 ComboBox 或 TextBox 控件编辑区中字符的总数。
Index 一个用来指定所选择文本的起始点的数值表达式，“设置值”中有详细描述。
Value 包含所选择文本的字符串表达式。

说明

为下面这些任务应使用这些属性，如设置插入点、建立插入范围、在控件中选择子串、或清除文本等。与 Clipboard 对象联合使用，这些属性对于复制、剪切、和粘贴操作是很有用的。

当使用这些属性时：

SelLength 的设置比 0 小会导致一个运行时错误。

SelStart 的设置比文本长度大，会使该属性设置为现有文本长度；SelStart 的改变将使选择改变到插入点并将 SelLength 设置为 0。

SelText 的设置为新值，会将 SelLength 设置为 0 并用新字符串代替所选择的文本。

追问

谢谢，能帮忙再解决一下这个问题么？在text1中输入一个字符，在text2中输出前导字符，text3中输出后续字符，在keypress事件中进行。

追答

新问题新帖子，先采纳了再说，何况你的问题没金币，白伺候你一辈子啊？