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窗体设计器不兼容），使得“内置控件”属性不可以在设计时赋值，需要在运行时赋值。

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

运行时效果