30 lines
1.1 KiB
VB.net
30 lines
1.1 KiB
VB.net
|
|
Imports System.ComponentModel
|
|
|
|
Public Class Grid
|
|
<Category("Einstellungen"), Description("Gibt an, ob mehrere Werte auswählbar sind"), DefaultValue(False)>
|
|
Public Property MultiSelect As Boolean
|
|
<Category("Einstellungen"), Description("Gibt an, ob neue Werte hinzugefügt werden können"), DefaultValue(False)>
|
|
Public Property AllowAddNewValues As Boolean
|
|
<Category("Einstellungen"), Description("Gibt an, ob das Hinzufügen von identischen Werten erlaubt ist"), DefaultValue(False)>
|
|
Public Property PreventDuplicates As Boolean
|
|
<Browsable(False)>
|
|
Public Property DataSource As DataTable
|
|
<Browsable(False)>
|
|
Public Property SelectedValues As New List(Of Object)
|
|
|
|
Private Sub btnOpenForm_Click(sender As Object, e As EventArgs) Handles btnOpenForm.Click
|
|
Dim frm As New frmLookupGrid() With {
|
|
.MultiSelect = MultiSelect,
|
|
.AddNewValues = AllowAddNewValues,
|
|
.PreventDuplicates = PreventDuplicates,
|
|
.DataSource = DataSource,
|
|
.SelectedValues = SelectedValues
|
|
}
|
|
|
|
frm.ShowDialog()
|
|
End Sub
|
|
End Class
|
|
|
|
|