Visual Basic - No funciona KeyDown en un Array de Combo

Life is soft - evento anual de software empresarial
   
Vista:

No funciona KeyDown en un Array de Combo

Publicado por Carlos Ernesto (1 intervención) el 07/09/2011 18:30:29
Hola a todos:
Tengo en un formulario un Array de dos controles ComboBox (y de otros tipos también, pero tomo este como ejemplo).
El código (que no funciona, ni siquiera entra al evento) lo tengo definido así:

Private Sub Combo1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case Index
Case 0
Select Case KeyCode
Case vbKeyReturn
' Confirmar
Toolbar2_ButtonClick Toolbar2.Buttons(1)
Case vbKeyEscape
' Cerrar
Toolbar2_ButtonClick Toolbar2.Buttons(4)
Case Else
End Select
Case 1
Select Case KeyCode
Case vbKeyReturn
' Confirmar
Toolbar2_ButtonClick Toolbar2.Buttons(1)
Case vbKeyEscape
' Cerrar
Toolbar2_ButtonClick Toolbar2.Buttons(4)
Case Else
End Select
Case Else
End Select

End Sub

Y tengo en Form_Load. Me.KeyPreview = True

¿Alguien tiene alguna sugerencia?

Agradezco cordialmente cualquier ayuda
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

No funciona KeyDown en un Array de Combo

Publicado por XHkrElite (518 intervenciones) el 11/09/2011 04:10:26
intentale asi Carlos

Private Sub Combo1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case Index
Case 0
Select Case KeyCode
case 0
if keycode = vbKeyReturn then
' Confirmar
Toolbar2_ButtonClick Toolbar2.Buttons(1)
end if
Case 1
if keycode = vbKeyEscape then
' Cerrar
Toolbar2_ButtonClick Toolbar2.Buttons(4)
end if
end select
end select
End Sub
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