Namespace keypreview
Public Class Form1
Inherits Form
Private checkBox1 As CheckBox
Private comboBox1 As ComboBox
Private listBox1 As ListBox
Private textBox1 As TextBox
Shared Sub Main()
Application.Run(New Form1())
End Sub
Public Sub New()
checkBox1 = New CheckBox()
comboBox1 = New ComboBox()
listBox1 = New ListBox()
textBox1 = New TextBox()
checkBox1.Location = New Point(32, 16)
comboBox1.Location = New Point(32, 40)
comboBox1.Size = New Size(240, 20)
listBox1.Location = New Point(32, 120)
textBox1.Location = New Point(32, 80)
AutoScaleBaseSize = New Size(5, 12)
ClientSize = New Size(292, 318)
Controls.Add(textBox1)
Controls.Add(listBox1)
Controls.Add(comboBox1)
Controls.Add(checkBox1) KeyPreview = True
End Sub
' すべてのコントロールのキー入力を一括処理 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown listBox1.Items.Add(e.KeyCode.ToString()) End Sub
End Class
End Namespace