KeyPress y el led del 'Bloq Num'

30/06/2003 - 21:22 por Davidbg | Informe spam
Hola a todos.

Supongo que le habrá acurrido a más de uno.
El caso es que al ejecutar este código (para hacer que al apretar Enter,
salte de control), el led de BloqNum parpadea.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
KeyAscii = 0
SendKeys ("{tab}")
Case Else
End Select
End Sub

¿Alguien sabe como evitarlo?
Gracias de antemano

David
davidbg@grn.es

Preguntas similare

Leer las respuestas

#1 Victor Koch
30/06/2003 - 23:26 | Informe spam
En un modulo bas pone esta declaracion

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan
As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const KEYEVENTF_KEYUP = &H2
Const VK_TAB = &H9

y reemplaza el SendKeys ("{tab}") por

keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0

Un saludo, Víctor Koch.


"Davidbg" escribió en el mensaje
news:bdq2lj$m00$
Hola a todos.

Supongo que le habrá acurrido a más de uno.
El caso es que al ejecutar este código (para hacer que al apretar Enter,
salte de control), el led de BloqNum parpadea.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
KeyAscii = 0
SendKeys ("{tab}")
Case Else
End Select
End Sub

¿Alguien sabe como evitarlo?
Gracias de antemano

David




email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida