18 lines
517 B
VB.net
18 lines
517 B
VB.net
Imports DevExpress.XtraGrid
|
|
Imports DevExpress.XtraGrid.Views.Base
|
|
Imports DevExpress.XtraGrid.Registrator
|
|
|
|
Public Class LookupGridControl
|
|
Inherits GridControl
|
|
|
|
Protected Overrides Function CreateDefaultView() As BaseView
|
|
Return CreateView("LookupGridView")
|
|
End Function
|
|
Protected Overrides Sub RegisterAvailableViewsCore(ByVal collection As InfoCollection)
|
|
MyBase.RegisterAvailableViewsCore(collection)
|
|
collection.Add(New GridViewInfoRegistrator())
|
|
End Sub
|
|
End Class
|
|
|
|
|