DYLIKE

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

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

运行时效果

posted on 2019-04-15 01:13 『DYLIKE』 阅读(...) 评论(...) 编辑 收藏

导航

Live2D