qual è il codice ascii del tasto caps lock

Question

qualcuno può aiutarmi a definire con un costrutto come poter evidenziare (sapendolo) quando viene premuto il tasto caps lock?

avrei questa necessità, in quanto, se l'utente sta inserendo la sua password vorrei fargli comparire un messaggio che gli dice se il tasto caps lock è attivo. Grazie

Carlo Raffaele

Answer 1

Non invento nulla di nuovo ma facendo riferimento alle API windows prova qualcosa del genere.

In un modulo standard:

'---

Option Explicit

'dichiarazione funzione API

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long

Sub VerificaCapsLock()

   Dim Risp As Long

   Dim Keys(0 To 255) As Byte

   Dim CapsLockState As Long

   Risp = GetKeyboardState(Keys(0))

   CapsLockState = Keys(&H14)

   If CapsLockState = 0 Then 'CapsLock disattivato

      MsgBox "Il CapsLock è disattivato!"

   ElseIf CapsLockState = 1 Then 'CapsLock attivato

      MsgBox "Il CapsLock è attivato!"

   End If

End Sub

'---