學(xué)習(xí)VB.NET時，你可能會遇到VB.NET動態(tài)控件數(shù)組問題，這里將介紹VB.NET動態(tài)控件數(shù)組問題的解決方法，在這里拿出來和大家分享一下。這個動態(tài)控件數(shù)組在VB里面easy到***，可是在VB.NET里面卻有點(diǎn)讓人摸不著頭腦。

目前創(chuàng)新互聯(lián)公司已為數(shù)千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬空間、網(wǎng)站改版維護(hù)、企業(yè)網(wǎng)站設(shè)計、武川網(wǎng)站維護(hù)等服務(wù)，公司將堅持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

其實(shí)也很簡單，因?yàn)閂B.NET和VB不同拉，來看看VB.NET的動態(tài)控件數(shù)組如何實(shí)現(xiàn)。

1、在form的頭部定義一個公共的ArrayList類型的變量  

 
 
 

  
  
  
Dim m_items As New ArrayList 
 
 
 

2、在程序中動態(tài)生成控件

 
 
 

  
  
  
while (a)  

  
  
  
dim lblControl as Label= new Label  
  
  
  
lblControl .Text="你好" 
  
  
  
lblControl .dock=......top  
  
  
  
lblControl .autosize=false.  
  
  
  
....  
  
  
  
me.controls.add(lblControl )  
  
  
  
'把動態(tài)產(chǎn)生的控件放到對應(yīng)的區(qū)域  
  
  
  
'下面這個地方注意拉，  
  
  
  
m_items.Add(lblControl )  
  
  
  
'把這個label放到前面***步定義的ArrayList中去  
  
  
  
AddHandler label.Click, AddressOf LblControlArrayClick   
  
  
  
'給這組動態(tài)控件定義click事件的觸發(fā)函數(shù)LblControlArrayClick 。  
  
  
  
end while 
 
 
 

3、定義LblControlArrayClick 的click事件的觸發(fā)函數(shù),這個是和VB不同的地方的關(guān)鍵所在拉。

 
 
 

  
  
  
'控件數(shù)組事件  
  
  
  
Private Sub LblControlArrayClick (ByVal sender As Object, ByVal e As EventArgs)  
  
  
  
Dim lblText As String  
  
  
  
lblText = CType(sender, Label).Text   
  
  
  
'這里CType就是將觸發(fā)事件的對象還原為Label對象，  
  
  
  
'有點(diǎn)像java里面的集合阿，放進(jìn)去后再取出來的時候，要造型一下。  
  
  
  
msgbox ("所電擊的動態(tài)控件的文字是：" & lblText)  
  
  
  
end sub