Visual Basic - Problema muy sencillo

Life is soft - evento anual de software empresarial
 
Vista:

Problema muy sencillo

Publicado por Héctor (2 intervenciones) el 03/04/2004 22:29:32
Hola, soy nuevo en la programación y mi duda es la siguiente:
deseo saber como puedo mandar un mensaje al usuario cuando presione cualquier tecla.
Desde ya muchas gracias.
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:Problema muy sencillo

Publicado por Shiquilla (10 intervenciones) el 04/04/2004 14:36:06
En el evento KEYDOWN o KEYUP.. o KEYPRESS.. pones ahi el mensaje que quieras dar y listo.
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:Problema muy sencillo

Publicado por Stump Kops (41 intervenciones) el 09/04/2004 23:46:42
Podrías usar la función GetAsyncKeyState de la API de Win32 para obtener el estado de las teclas virtuales. Por ejemplo:

Sub IniciarTeclas()
Dim i%

'Inicializa el estado de las teclas virtuales.

For i = 0 To 255
Call GetAsyncKeyState(i)
Next

End Sub

Function TeclaApretada() As Boolean
Dim i%

For i = 0 To 255
If GetAsyncKeyState(i) Then
'Si se apretó una tecla.

TeclaApretada = True
Exit For
End If
Next
End Function

Sub EsperarTecla()
'Inicializa el estado de las teclas virtuales.
'
Call IniciarTeclas()

Do
'Espera que se presione una tecla.

If TeclaApretada Then
'Hace las tareas necesarias cuando se apreta una tecla.
End If

DoEvents
Loop
End Sub

El prototipo de la función GetAsyncKeyState es el siguiente:

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Si de lo que hablás es de esperar que un usuario presione una tecla en un formulario, usa el evento KeyDown del formulario y establecé la propiedad KeyPreview a True para que todas las pulsaciones primero se manden al formulario antes de que a cualquier control.
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