DS控件库 DS开放式下拉列表-优快云博客

本文介绍了一种名为DS开放式下拉列表的控件，该控件旨在简化带treeview等复杂控件的combobox使用过程。通过实例演示了如何在代码中初始化并使用这个控件，以及如何处理其返回的数据。

在一些场合中，需要使用组合式下拉列表控件，比如带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窗体设计器不兼容），使得“内置控件”属性不可以在设计时赋值，需要在运行时赋值。

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