140 lines
4.3 KiB
VB.net
140 lines
4.3 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
|
|
Imports DevExpress.XtraEditors.Controls
|
|
|
|
|
|
|
|
<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
|
|
|
|
Public Property MultiSelect As Boolean
|
|
Public Property AllowAddNewValues As Boolean
|
|
Public Property PreventDuplicates As Boolean
|
|
Public Property DataSource As DataTable
|
|
Public Property SelectedValues As List(Of String)
|
|
|
|
Private Const TAG_BUTTON_LOOKUP_FORM = "openLookupForm"
|
|
Private Const TEXT_NO_RECORDS = "Keine Datensätze ausgewählt"
|
|
Private Const TEXT_N_RECORDS = "{0} Datensätze ausgewählt"
|
|
|
|
Shared Sub New()
|
|
RepositoryItemLookupControl2.RegisterLookupControl2()
|
|
End Sub
|
|
|
|
Public Sub New()
|
|
Properties.Buttons.Add(New EditorButton() With {
|
|
.Kind = ButtonPredefines.Ellipsis,
|
|
.Tag = TAG_BUTTON_LOOKUP_FORM
|
|
})
|
|
|
|
AddHandler ButtonClick, AddressOf HandleButtonClick
|
|
AddHandler EditValueChanging, AddressOf HandleEditValueChanging
|
|
End Sub
|
|
|
|
Private Sub HandleEditValueChanging(sender As Object, e As ChangingEventArgs)
|
|
e.Cancel = True
|
|
End Sub
|
|
|
|
Private Sub HandleButtonClick(sender As Object, e As ButtonPressedEventArgs)
|
|
If e.Button.Tag <> TAG_BUTTON_LOOKUP_FORM Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim oForm As frmLookupGrid = GetLookupForm()
|
|
Dim oResult = oForm.ShowDialog()
|
|
|
|
If oResult = Windows.Forms.DialogResult.OK Then
|
|
Dim oValues = oForm.SelectedValues
|
|
|
|
UpdateSelectedValues(oValues)
|
|
|
|
SelectedValues = oValues
|
|
End If
|
|
|
|
oForm.Dispose()
|
|
End Sub
|
|
|
|
Private Sub UpdateSelectedValues(Values As List(Of String))
|
|
If MultiSelect = True Then
|
|
Properties.DataSource = Values
|
|
Properties.NullText = IIf(Values.Count = 0, TEXT_NO_RECORDS, String.Format(TEXT_N_RECORDS, Values.Count))
|
|
Else
|
|
Text = Values.FirstOrDefault()
|
|
End If
|
|
End Sub
|
|
|
|
Private Function GetLookupForm() As frmLookupGrid
|
|
Dim oForm As New frmLookupGrid() With {
|
|
.MultiSelect = MultiSelect,
|
|
.AddNewValues = AllowAddNewValues,
|
|
.PreventDuplicates = PreventDuplicates,
|
|
.DataSource = DataSource,
|
|
.SelectedValues = SelectedValues,
|
|
.StartPosition = Windows.Forms.FormStartPosition.Manual,
|
|
.Location = PointToScreen(New Point(Width, 0))
|
|
}
|
|
|
|
Return oForm
|
|
End Function
|
|
|
|
<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
|