Rutina para detectar el bloqueo de mayúsculas y numérico en el teclado
Publicado por José Luis (1 intervención) el 24/06/2021 11:32:00
Buenos días,
Tengo un TextArea y debajo de el un panel que contiene 2 etiquetas Label, y quiero detectar cuandi se pulsa la tecla Bloqueo_Mayúsculas y cuando se pulsa la tecala Bloqueo_Numérico. Para habilitar o deshabilitar las las etiquetas coincidiendo con los respectivos leds del teclado del ordenador, al estilo de los procesadores de texto con una barra de estado.
Tengo esta rutina que funciona solo a medias
La rutina si que habilita o deshabilita las etiquetas, pero como no se a priori el estado del led del teclado, a veces coincide a veces va al revés
Alguien sabe como descubrir el estado de los leds del teclado (Bloq_May, y Bloq_Num)
Gracias por la ayuda
Tengo un TextArea y debajo de el un panel que contiene 2 etiquetas Label, y quiero detectar cuandi se pulsa la tecla Bloqueo_Mayúsculas y cuando se pulsa la tecala Bloqueo_Numérico. Para habilitar o deshabilitar las las etiquetas coincidiendo con los respectivos leds del teclado del ordenador, al estilo de los procesadores de texto con una barra de estado.
Tengo esta rutina que funciona solo a medias
1
2
3
4
5
6
7
8
9
10
11
Public Sub TextArea1_KeyPress()
Panel6.SetFocusIf (Key.Code = Key.CapsLock) Then 'Si pulsamos BlocMay
Label1.Enabled = Not Label1.Enabled Endif 'Si pulsamos BlocNumIf (Key.Code = Key.NumLock) Then
Label2.Enabled = Not Label2.Enabled
Endif
TextArea1.SetFocusEnd
La rutina si que habilita o deshabilita las etiquetas, pero como no se a priori el estado del led del teclado, a veces coincide a veces va al revés
Alguien sabe como descubrir el estado de los leds del teclado (Bloq_May, y Bloq_Num)
Gracias por la ayuda
Valora esta pregunta
0