詳細(xì)介紹VB.NET動(dòng)態(tài)控件
VB.NET還是比較常用的，于是我研究了一下VB.NET動(dòng)態(tài)控件，在這里拿出來和大家分享一下，希望對(duì)大家有用。
本文的討論也將著眼于這兩種情況。首先是當(dāng)程序員需要?jiǎng)討B(tài)建立一個(gè)控件并將代碼附著于控件之上時(shí)。例如，你或許想創(chuàng)建一個(gè)鏈接列表，但是不知道需要?jiǎng)?chuàng)建鏈接的數(shù)量或是鏈接中會(huì)出現(xiàn)什么樣的數(shù)據(jù)。第二種是當(dāng)程序員需要定義代碼以反映出特殊需求的時(shí)候。例如，你或許要執(zhí)行能反映用戶系統(tǒng)配置的代碼。
類似上述的情況當(dāng)然不會(huì)每天都上演。事實(shí)上，它們只在非常情況下才出現(xiàn)。然而，作為程序員，仍然要意識(shí)到.NET為解決動(dòng)態(tài)情形提供了方案。有了正確的技巧，你就可以寫出能靈活處理動(dòng)態(tài)情況的應(yīng)用程序了。
使用VB.NET動(dòng)態(tài)控件
許多程序員總會(huì)遇到需要?jiǎng)?chuàng)建VB.NET動(dòng)態(tài)控件的時(shí)候。我們所展示的例子中程序員向FlowLayoutPanel中添加了LinkLabels.或許你可以個(gè)這樣的設(shè)置來記錄和保存常用的URL，文件，網(wǎng)絡(luò)地址或是其他資源所在位置的數(shù)值。這一示例沒有真正保存鏈接，但是你可以使用XML序列化功能來實(shí)現(xiàn)保存。
每次當(dāng)用戶點(diǎn)擊Test按鈕時(shí)，示例代碼就會(huì)動(dòng)態(tài)創(chuàng)建一個(gè)新的LinkLabel控件。真正的演示代碼并不復(fù)雜。以下就展示了創(chuàng)建這類控件以及將控件放入FlowLayoutPanel，lstLabel中通常所需要做的一切。
向FlowLayoutPanel中添加新的鏈接
- Private Sub btnTest_Click()
- Handles btnTest.Click
- ' Create a link.
- Dim NewLink As LinkLabel = New LinkLabel()
- ' Add some properties to it.
- NewLink.Text = DateTime.Now
- .ToLongTimeString()
- ' Set the click event handler.
- AddHandler NewLink.Click,
- AddressOf NewLink_Click
- ' Place the button on the form.
- lstLinks.Controls.Add(NewLink)
- End Sub
如你所料，該代碼開始的時(shí)候創(chuàng)建了一個(gè)新的LinkLabel并為其賦予了一些值。這一示例使用的是當(dāng)前時(shí)間。你的代碼或許能夠?qū)δ骋徽鎸?shí)資源進(jìn)行訪問。
請(qǐng)注意該代碼也向鏈接的Click事件中指定了一個(gè)處理程序。你必須使用示例中的AddHandler技巧，因?yàn)槠胀ǖ腍andles關(guān)鍵詞路徑不起作用。一方面，設(shè)計(jì)應(yīng)用程序的時(shí)候你并不清楚控件的名稱。即便你為控件指定了一個(gè)名稱，你也不知道用戶要?jiǎng)?chuàng)建的控件數(shù)量，所以我們沒有辦法清楚會(huì)有多少處理程序會(huì)被創(chuàng)建。處理程序的代碼與控件代碼類似，因此沒有必要?jiǎng)?chuàng)建多個(gè)處理程序。用于這個(gè)示例的處理代碼見例二。例二：處理VB.NET動(dòng)態(tài)控件點(diǎn)擊事件
- Private Sub NewLink_Click( _ ByVal sender As System.Object, ByVal e As System.EventArgs)
- ' Verify that you actually have a LinkLabel
- If Not sender.GetType() Is GetType(LinkLabel) Then
- MessageBox.Show("Wrong control type provided!")
- Return
- End If
- ' Convert the input sender to a Button.
- Dim ThisLink As LinkLabel = sender
- ' Show that we have the correct button.
- MessageBox.Show("You created this link at: " + ThisLink.Text)
- End Sub
你可能已經(jīng)注意到例一中的事件處理器使用的是寬松代表——它沒有將ByVal發(fā)送器作為System.Object，也沒有將ByVal e作為System.EventArgs作為參數(shù)因?yàn)樗恍枰@二者。然而，當(dāng)你創(chuàng)建一個(gè)事件處理器來創(chuàng)建VB.NET動(dòng)態(tài)控件時(shí)，通常你需要將ByVal發(fā)送器作為 System.Object參數(shù)，這意味著將這兩者都包含其中。
有些程序員在創(chuàng)建事件處理器的時(shí)候會(huì)出現(xiàn)一個(gè)錯(cuò)誤，即沒有檢查傳入控件的類型。發(fā)送器對(duì)象可能包含多選擇，而如果未對(duì)事件處理器進(jìn)行事件處理類型的設(shè)置，那么你就會(huì)面臨更多的選擇。我們的示例代碼一開始就檢查了傳入控件對(duì)象的類型。這樣以來發(fā)送器就不會(huì)像下面所展示的代碼一樣：
- Private Sub btnTest2_Click() Handles btnTest2.Click
- ' Create a link.
- Dim NewButton As Button = New Button()
- ' Add some properties to it.
- NewButton.Text = DateTime.Now.ToLongTimeString()
- ' Set the click event handler.
- AddHandler NewButton.Click, AddressOf NewLink_Click
- ' Place the button on the form.
- lstLinks.Controls.Add(NewButton)
- End Sub
此代碼在FlowLayoutPanel中創(chuàng)建了一個(gè)按鈕，大多數(shù)情況下這都能正常運(yùn)行，除非事件處理器不按照按鈕所示的進(jìn)行操作。如果你打算服務(wù)多個(gè)控件類型，那么每個(gè)控件類型都需要一個(gè)獨(dú)特的處理。你可以使用多事件處理器或者為某些類型提供選擇標(biāo)準(zhǔn)。
NewLink_Click（）事件處理器照常將傳入發(fā)送器轉(zhuǎn)換成指定類型，在這個(gè)示例中則是LinkLabel.該代碼可以訪問LinkLabel屬性并能用其他方式進(jìn)行互動(dòng)。在我們的示例中，只顯示了一個(gè)能在創(chuàng)建鏈接的時(shí)候告知我們的對(duì)話框。
【編輯推薦】
