FERNANDO PINILLOS wrote:
>
> hola amigos listeros
>
> Necesito ayuda en :
> Estoy colocando en la barra de tareas principal de la aplicación
> que estoy desarrollado, un indicador de la activación de las teclas
> BloqNum e Insert. Comenze, tratando de que la activación se diera cuando
> el usuario presiona BloqNum y no lo he logrado, yo se que es por una
> tonteria.
> Lo que hice fue crear un marco PictureBox con el Caption= "NUM" he
> integrarlo
> en la barra de tareas, luego use el siguiente codigo:
>
> Private Sub Num_Click()
> If KeyPress = &H45& Then
> Scypro.Num.Enabled = True
> Else
> Scypro.Num.Enabled = False
> End If
>
> End Sub
>
> En que me estoy equivocando?...como consigo lo que quiero lograr, tanto
> para BloqNum
> como para Insert



'=============== Declara esto
#If Win32 Then
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As
Long) As Integer
#Else
Private Declare Function GetKeyState Lib "user" (ByVal nVirtKey As
Integer) As Integer
#End If
Const Mayusculas = 20
Const NumLock = 144
Const ScrollLock = 145
Const Insertar = 45



'================ En el form con KeyPreview=True

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Actualizar
End Sub


Public Sub Actualizar()
If GetKeyState(Mayusculas) Mod 2 Then
   Mayus(1).Print "MAYS"
Else
   Mayus(1).Cls
End If
If GetKeyState(NumLock) Mod 2 Then
   Mayus(0).Print "NUM"
Else
   Mayus(0).Cls
End If
If GetKeyState(ScrollLock) Mod 2 Then
   Mayus(2).Print "SCRL"
Else
   Mayus(2).Cls
End If
If GetKeyState(Insertar) Mod 2 Then
   'La tecla insertar está activa
Else
   'La tecla insertar no está activa
End If
End Sub


If GetKeyState("¿Vale?") then
   problema solucionado
else
   a ver, cuenta
end if