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窗體設計器不相容），使得“內置控制項”屬性不可以在設計時賦值，需要在運行時賦值。

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

運行時效果