20 lines
565 B
VB.net
20 lines
565 B
VB.net
Imports System.Windows.Forms
|
|
Imports DevExpress.XtraGrid.Views.Grid
|
|
|
|
Namespace LookupGrid
|
|
Public Class LookupGridHandler
|
|
Inherits Handler.GridHandler
|
|
|
|
Public Sub New(ByVal gridView As GridView)
|
|
MyBase.New(gridView)
|
|
End Sub
|
|
|
|
Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs)
|
|
MyBase.OnKeyDown(e)
|
|
If e.KeyData = Keys.Delete AndAlso View.State = GridState.Normal Then
|
|
View.DeleteRow(View.FocusedRowHandle)
|
|
End If
|
|
End Sub
|
|
End Class
|
|
End Namespace
|