Question

我有一系列文本箱,每个盒长8位数。我有一顿子,通过表格和填满头4位数(0123)。当我对文本框表进行表态时,我如何总是把曲线的焦点放在线上,即第四位数之后? 感谢:

Answer 1

将该守则列入您的资料来源档案。

Private Sub Text1_GotFocus()
    Text1.SelStart = Len(Text1.Text)
End Sub

This assumes that you have a textbox named Text1. When it has the focus, the cursor is placed at the end of the textbox.

Answer 2

Private Sub Text1_GotFocus()
  Text1.SelStart = 4
End Sub

Answer 3

如果说 w子是正确的,而你只想在报刊上这样做,而不是在点燃时,那么你将把现有的答案与表格结合起来。关键事件,如果关键点为9,那是表塔,然后你可以采用Selstart方法。

Answer 4

由于你提到,你有一系列的文本箱,你可以采用单一方法,在文本箱的结尾处确定对表格“Load”的控制。这需要比每个文本箱的活动手法少很多。

Dim o As Variant
For Each o In Form1.Controls
    If TypeName(o) = "TextBox" Then
        Dim x As TextBox
        Set x = o
        x.SelStart = Len(x.Text)
    End If
Next

然而,当用户改变任何文本箱中的曲线位置时,当他们离开并回到案文箱时,就会继续改变。视你的情况而定,这可能是或可能不是想要的行为。例如,任何文本箱都首次集中使用, cur子已经结束。如果使用者决定改变治疗器的位置,离开,回到同一个文本箱,治疗器就离开了。

友情链接