move LookupGrid to Controls.LookupGrid folder
This commit is contained in:
21
Controls.LookupGrid/LookupGridHandler.vb
Normal file
21
Controls.LookupGrid/LookupGridHandler.vb
Normal file
@@ -0,0 +1,21 @@
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user