VB.NET編程語(yǔ)言幫助廣大開(kāi)發(fā)人員輕松的實(shí)現(xiàn)了許多功能需求。比如平臺(tái)的提供，對(duì)移動(dòng)設(shè)備的操作等等。我們?cè)趯?shí)際應(yīng)用中，其中有些方法還是相對(duì)于恰語(yǔ)言較為麻煩的。比如數(shù)組的操作等等。#t#

VB.NET動(dòng)態(tài)控件數(shù)組在VB里面easy到極致，可是在VB.NET里面卻有點(diǎn)讓人摸不著頭腦。

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

1、在form的頭部定義一個(gè)公共的ArrayList類(lèi)型的變量

Dim m_items As New ArrayList

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

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

3、定義LblControlArrayClick 的click事件的觸發(fā)函數(shù),這個(gè)是和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ā)事件的對(duì)象還
原為L(zhǎng)abel對(duì)象，  
'有點(diǎn)像java里面的集合阿，放進(jìn)去后再
取出來(lái)的時(shí)候，要造型一下。  
msgbox ("所電擊的動(dòng)態(tài)控件的文字是：" & lblText)  
end sub 

好啦，VB.NET動(dòng)態(tài)控件數(shù)組的內(nèi)容就是這么簡(jiǎn)單。

如果你要為VB.NET動(dòng)態(tài)控件數(shù)組定義其他的觸發(fā)事件，只要修改對(duì)應(yīng)的觸發(fā)就可以了。