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窗體設計器不兼容），使得「內置控件」屬性不能夠在設計時賦值，須要在運行時賦值。

此處爲了方便演示，直接使用窗體上已經放置的控件。

運行時效果