vba - pulsando - Mantenga el foco en el cuadro de texto luego de presionar enter

poner el cursor en un textbox c#

Question

¿Cómo puedo mantener el foco en un cuadro de texto después de presionar Intro en un formulario de VBA?

Este código agrega el texto a un Listbox y quiero mantener el foco en el cuadro de texto para estar listo para recibir otro elemento.

Cuando hago clic en el botón Agregar, agrega el texto al Cuadro de lista y devuelve el foco al cuadro de texto, mientras que cuando presiono ingresar, no lo hace, incluso si usa el mismo código. ¿Cualquier sugerencia?

Este es mi código para el cuadro de texto:

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

    If KeyCode = 13 Then
        CmdAddOtherAsset_Click
    End If

End Sub

y este es el código de mi botón:

Private Sub CmdAddOtherAsset_Click()

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

    TxtOtherAsset.SetFocus

End Sub

Lo intenté de varias maneras, pero no puedo devolver el enfoque al cuadro de texto. Después de presionar enter, el foco pasa al siguiente en TabIndex.

Answer 1

¿Estás utilizando la tecla Enter como un disparador para capturar los cambios en el cuadro de texto? Si ese es el caso, pruebe el evento After Update en su lugar. Además, eche un vistazo al evento On Exit. Cuando miré, noté que tiene un parámetro de Cancelar. Si aún desea capturar la tecla Intro en el evento Key Down, podría posiblemente el evento On Exit para evitar que salga del cuadro de texto. Por supuesto, eso probablemente significa que estás permanentemente atascado y es posible que tengas que configurar una forma de permitir la salida.

Answer 2

Desde lo más alto de mi cabeza: intente configurar KeyCode en 0. Además, use la clase KeyCodeConstants (de la biblioteca Core) para determinar qué valor tiene la tecla Enter.

Me gusta esto:

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

Elimine la línea que está tratando de establecer el foco en el otro sub ( TxtOtherAsset.SetFocus ).

Espero que funcione para ti. No lo probé.