Senza categoria

Individuare se il tsto Caps Lock è attivo [VB.NET]

Salve a tutti,

Sapete è da un po che non scrivo quindi oggi vi spiego come indivuduare se il tasto caps lock è attivo tramite vb.net

bene

aprite visual studio e create un nuovo progetto usando windows form create una textbox

ora visualizzate il codice ed inseriteci questo:

 

#Region "CSPFD"
    'dichiara capslock
    Private Const VK_CAPITAL As Integer = &H14
    'fine dichiarazione
#End Region

#Region "CapsLock ON"
    '################################## Dichiarazione CapsLock #################################

    Public Class Win32Bridge
        Public Sub New()
        End Sub
        _
        Protected Shared Function GetKeyState(ByVal nVirtKey As Integer) As Short
        End Function
        Public Shared Function IsKeyOn(ByVal nKey As Integer) As Boolean
            Return ((GetKeyState(nKey) And 1) > 0)
        End Function
    End Class

    Private Sub CapsON()

        If Win32Bridge.IsKeyOn(CType(VK_CAPITAL, Integer)) = True Then

        End If
    End Sub
#End Region

ora per richiamare la funzione vi basta mettere all'interno del codice CapsON()

avviate il debug e se premete il tasto caps lock vedrete apparire un popup che vi avviserà che il tasto caps lock è attivo.

PS in alcuni casi potrebbe non funzionare o richiedere la funzione tooltip.

Spero vi sia utile.

Lascia un commento