AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

TestGUI: Improve LookupForm

Browse Source
This commit is contained in:
Jonathan Jenne
2021-03-29 11:27:32 +02:00
parent d17504af4d
commit 5c6d7296e1
3 changed files with 21 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -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