Controlar las teclas

[micayael]

Hola amigos.

Alguien sabe si en Visual Basic se puede asignar una funcion especial a una tecla???

Es decir, Existe el evento Keypress pero es al presionar cualquier tecla.

Yo quiero que cuando el usuario presione una tecla en especial, pase algo.

Tambien por ejemplo, asignarle en un formulario a la tecla ENTER que funcione como el TAB para pasar de un control a otro.

Pienso que es muy incomodo tener que presionar el TAB cada vez de cargar numeros ir al tab en lugar de tener un enter al lado.

Si alguien sabe algo de una manito

gracias.
micayael

[SteelX]

llevo rato que no trabajo en VB.. el evento keypress se puede especificar por teclas, ya que el almacena la tecla pulsada en una variable.. solo tienes que compararla en un condicional if o case y listo . para saltar con el enter el codigo es el 13 para el valor del keypress, solo tienes que activer el evento setfocus y la caja de texto a la que vas a saltar.

espero que esto te sirva ok

[micayael]

GUAU. PUES... (segun entiendo)
Para la primera parte:
como comparo en un condicional eso???
y la segunda:
como que el codigo es el 13 donde introduzco ese codigo y,
si activé el Evento keypress como activo el setFocus tambien.

Perdoname pero no entiendo.

[bezael]

CON ESTO CADA VEZ QUE PULSES ENTER, SERA UN TAB
********************************************
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys vbTab
End Sub
*******************************************
[email protected]

[micayael]

Eso si que esta de pelos hombre. Excelente. Son unos genios.

Me imagino que para asignar una tecla entonces tengo que hacer

If KeyAscii = "A" Then alguna tarea especifica pero como lo hago con las teclas que no son letras? o todas tienen un numero asi como el ENTER es 13? Si es asi, donde puedo conseguir una lista de esos numero.

Gracias amigos me estan ayudando muchisimo. es para un trabajo practico

[bezael]

Hola micayael
Lo primero es que no te puedes referir por ejemplo:
If Keyascii = "A" Then..................
Por todas la tecla tienen un codigo, Por ejemplo con la (A)
If Keyascii=65 Then........
Si quieres puedes hacer algo para ir probando.
***********************************************
Text2.text= Keyascii
**********************************************
USA DOS TEXT, PON ESTO EN EL EVENTO Keypress DE TEXT1
suerte.
[email protected]

[micayael]

Gracias bezael eres un genio viejo.

[bezael]

La Insert es 45 o VbKeyInsert
X Eje:
*****************************************
If KeyCode = vbKeyInsert Then
MsgBox " HOLA "
End If
*****************************************
IGUAL SERIA ESTO
*****************************************
If KeyCode = 45 Then
MsgBox " HOLA "
End If
****************************************
SUERTE,
[email protected]

[sjam7]

alguien sabe como prorgamaar un evento para una convinacion de teclas? como por ejemplo CTRL + ENTER

[bezael]

Hola, esto puede ayudarte.
************************************************** ****

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyReturn Then
MsgBox " Presionaste (CTRL) Y (ENTER) "
End If
End Sub
************************************************** *****
Recuerda poner KEYPREVIEW en el FORMULARIO a TRUE