使Enter键作为表单vb 6.0上所有控件的tab键

Question

  

可能重复：
  How to programatically press Tab and enter key by vb.net coding

根据用户要求，我需要在VB 6.0用户输入表单中将Enter Key作为Tab键工作。

对于我可以使用的特定控件           SendKeys“{TAB}”， 但是有什么方法可以让表单上的所有控件都将输入键作为tab键。

问候。

拉​​扎

Answer 1

您可以创建一个控件数组并尝试类似这样的示例：

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    'If I press Enter key...
    If KeyAscii = 13 Then
        With Text1(Index)
            'I add a tab.
            .Text = .Text & vbTab

            'I placed in the end of the text.
            .SelStart = Len(.Text)
        End With

        'And finally I omit the enter key pressed.
        KeyAscii = 0
    End If
End Sub

我创建了一个名为Text1的文本框数组。 我希望它有所帮助。