如何在TEXT之间移动光标？

Question

我正在制作的一个系统，一个界面上有多个TEXT，而且要在界面上画一个键盘。在不使用鼠标直接点击TEXT设置焦点的情况下，使用键盘上的按钮，如何能在TEXT之间移动焦点？我是说不模拟TAB和BACKSPACE的情况下？

Answer 1

为什么一定不模拟呢实在不模拟的话你也可以SetFocus设置焦点呀

Answer 2

Private Sub Command1_Click()
  Text2.SetFocus
End Sub

Answer 3

Text1.SetFocus另外发送键盘消息 使用SendKeys

Answer 4

放一个Text1控件数组Private Sub Command1_Click()
    Static aa As Long
    Text1(aa Mod Text1.Count).SetFocus
    aa = aa + 1
End Sub

Answer 5

在界面上画的键盘有上下左右键，需要在按这些键的时候，在TEXT控件间移动焦点。这个是真正的需求，在向前移动的时候，如果使用BACK，会删除已经输入的内容。

Answer 6

这个问题很有意思。可惜我只会用键盘的方向键控制界面上的textbox的顺序。 关注

Answer 7

放一个Text1控件数组
Static aa As Long
Private Sub CommandLeft_Click()
    Text1(aa Mod Text1.Count).SetFocus
    aa = aa - 1
End SubPrivate Sub CommandRight_Click()
    Text1(aa Mod Text1.Count).SetFocus
    aa = aa + 1
End Sub

Answer 8

先在需要控制的TEXT的tag属性 写上 方位，格式是: x,y   x为横的方位，y为竖的方位
譬如 第一个TextBox 的tag为1,1 他右边的为 2,1  他下面的就为 1,2
Option ExplicitPrivate m_col As New Collection
Private Const MAX_X As Integer = 3 '横最多3个 这里我测试 横竖都是3个
Private Const MAX_Y As Integer = 3 '竖最多3个
Private m_strCurFocus As String
Private Sub cmdDown_Click() '向下
    Call GoPos("DOWN")
End Sub
Private Sub cmdUP_Click() '向上
    Call GoPos("UP")
End Sub
Private Sub cmdLeft_Click() '向左
    Call GoPos("Left")
End Sub
Private Sub cmdRight_Click() '向右
    Call GoPos("Right")
End SubFunction GoPos(strDirect As String)
    Dim strTag As String, strPos() As String, x As Integer, y As Integer
    If m_strCurFocus = "" Then Exit Function
    strPos = Split(m_strCurFocus, ",")
    x = CInt(Trim(strPos(0)))
    y = CInt(Trim(strPos(1)))
    Select Case UCase(strDirect)
        Case "LEFT"
            If (x - 1) < 1 Then '如果是最左边一个的话
                '回到最上一行最后一个
                '注意下面RIGHT DOWN UP也要这样处理，由于是例子 没做处理了
                x = MAX_X
                If y - 1 > 0 Then
                    y = y - 1
                End If
            Else
                x = x - 1
            End If
        Case "RIGHT"
            x = x + 1
        Case "DOWN"
            y = y + 1
        Case "UP"
            y = y - 1
    End Select
    Dim obj As Control
    On Error Resume Next
    Set obj = m_col.Item(x & "," & y) '这里要处理一下 是不是没有这个项目
    On Error GoTo 0
    If Not (obj Is Nothing) Then
        obj.SetFocus
    End If
End Function
Private Sub Form_Load()
Dim obj As Control
For Each obj In Controls
    If TypeName(obj) = "TextBox" Then
        If obj.Tag <> "" Then
            Debug.Print obj.Tag
            m_col.Add obj, obj.Tag '把所有的TextBox添加到集合里
        End If
    End If
Next
End Sub
'使用Timer来纪录 当前的焦点， 因为按了控制方向的按钮后 焦点会是那个按钮 而不是刚才的Text
Private Sub Timer1_Timer()
    If Me.ActiveControl.Tag <> "" Then
        m_strCurFocus = Me.ActiveControl.Tag
    End If
End Sub

Answer 9

viena(vienna维也纳)的方法不错，因为控件数组只能是一维的，所以窗体上二维排列的控件数组用这个方法来模拟二维数组。
不过当你的TEXT控件非常多的时候，排版会比较麻烦，可以考虑实用GRID控件，比如MSFLEXGRID，顺便给出一个简单的编辑MSFLEXGRID控件内容的方法：http://community.csdn.net/Expert/topic/3190/3190090.xml?temp=7.798404E-02

Answer 10

楼上的楼上的方法是不错的,可惜复杂了点, viena(vienna维也纳)的方法不错 比较简洁!

Answer 11

用控件数组
dim i As integer //在通用声明里
Private Sub Text1_GotFocus(Index As Integer)
    i = Index
End SubPrivate Sub CommandLeft_Click()
    if (i-1) < 0 then exit sub
    Text1(i -1).SetFocus
End SubPrivate Sub CommandRight_Click()
    if (i+1) > text1.count then exit sub
    Text1(i +1).SetFocus
End Sub