如何设置光标到文本框的末尾不失SETFOCUS？

Question

我使用这个代码将焦点设置在窗体的文本框中的结束，但我只能这样做，如果我将焦点设置到该文本框是在我的表格的中间。我已经安装选项卡控制，我想重点是在第一个文本框。

我的代码是：

        Me.txtBox.Locked = True
        Me.txtBox.SetFocus
        Me.txtBox.SelStart = Len(Me.txtBox.Text)

我试过的代码之后添加此之上再次将焦点设置到第一个文本框。

pfPositionCursor Me.txtBox1

但我得到的子或函数未定义的pfPositionCursor

有没有办法做这样的事情？

Answer 1

你可以通过在例如功能的控制：

Call ControlFocusFunction(Me!MyTextbox)


Public Function TextBoxFocusFunction(ctlControl as Control)

  If ctlControl.ControlType = acTextBox Then

    ctlControl.SetFocus
    ctlControl.SelStart(Len(ctlControl.Text))

  End If

End Function