在一些場合中,須要使用組合式下拉列表控件,好比帶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