DigiNG edición Scripting
Método digi.PideTecla
Devuelve un velor long con el valor ASCII de una tecla pulsada por el usuario.
digi.PideTecla
Como el método no devuelve un carácter ASCII sino que devuelve un valor de tipo long no podemos hacer comparaciones del tipo:
Dim tecla
digi.ImprimeMensaje "Pulsa una tecla..."
tecla = digi.PideTecla
digi.ImprimeMensaje ""
If tecla = "A" Then
' código
End If
Ya que si el usuario pulsa la tecla "A", en realidad el valor que se almacena en la variable tecla es 65, y no "A".
Para poder hacer comparaciones de este tipo podemos usar la función interna de VBScript Chr como en el siguiente ejemplo:
Dim tecla
digi.ImprimeMensaje "Pulsa una tecla..."
tecla = Chr(digi.PideTecla)
digi.ImprimeMensaje ""
If tecla = "A" Then
' código
End If
Además éste método no diferencia mayúsculas de minúsculas y siempre devuelve mayúsculas.
Para teclas especiales podemos definir una de las siguientes constantes:
|
vbSpace |
&h20 |
|
vbPrior |
&h21 |
|
vbNext |
&h22 |
|
vbEnd |
&h23 |
|
vbHome |
&h24 |
|
vbLeft |
&h25 |
|
vbUp |
&h26 |
|
vbRight |
&h27 |
|
vbDown |
&h28 |
|
vbSelect |
&h29 |
|
vbPrint |
&h2A |
|
vbExecure |
&h2B |
|
vbSnapshot |
&h2C |
|
vbInsert |
&h2D |
|
vbDelete |
&h2E |
|
vbHelp |
&h2F |
|
vbNUMPAD0 |
&h60 |
|
vbNUMPAD1 |
&h61 |
|
vbNUMPAD2 |
&h62 |
|
vbNUMPAD3 |
&h63 |
|
vbNUMPAD4 |
&h64 |
|
vbNUMPAD5 |
&h65 |
|
vbNUMPAD6 |
&h66 |
|
vbNUMPAD7 |
&h67 |
|
vbNUMPAD8 |
&h68 |
|
vbNUMPAD9 |
&h69 |
|
vbMULTIPLY |
&h6A |
|
vbADD |
&h6B |
|
vbSEPARATOR |
&h6C |
|
vbSUBTRACT |
&h6D |
|
vbDIVIDE |
&h6F |
|
vbF1 |
&h70 |
|
vbF2 |
&h71 |
|
vbF3 |
&h72 |
|
vbF4 |
&h73 |
|
vbF5 |
&h74 |
|
vbF6 |
&h75 |
|
vbF7 |
&h76 |
|
vbF8 |
&h77 |
|
vbF9 |
&h78 |
|
vbF10 |
&h79 |
|
vbF11 |
&h7A |
|
vbF12 |
&h7B |
|
vbF13 |
&h7C |
|
vbF14 |
&h7D |
|
vbF15 |
&h7E |
|
vbF16 |
&h7F |
|
vbF17 |
&h80 |
|
vbF18 |
&h81 |
|
vbF19 |
&h82 |
|
vbF20 |
&h83 |
|
vbF21 |
&h84 |
|
vbF22 |
&h85 |
|
vbF23 |
&h86 |
|
vbF24 |
&h87 |
Ejemplo
Const vbF1 = &h70
Dim tecla
digi.ImprimeMensaje "Pulsa una tecla"
tecla = digi.PideTecla
digi.ImprimeMensaje ""
If tecla = vbF1 Then
MsgBox "Has pulsado la tecla de ayuda"
Else
MsgBox "No has pulsado la tecla de ayuda"
End If
Mirar también
Fecha de última modificación: sábado, 8 de junio de 2002
© 2001-2002 Dreaming With Objects. Todos los derechos reservados.