diff --git a/GUIs.Test.TestGUI/frmLookup.Designer.vb b/GUIs.Test.TestGUI/frmLookup.Designer.vb index 253ac206..23450d23 100644 --- a/GUIs.Test.TestGUI/frmLookup.Designer.vb +++ b/GUIs.Test.TestGUI/frmLookup.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmLookup Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,69 +20,18 @@ Partial Class frmLookup 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() - Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() - Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() - Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() - Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() - Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLookup)) - Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit() - Me.LookupControl31 = New DigitalData.Controls.LookupGrid.LookupControl3() - Me.LookupControl31View = New DevExpress.XtraGrid.Views.Grid.GridView() - CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LookupControl31.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LookupControl31View, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'LookUpEdit1 - ' - Me.LookUpEdit1.Location = New System.Drawing.Point(620, 40) - Me.LookUpEdit1.Name = "LookUpEdit1" - Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.LookUpEdit1.Size = New System.Drawing.Size(100, 20) - Me.LookUpEdit1.TabIndex = 0 - ' - 'LookupControl31 - ' - Me.LookupControl31.Location = New System.Drawing.Point(412, 40) - Me.LookupControl31.Name = "LookupControl31" - Me.LookupControl31.Properties.AllowAddNewValues = False - Me.LookupControl31.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Search, "", 25, True, True, False, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", "openLookupForm", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) - Me.LookupControl31.Properties.Datasource = Nothing - Me.LookupControl31.Properties.MultiSelect = False - Me.LookupControl31.Properties.PopupView = Me.LookupControl31View - Me.LookupControl31.Properties.PreventDuplicates = False - Me.LookupControl31.Properties.ReadOnly = False - Me.LookupControl31.Properties.SelectedValues = CType(resources.GetObject("LookupControl31.Properties.SelectedValues"), System.Collections.Generic.List(Of String)) - Me.LookupControl31.Size = New System.Drawing.Size(161, 20) - Me.LookupControl31.TabIndex = 1 - ' - 'LookupControl31View - ' - Me.LookupControl31View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus - Me.LookupControl31View.Name = "LookupControl31View" - Me.LookupControl31View.OptionsSelection.EnableAppearanceFocusedCell = False - Me.LookupControl31View.OptionsView.ShowGroupPanel = False - ' 'frmLookup ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(800, 450) - Me.Controls.Add(Me.LookupControl31) - Me.Controls.Add(Me.LookUpEdit1) Me.Name = "frmLookup" Me.Text = "frmLookup" - CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LookupControl31.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LookupControl31View, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub - - Friend WithEvents LookUpEdit1 As DevExpress.XtraEditors.LookUpEdit - Friend WithEvents LookupControl31 As DigitalData.Controls.LookupGrid.LookupControl3 - Friend WithEvents LookupControl31View As DevExpress.XtraGrid.Views.Grid.GridView End Class diff --git a/GUIs.Test.TestGUI/frmLookup.resx b/GUIs.Test.TestGUI/frmLookup.resx index 4fb23b11..1af7de15 100644 --- a/GUIs.Test.TestGUI/frmLookup.resx +++ b/GUIs.Test.TestGUI/frmLookup.resx @@ -117,13 +117,4 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u - ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u - PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB - AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 - ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= - - \ No newline at end of file diff --git a/GUIs.Test.TestGUI/frmLookup.vb b/GUIs.Test.TestGUI/frmLookup.vb index 91e1e62d..b9465870 100644 --- a/GUIs.Test.TestGUI/frmLookup.vb +++ b/GUIs.Test.TestGUI/frmLookup.vb @@ -1,13 +1,27 @@ -Public Class frmLookup +Imports DigitalData.Controls.LookupGrid - Private _Datasource As List(Of String) = New List(Of String) +Public Class frmLookup + + Private _Datasource As List(Of String) = New List(Of String) From {"Foo", "Bar", "Baz", "Bart", "Maggie", "Homer"} Private Sub frmLookup_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim oTable = GetDatatable(10) + Dim LookupControl31 As New LookupControl3 With { + .Location = New Point(10, 10), + .Size = New Drawing.Size(100, 27) + } + Dim LookupControl32 As New LookupControl3 With { + .Location = New Point(10, 60), + .Size = New Drawing.Size(100, 27) + } - LookUpEdit1.Properties.DataSource = oTable - LookupControl31.Properties.Datasource = oTable + Controls.AddRange({LookupControl31, LookupControl32}) + + LookupControl31.Properties.DataSource = oTable + + LookupControl32.Properties.MultiSelect = True + LookupControl32.Properties.DataSource = oTable End Sub Private Function GetDatatable(Limit As Integer) As DataTable