DS控件庫 DS開放式下拉列表

在一些場合中,須要使用組合式下拉列表控件,好比帶treeivew的combobox,可是代碼較多,使用不便。爲此,本人制做了一個超級易用的DS開放式下拉列表。安全

如下演示使用過程。spa

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

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

運行時效果orm

相關文章
相關標籤/搜索