75 lines
2.1 KiB
VB.net
75 lines
2.1 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.Drawing
|
|
Imports DevExpress.XtraEditors
|
|
Imports DevExpress.XtraEditors.Drawing
|
|
Imports DevExpress.XtraEditors.Registrator
|
|
Imports DevExpress.XtraEditors.Repository
|
|
Imports DevExpress.XtraEditors.ViewInfo
|
|
Imports DevExpress.XtraEditors.Popup
|
|
Imports DevExpress.Accessibility
|
|
|
|
<UserRepositoryItem("RegisterLookupControl2")>
|
|
Public Class RepositoryItemLookupControl2
|
|
Inherits RepositoryItemGridLookUpEdit
|
|
|
|
Shared Sub New()
|
|
RegisterLookupControl2()
|
|
End Sub
|
|
|
|
Public Const CustomEditName As String = "LookupControl2"
|
|
|
|
Public Sub New()
|
|
|
|
End Sub
|
|
|
|
Public Overrides ReadOnly Property EditorTypeName As String
|
|
Get
|
|
Return CustomEditName
|
|
End Get
|
|
End Property
|
|
|
|
Public Shared Sub RegisterLookupControl2()
|
|
Dim img As Image = Nothing
|
|
EditorRegistrationInfo.Default.Editors.Add(New EditorClassInfo(CustomEditName, GetType(LookupControl2), GetType(RepositoryItemLookupControl2), GetType(GridLookUpEditBaseViewInfo), New ButtonEditPainter(), True, img, GetType(ButtonEditAccessible)))
|
|
End Sub
|
|
|
|
Public Overrides Sub Assign(item As RepositoryItem)
|
|
BeginUpdate()
|
|
Try
|
|
MyBase.Assign(item)
|
|
Dim source As RepositoryItemLookupControl2 = TryCast(item, RepositoryItemLookupControl2)
|
|
If source Is Nothing Then
|
|
Return
|
|
End If
|
|
Finally
|
|
EndUpdate()
|
|
End Try
|
|
End Sub
|
|
End Class
|
|
|
|
<ToolboxItem(True)>
|
|
Public Class LookupControl2
|
|
Inherits GridLookUpEdit
|
|
|
|
Shared Sub New()
|
|
RepositoryItemLookupControl2.RegisterLookupControl2()
|
|
End Sub
|
|
|
|
Public Sub New()
|
|
|
|
End Sub
|
|
|
|
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
|
|
Public Shadows ReadOnly Property Properties As RepositoryItemLookupControl2
|
|
Get
|
|
Return TryCast(MyBase.Properties, RepositoryItemLookupControl2)
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides ReadOnly Property EditorTypeName As String
|
|
Get
|
|
Return RepositoryItemLookupControl2.CustomEditName
|
|
End Get
|
|
End Property
|
|
End Class
|