vb6 - Enterキーをフォームvb 6.0のすべてのコントロールのタブキーとして機能させる

Question

重複の可能性:
プログラムで Tab を押して vb.net コーディングでキーを入力する方法

ユーザーの要件に従って、VB 6.0 ユーザー入力フォームで Enter キーを Tab キーとして機能させる必要があります。

特定のコントロールに対して SendKeys "{TAB}" を使用できますが、フォーム上のすべてのコントロールを作成して、Enter キーをタブ キーとして使用する方法はありますか。

よろしく。

ラザ

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 というテキスト ボックスの配列を作成しました。お役に立てば幸いです。