vb.netでキャップロックキーが押されたときにチェックボックスをチェックする方法

Question

vb.netでプログラムを開発しようとしましたが、キャップロックキーを押したときにチェックボックスをオンまたはオフにすることができました。私は以下のコードを使って同じことをしましたが、うまくいきませんでした。

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress 
    If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.CapsLock) Then 
     checkbutton_caps.Checked = True 
    End If 

このコードで何が問題になっていますか？

Answer 1

Imports System 
Imports System.Windows.Forms 
Imports Microsoft.VisualBasic 

Public Function GetCapsLockState() As Boolean 
    If Control.IsKeyLocked(Keys.CapsLock) Then 
     Return True 
    Else 
     Return False 
    End If 
End Function 

If GetCapsLockState Then 
    checkbutton_caps.Checked = True 
End If 

Answer 2

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown 
    If e.KeyCode = Keys.Capital Then 
     CheckBox1.Checked = Not CheckBox1.Checked 
    End If 
End Sub 

CapitalとCapsLockの両方が動作します。

コードまたはプロパティのいずれかにMe.KeyPreview = Trueを設定することも忘れないでください。

これは、これらのコードが動作する程度keydown vs keypress

Answer 3

両方に有用な研究です。

KeyPreviewプロパティを使用しないKeyPreview = True

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown 
    If e.KeyCode = Keys.CapsLock Then 
     checkbutton_caps.Checked = True    
    End If 
End Sub 

➤設定➤（単純に、あなたのプログラムにこのコードを追加します）。

Protected Overrides Function ProcessCmdKey(ByRef Msg As Message, _ 
              ByVal Key As Keys) _ 
              As Boolean 
    If Msg.WParam = Keys.CapsLock Then 
     checkbutton_caps.Checked = True   
     Return True 
    End If 
     Return Me.ProcessCmdKey(Msg, Key) 
End Function 

ヒント：キーが再び押されたときにcheckboxをオフにこのコードを使用します。

checkbutton_caps.Checked = Not checkbutton_caps.Checked 

'Instead of... 

checkbutton_caps.Checked = True