当前页面位置: » 丰搜网 » 文档中心 » 详细内容
在vb.net中创建使用控件数组
在vb.net中创建使用控件数组
首先创建一个button类型控件数组：
1、创建“windows应用程序”类型的工程，添加名为buttonarray的类，并使该类继承 system.collection.collectionbase 类。system.collections.collectionbase类是.net框架类库中为集合操作提供抽象的基类，通过对它的继承可以为我们的buttonarray类具备集合增加、删除、索引的功能。
2、为buttonarray类添加parentform属性，即控件组所在窗体，创建初始化函数（构造函数）；
3、为控件数组类增加additem方法，该方法在控件数组类中添加成员；
4、为控件数组类增加removeitem方法，该方法在控件数组中删除一个成员。
示例代码：
public class buttonarray
inherits system.collections.collectionbase
private readonly parentform as system.windows.forms.form
public sub new(byval pform as system.windows.forms.form)
parentform = pform
end sub
default public readonly property item(byval index as integer) as system.windows.forms.button
get
return me.list.item(index) ' buttonarray的list 属性从collectionbase 继承
end get
end property
public sub additem()
dim btnitem as new system.windows.forms.button
me.list.add(btnitem)
parentform.controls.add(btnitem) '向窗体中增加控件
btnitem.tag = me.count 'count属性从collectionbase 继承
btnitem.top = me.count * 30
btnitem.left = 200
btnitem.text = "button" & me.count.tostring
addhandler btnitem.click, addressof btnitem_click '绑定事件处理程序
end sub
public sub additem(byval btnitem as system.windows.forms.button)
me.list.add(btnitem)
addhandler btnitem.click, addressof btnitem_click '绑定事件处理程序
end sub
public sub removeitem()
if me.count > 0 then
parentform.controls.remove(me(me.count - 1))
me.list.removeat(me.count - 1)
end if
end sub
public sub btnitem_click(byval sender as object, byval e as system.eventargs)
'在这里编写控件数组对点击事件的响应
'例如：
msgbox("点击：" & sender.gettype().tostring & ctype(ctype(sender, button).tag, string))
end sub
end class
使用创建的控件数组
在form1中放置两个按钮button1、button2，分别测试控件数组的增添、删除。
双击form添加代码：
public class form1
inherits system.windows.forms.form
……windows窗体设计器生成的代码……
dim buttons as new buttonarray(me)
private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
buttons.additem()
end sub
private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click
buttons.removeitem()
end sub
end class
其他的控件数组也可以用类似的方式来实现
例如 label控件数组
labelarray.vb代码如下：
public class labelarray
inherits system.collections.collectionbase
private readonly parentform as system.windows.forms.form
public sub new(byval pform as system.windows.forms.form)
parentform = pform
end sub
default public readonly property item(byval index as integer) as system.windows.forms.label
get
return me.list.item(index) ' buttonarray的list 属性从collectionbase 继承
end get
end property
public sub additem(byval btnitem as system.windows.forms.label)
me.list.add(btnitem)
addhandler btnitem.click, addressof btnitem_click '绑定事件处理程序
end sub
public sub btnitem_click(byval sender as object, byval e as system.eventargs)
'在这里编写控件数组对点击事件的响应
'例如：
msgbox("点击：" & sender.gettype().tostring & ctype(ctype(sender, label).tag, string))
end sub
end class
使用创建的label控件
在form1中放置两个按钮label1、label2
双击form添加代码：
public class form1
inherits system.windows.forms.form
#region " windows 窗体设计器生成的代码 "
public sub new()
mybase.new()
'该调用是 windows 窗体设计器所必需的。
initializecomponent()
'在 initializecomponent() 调用之后添加任何初始化
'用来绑定label
bindarray()
end sub
……windows窗体设计器生成的其他代码……
#end region
dim labels as new labelarray(me)
public sub bindarray()
me.label1.tag = "1111"
me.label2.tag = "222"
labels.additem(me.label1)
labels.additem(me.label2)
end sub
end class
然后可以测试点击两个label可以显示相应的tag的信息。
