VB.NET

keyboard event form

2020.04.21

*  

   Protected Overrides Function IsInputKey(ByVal keyData As System.Windows.Forms.Keys) As Boolean

 

        If keyData = Keys.Up Then

 

            Return True

 

        End If

 

    End Function

    Private Sub UserControl1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

 

        MessageBox.Show("ok")

 

    End Sub