DS控件库 DS开放式下拉列表

在一些场合中，需要使用组合式下拉列表控件，比如带treeivew的combobox，但是代码较多，使用不便。为此，本人制作了一个超级易用的DS开放式下拉列表。

以下演示使用过程。

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DS开放式下拉列表1.内置控件 = New Form2
        DS开放式下拉列表2.内置控件 = CheckedListBox1
        DS开放式下拉列表3.内置控件 = TreeView1
    End Sub

    Private Sub DS开放式下拉列表2_关闭下拉控件(sender As DS开放式下拉列表, 内置控件 As Control) Handles DS开放式下拉列表2.关闭下拉控件
        Dim SLst As New List(Of String)
        Dim CB As CheckedListBox = 内置控件 '或=CheckedListBox1
        For I As Integer = 0 To CB.CheckedItems.Count - 1
            SLst.Add(CB.CheckedItems(I))
        Next
        sender.Text = Join(SLst.ToArray, ",")
    End Sub

　　注意，为安全起见（主要是VS窗体设计器不兼容），使得“内置控件”属性不可以在设计时赋值，需要在运行时赋值。

此处为了方便演示，直接使用窗体上已经放置的控件。

运行时效果