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