VB.NET动态控件数组三部曲

学习VB.NET时，你可能会遇到VB.NET动态控件数组问题，这里将介绍VB.NET动态控件数组问题的解决方法，在这里拿出来和大家分享一下。这个动态控件数组在VB里面easy到***，可是在VB.NET里面却有点让人摸不着头脑。

目前创新互联公司已为数千家的企业提供了网站建设、域名、虚拟空间、网站改版维护、企业网站设计、武川网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

其实也很简单，因为VB.NET和VB不同拉，来看看VB.NET的动态控件数组如何实现。

1、在form的头部定义一个公共的ArrayList类型的变量  

 
 
 

  
  
  
Dim m_items As New ArrayList 
 
 
 

2、在程序中动态生成控件

 
 
 

  
  
  
while (a)  

  
  
  
dim lblControl as Label= new Label  
  
  
  
lblControl .Text="你好" 
  
  
  
lblControl .dock=......top  
  
  
  
lblControl .autosize=false.  
  
  
  
....  
  
  
  
me.controls.add(lblControl )  
  
  
  
'把动态产生的控件放到对应的区域  
  
  
  
'下面这个地方注意拉，  
  
  
  
m_items.Add(lblControl )  
  
  
  
'把这个label放到前面***步定义的ArrayList中去  
  
  
  
AddHandler label.Click, AddressOf LblControlArrayClick   
  
  
  
'给这组动态控件定义click事件的触发函数LblControlArrayClick 。  
  
  
  
end while 
 
 
 

3、定义LblControlArrayClick 的click事件的触发函数,这个是和VB不同的地方的关键所在拉。

 
 
 

  
  
  
'控件数组事件  
  
  
  
Private Sub LblControlArrayClick (ByVal sender As Object, ByVal e As EventArgs)  
  
  
  
Dim lblText As String  
  
  
  
lblText = CType(sender, Label).Text   
  
  
  
'这里CType就是将触发事件的对象还原为Label对象，  
  
  
  
'有点像java里面的集合阿，放进去后再取出来的时候，要造型一下。  
  
  
  
msgbox ("所电击的动态控件的文字是：" & lblText)  
  
  
  
end sub