27 lines
794 B
VB.net
27 lines
794 B
VB.net
Imports DevExpress.XtraGrid
|
|
Imports DevExpress.XtraGrid.Views.Base
|
|
Imports DevExpress.XtraGrid.Views.Base.Handler
|
|
Imports DevExpress.XtraGrid.Registrator
|
|
|
|
Namespace LookupGrid
|
|
Public Class GridViewInfoRegistrator
|
|
Inherits GridInfoRegistrator
|
|
|
|
Public Overrides ReadOnly Property ViewName() As String
|
|
Get
|
|
Return "GridView"
|
|
End Get
|
|
End Property
|
|
Public Overrides Function CreateView(ByVal grid As GridControl) As BaseView
|
|
Return New LookupGridView(TryCast(grid, GridControl))
|
|
End Function
|
|
Public Overrides Function CreateHandler(ByVal view As BaseView) As BaseViewHandler
|
|
Return New GridHandler(TryCast(view, LookupGridView))
|
|
End Function
|
|
End Class
|
|
|
|
|
|
|
|
End Namespace
|
|
|