[VB.NET] Sapere se il tasto "Caps Lock" è attivo

[power.mobile]

ciao a tutti, ho fatto qualche ricerca ma non ho trovato niente... come faccio a sapere se il tasto capslock è attivo o no?? grazie a chiunque risponderà..

[francesco723]

ciao , prova con questo

If My.Computer.Keyboard.CapsLock Then
'attivo
else

End If

[power.mobile]

ho provato ma non esiste il namespace my e neanche la classe computer... xfavore aiutatemi

[Bertoz]

Ciao...
Strano,il codice di Francesco funziona perfettamente,cmq in alternativa ti posto il codice

Vanno messi prima di ogni cosa,cioè prima della classe e di ogni sub

Imports System
Imports System.Runtime.InteropServices

Crei una nuova classe

Public Class Win32Bridge
    Public Sub New()
    End Sub
    <DllImport("User32.dll")> _
    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

Qui inizia la classe del tuo form....
Dichiari la variabile per il tasto

Public Class Form1
    Private Const VK_CAPITAL As Integer = &H14

Crei una funzione,così da poterla richiamare facilmente

    Private Sub Capsl()

        If Win32Bridge.IsKeyOn(CType(VK_CAPITAL, Integer)) Then
            MsgBox("CapsLock")
        End If
    End Sub

Richiami la funzione dove vuoi,io in questo caso l'ho messa in "form load"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Capsl()

    End Sub

ed Ecco fatto,se caps lock è attivo ti compare 1 messaggio...
Il codice non è mio,ma l'avevo trovato su internet...cmq funziona...

Ciao

[power.mobile]

grazie proverò... il codice di francesco credo vada su vb.net2005 mentre io lavoro con il 2003... grazie ti farò sapere

[ibykos]

se esiste il namespace devices, puoi provare con

devices.keyboard

dovrebbero esserci tutti gli strumenti per controllare la tastiera.