Visual Basic para Aplicaciones - Moverse con flechas en Listbox y seleccionar dato con Enter

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Moverse con flechas en Listbox y seleccionar dato con Enter

Publicado por anonymous (10 intervenciones) el 16/09/2023 16:34:33
Buenas tardes.
Estoy atascado en un asunto relacionado con un Listbox y pido vuestra inestimable ayuda
Tengo el archivo con un multipage con varias paginas a modo de cuestionario. Por ejemplo, en el paso 2, cuando escribo algo en el textbox, me sale un listbox con las opciones. Una vez aparecido el Listbox, si le doy a la tecla fabulación me salta a la primera opción pero no puedo subir o bajar por las opciones para elegir algo.
.
Mi pregunta es ¿como puedo seleccionar con las teclas arriba o abajo una opción y con la tecla ENTER seleccionar una de ellas y esta aparezca en el textbox. No se si se puede hacer.
He probado diferentes maneras y nada. No he sido capaz. Alguna orientación por favor.
Muchas gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Moverse con flechas en Listbox y seleccionar dato con Enter

Publicado por Antoni Masana (498 intervenciones) el 17/09/2023 21:58:25
Haseste cambio:

Quita esto:

1
2
3
4
Private Sub ListBox2_Click()
    TextBox2.Text = ListBox2.List(ListBox2.ListIndex)
    Me.ListBox2.Visible = False
End Sub

Y añade esto:

1
2
3
4
5
6
7
8
Private Sub ListBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then
        Application.EnableEvents = False
        TextBox2.Text = ListBox2.List(ListBox2.ListIndex)
        Me.ListBox2.Visible = False
        Application.EnableEvents = True
    End If
End Sub

El único problema es que me sale este error después de pulsar Intro en el ListBox y se cierra el libro.
Guarda los cambios antes de probar.

Prueba3

No se si es un problema mio o de tu hoja.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Moverse con flechas en Listbox y seleccionar dato con Enter

Publicado por anonymous (10 intervenciones) el 21/09/2023 20:29:52
Hola Antoni.
Perdona por no contestar antes. No he recibido ningun mensaje de notificacion de que habia una respuesta.

Es justo lo que queria. Tambien me da el mismo error.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Moverse con flechas en Listbox y seleccionar dato con Enter

Publicado por anonymous (10 intervenciones) el 21/09/2023 21:00:04
De hecho también cuando lo cierras se queda bloqueado y tengo que cerrarlo mediante ctrl+alt+supr
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar