Visual Basic - Enter = que Tab

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

Enter = que Tab

Publicado por Alejandro Limon (53 intervenciones) el 29/06/2003 02:30:56
Me gustaria saber como hacer para que la tecla Enter funcione tambien como el Tab
Gracias de Antemano Y tambien agradesco por la pregunta contestada Hace Rato Por Ñ
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

RE:Enter = que Tab

Publicado por Cecilia Colalongo (3116 intervenciones) el 29/06/2003 12:56:23
Tienes que controlarlo dentro de tus controles, si es en un textbox en el evento KeyPress puedes hacer:

If KeyAscii = vbKeyReturn Then
KeyAscii = 0
SendKeys "{Tab}"
End If
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

RE:Enter = que Tab

Publicado por Esteban (1144 intervenciones) el 29/06/2003 20:19:40
Esta está buena, amigos les tengo una API para eso....

En un módulo o lugar que pueda ser llamada la api se declara así:
Public Const VK_TAB = &H9
Public Const VK_LSHIFT = &HA0
Public Const KEYEVENTF_EXTENDEDKEY = &H1
Public Const KEYEVENTF_KEYUP = &H2
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Para ser llamada:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
'Simular que pulsamos la tecla
keybd_event VK_TAB, 0, 0, 0
'Simular que soltamos la tecla
keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
End If
End Sub

Eso es porque supe que el SendKeys es muy forzado como interrupción, sin embargo, encontré esta forma más natural para la PC.

Suerte
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