如果毛岸英还活着,siro-1300,liguori assunta
在一些场合中,需要使用组合式下拉列表控件,比如带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窗体设计器不兼容),使得“内置控件”属性不可以在设计时赋值,需要在运行时赋值。
此处为了方便演示,直接使用窗体上已经放置的控件。
运行时效果
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复
asp.net搭建博客,使用BlogEngine.NET+MySql搭建博客
网友评论