Presionar tecla = Mensaje

[Cheatmaster]

Buenas pues miren, esto haciendo, para que por ejemplo al presionar la tecla " A " envie un mensaje Con el mensaje de " Administración pc "

Bueno el caso, como es para que si yo pulso la letra a diga ese mensaje u otro,

[crypto136]

Buenas Cheatmaster prueba este code.

Código:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 97 Then
    MsgBox "Presionada la tecla A ", vbInformation
End If
End Sub

[Cheatmaster]

nono, me refiero a esto por ejemplo

Keypress = " A "

KeyPress = Msgbox ( PULSaSTE A )

[tragantras]

Lo k as puesto no le pillo el sentido xD pq se supone k un msgbox no devuelve 0,1,2 dependiendo de las opciones k tnga, es decir aceptar, cancelar, o reintentar.
El msgbox k as puesto solo tiene aceptar creo o cancelar tambin igualmente estableceria el valor del keypress en 0 o 1, el cero es valor nulo y el 1 no es grafico por lo k ... no te sirve eso.

[ziBboh]

Corrijanme si me equivoco, pero creo que la respuesta de crypto136 es correcta, es la respuesta a la duda de Cheatmaster, no?

[tragantras]

La de crypto si es wna, la k digo k es mala es la de cheatmaster xD

[Cheatmaster]

Ah bien si si, pero el 97, como es para mas teclas ?  ejemplo
 
X, K, E, n


EDITO: ya se este es el codigo

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyPress = 97 Then
    MsgBox "Presionada la tecla A ", vbInformation
End If
End Sub

[crypto136]

Ah bien si si, pero el 97, como es para mas teclas ?  ejemplo
 
X, K, E, n


EDITO: ya se este es el codigo

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyPress = 97 Then
    MsgBox "Presionada la tecla A ", vbInformation
End If
End Sub