KeyEventHandler Delegate
Assembly: System.Windows.Forms (in System.Windows.Forms.dll)
'Declaration Public Delegate Sub KeyEventHandler ( _ sender As Object, _ e As KeyEventArgs _ ) 'Usage Dim instance As New KeyEventHandler(AddressOf HandlerMethod)
Parameters
- sender
- Type: System.Object
The source of the event.
- e
- Type: System.Windows.Forms.KeyEventArgs
A KeyEventArgs that contains the event data.
When you create a KeyEventHandler delegate, you identify the method that will handle the event. To associate the event with your event handler, add an instance of the delegate to the event. The event handler is called whenever the event occurs, unless you remove the delegate. For more information about handling events with delegates, see Events and Delegates.
Private Sub treeView1_KeyDown(sender As Object, _ e As KeyEventArgs) Handles treeView1.KeyDown ' If the 'Alt' and 'E' keys are pressed, ' allow the user to edit the TreeNode label. If e.Alt And e.KeyCode = Keys.E Then treeView1.LabelEdit = True ' If there is a TreeNode under the mose cursor, begin editing. Dim editNode As TreeNode = treeView1.GetNodeAt( _ treeView1.PointToClient(System.Windows.Forms.Control.MousePosition)) If (editNode IsNot Nothing) Then editNode.BeginEdit() End If End If End Sub Private Sub treeView1_AfterLabelEdit(sender As Object, _ e As NodeLabelEditEventArgs) Handles treeView1.AfterLabelEdit ' Disable the ability to edit the TreeNode labels. treeView1.LabelEdit = False End Sub
' Boolean flag used to determine when a character other than a number is entered. Private nonNumberEntered As Boolean = False ' Handle the KeyDown event to determine the type of character entered into the control. Private Sub textBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) _ Handles textBox1.KeyDown ' Initialize the flag to false. nonNumberEntered = False ' Determine whether the keystroke is a number from the top of the keyboard. If e.KeyCode < Keys.D0 OrElse e.KeyCode > Keys.D9 Then ' Determine whether the keystroke is a number from the keypad. If e.KeyCode < Keys.NumPad0 OrElse e.KeyCode > Keys.NumPad9 Then ' Determine whether the keystroke is a backspace. If e.KeyCode <> Keys.Back Then ' A non-numerical keystroke was pressed. ' Set the flag to true and evaluate in KeyPress event. nonNumberEntered = True End If End If End If 'If shift key was pressed, it's not a number. If Control.ModifierKeys = Keys.Shift Then nonNumberEntered = true End If End Sub 'textBox1_KeyDown ' This event occurs after the KeyDown event and can be used ' to prevent characters from entering the control. Private Sub textBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) _ Handles textBox1.KeyPress ' Check for the flag being set in the KeyDown event. If nonNumberEntered = True Then ' Stop the character from being entered into the control since it is non-numerical. e.Handled = True End If End Sub 'textBox1_KeyPress
Windows 7, Windows Vista, Windows XP SP2, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP Starter Edition, Windows Server 2008 R2, Windows Server 2008, Windows Server 2003, Windows Server 2000 SP4, Windows Millennium Edition, Windows 98, Windows CE, Windows Mobile for Smartphone, Windows Mobile for Pocket PC
The .NET Framework and .NET Compact Framework do not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.