AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

TestGUI: Update Lookup GUI

Browse Source
This commit is contained in:
Jonathan Jenne 2021-04-06 13:20:03 +02:00
parent 41c3ded13c
commit be4065208c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
GUIs.Test.TestGUI/frmLookup.vb
View File

@ -15,8 +15,12 @@ Public Class frmLookup
.Location = New Point(10, 60), .Location = New Point(10, 60),
.Size = New Drawing.Size(100, 27) .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 LookupControl31.Properties.DataSource = oTable
@ -24,6 +28,9 @@ Public Class frmLookup
LookupControl32.Properties.DisplayMember = "Col1" LookupControl32.Properties.DisplayMember = "Col1"
LookupControl32.Properties.ValueMember = "Col1" LookupControl32.Properties.ValueMember = "Col1"
LookupControl32.Properties.DataSource = oTable LookupControl32.Properties.DataSource = oTable
LookupControl33.Properties.AllowAddNewValues = True
LookupControl33.Properties.MultiSelect = True
End Sub End Sub
Private Function GetDatatable(Limit As Integer) As DataTable Private Function GetDatatable(Limit As Integer) As DataTable