From be4065208cbb5e34f9b28f89bb9ccd0c2116a7e6 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 6 Apr 2021 13:20:03 +0200 Subject: [PATCH] TestGUI: Update Lookup GUI --- GUIs.Test.TestGUI/frmLookup.vb | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/GUIs.Test.TestGUI/frmLookup.vb b/GUIs.Test.TestGUI/frmLookup.vb index 5e583021..bca26cb3 100644 --- a/GUIs.Test.TestGUI/frmLookup.vb +++ b/GUIs.Test.TestGUI/frmLookup.vb @@ -15,8 +15,12 @@ Public Class frmLookup .Location = New Point(10, 60), .Size = New Drawing.Size(100, 27) } + Dim LookupControl33 As New LookupControl3 With { + .Location = New Point(10, 110), + .Size = New Drawing.Size(100, 27) + } - Controls.AddRange({LookupControl31, LookupControl32}) + Controls.AddRange({LookupControl31, LookupControl32, LookupControl33}) LookupControl31.Properties.DataSource = oTable @@ -24,6 +28,9 @@ Public Class frmLookup LookupControl32.Properties.DisplayMember = "Col1" LookupControl32.Properties.ValueMember = "Col1" LookupControl32.Properties.DataSource = oTable + + LookupControl33.Properties.AllowAddNewValues = True + LookupControl33.Properties.MultiSelect = True End Sub Private Function GetDatatable(Limit As Integer) As DataTable