Enterキーを押した後、テキストボックスにフォーカスを置く

Question

VBAフォームでEnterキーを押した後、テキストボックスにフォーカスを保持するにはどうすればよいですか？

このコードはテキストをリストボックスに追加し、テキストボックスにフォーカスを置いて別のアイテムを受け取る準備をします。

[追加]ボタンをクリックすると、テキストがリストボックスに追加され、フォーカスをテキストボックスに戻します。入力を押すとhowerverに戻ります。同じコードを使用しても難しいです。なにか提案を？

これは、テキストボックスのために私のコードです：

Private Sub TxtOtherAsset_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 

    If KeyCode = 13 Then 
     CmdAddOtherAsset_Click 
    End If 

End Sub 

、これが私のボタンのコードです：

Private Sub CmdAddOtherAsset_Click() 

    If TxtOtherAsset.Text <> "" Then 
     ListAddedAssets.AddItem TxtOtherAsset.Text 
     TxtOtherAsset.Text = "" 
    End If 

    TxtOtherAsset.SetFocus 

End Sub 

私はいくつかの方法を試してみたが、私は返すことができないんだけどテキストボックスにフォーカスを移動します。 Enterキーを押すと、フォーカスはTabIndexの次のページに移動します。

Answer 1

私の頭の上から：KeyCodeを0に設定してみてください。また、KeyCodeConstantsクラス（Coreライブラリから）を使ってEnterキーの値を決定してください。このよう

：

If KeyCode = KeyCodeConstants.vbKeyReturn Then 
    CmdAddOtherAsset_Click 
    KeyCode = 0 
End If 

あなたが他のサブ（TxtOtherAsset.SetFocus）にフォーカスを設定しようとしている行を削除します。

ご希望の場合はご利用ください。私はそれをテストしなかった。

Answer 2

Enterキーをトリガーとして使用して、テキストボックスの変更をキャッチしていますか？その場合は、After Updateイベントを実行してください。また、On Exitイベントを見てください。私が見たとき、私はそれがキャンセルパラメータを持っていることに気付きました。 Key DownイベントでEnterキーを捕捉したい場合は、On Exitイベントを使用してテキストボックスから離れるのを防ぐことができます。もちろん、これはおそらくあなたが恒久的に立ち往生していることを意味し、終了を許可する方法を設定する必要があるかもしれません。