VB.NET中的動(dòng)態(tài)代碼生成技巧
本文的討論也將著眼于這兩種情況。首先是當(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)配置的代碼。
類(lèi)似上述的情況當(dāng)然不會(huì)每天都上演。事實(shí)上，它們只在非常情況下才出現(xiàn)。然而，作為程序員，仍然要意識(shí)到.NET為解決動(dòng)態(tài)情形提供了方案。有了正確的技巧，你就可以寫(xiě)出能靈活處理動(dòng)態(tài)情況的應(yīng)用程序了。
使用動(dòng)態(tài)控件
許多程序員總會(huì)遇到需要?jiǎng)討B(tài)創(chuàng)建控件的時(shí)候。我們所展示的例子中程序員向FlowLayoutPanel中添加了LinkLabels?；蛟S你可以個(gè)這樣的設(shè)置來(lái)記錄和保存常用的URL，文件，網(wǎng)絡(luò)地址或是其他資源所在位置的數(shù)值。這一示例沒(méi)有真正保存鏈接，但是你可以使用XML序列化功能來(lái)實(shí)現(xiàn)保存。
每次當(dāng)用戶點(diǎn)擊Test按鈕時(shí)，示例代碼就會(huì)動(dòng)態(tài)創(chuàng)建一個(gè)新的LinkLabel控件。真正的演示代碼并不復(fù)雜。例一就展示了創(chuàng)建這類(lèi)控件以及將控件放入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
如你所料，該代碼開(kāi)始的時(shí)候創(chuàng)建了一個(gè)新的LinkLabel并為其賦予了一些值。這一示例使用的是當(dāng)前時(shí)間。你的代碼或許能夠?qū)δ骋徽鎸?shí)資源進(jìn)行訪問(wèn)。
請(qǐng)注意該代碼也向鏈接的Click事件中指定了一個(gè)處理程序。你必須使用示例中的AddHandler技巧，因?yàn)槠胀ǖ腍andles關(guān)鍵詞路徑不起作用。一方面，設(shè)計(jì)應(yīng)用程序的時(shí)候你并不清楚控件的名稱。即便你為控件指定了一個(gè)名稱，你也不知道用戶要?jiǎng)?chuàng)建的控件數(shù)量，所以我們沒(méi)有辦法清楚會(huì)有多少處理程序會(huì)被創(chuàng)建。處理程序的代碼與控件代碼類(lèi)似，因此沒(méi)有必要?jiǎng)?chuàng)建多個(gè)處理程序。用于這個(gè)示例的處理代碼見(jiàn)例二。例二：處理動(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)注意到例一中的事件處理器使用的是寬松代表——它沒(méi)有將ByVal發(fā)送器作為System.Object，也沒(méi)有將ByVal e作為System.EventArgs作為參數(shù)因?yàn)樗恍枰@二者。然而，當(dāng)你創(chuàng)建一個(gè)事件處理器來(lái)動(dòng)態(tài)創(chuàng)建控件時(shí)，通常你需要將ByVal發(fā)送器作為System.Object參數(shù)，這意味著將這兩者都包含其中。
有些程序員在創(chuàng)建事件處理器的時(shí)候會(huì)出現(xiàn)一個(gè)錯(cuò)誤，即沒(méi)有檢查傳入控件的類(lèi)型。發(fā)送器對(duì)象可能包含多選擇，而如果未對(duì)事件處理器進(jìn)行事件處理類(lèi)型的設(shè)置，那么你就會(huì)面臨更多的選擇。我們的示例代碼一開(kāi)始就檢查了傳入控件對(duì)象的類(lèi)型。這樣以來(lái)發(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è)控件類(lèi)型，那么每個(gè)控件類(lèi)型都需要一個(gè)獨(dú)特的處理。你可以使用多事件處理器或者為某些類(lèi)型提供選擇標(biāo)準(zhǔn)。
NewLink_Click()事件處理器照常將傳入發(fā)送器轉(zhuǎn)換成指定類(lèi)型，在這個(gè)示例中則是LinkLabel。該代碼可以訪問(wèn)LinkLabel屬性并能用其他方式進(jìn)行互動(dòng)。在我們的示例中，只顯示了一個(gè)能在創(chuàng)建鏈接的時(shí)候告知我們的對(duì)話框。
使用動(dòng)態(tài)代碼
在運(yùn)行時(shí)創(chuàng)建一個(gè)控件是在無(wú)法確定應(yīng)用程序功能的時(shí)候采取的一種策略。但是動(dòng)態(tài)創(chuàng)建控件并不適用于所有的情況。有些時(shí)候你必須建立可執(zhí)行代碼，雖然你的應(yīng)用程序運(yùn)行的目的是補(bǔ)償不同極其之間的配置，不同用戶的需求，不同的環(huán)境需求或是其他要求。當(dāng)應(yīng)用程序所運(yùn)行的電腦不存在控件，那么通常是需要?jiǎng)?chuàng)建動(dòng)態(tài)代碼的。
幸運(yùn)的是，.NET為我們提供了一系列動(dòng)態(tài)代碼選項(xiàng)。例如，你可以創(chuàng)建一個(gè)可執(zhí)行的能獨(dú)立運(yùn)行的程序或是可以想運(yùn)行中的程序加載一個(gè)DLL然后再執(zhí)行。當(dāng)你需要演示一個(gè)外部任務(wù)的時(shí)候可以使用選擇可執(zhí)行，如運(yùn)行一種腳本——該DLL選項(xiàng)最適合擴(kuò)大現(xiàn)有的應(yīng)用程序功能。
你可以運(yùn)行來(lái)自文件或內(nèi)存的動(dòng)態(tài)代碼。當(dāng)你需要不止一次地運(yùn)行代碼時(shí)，可以使用文件。對(duì)代碼的檢查可以再次運(yùn)行外部文件而不需要對(duì)其進(jìn)行二次編譯。當(dāng)你需要多次演示任務(wù)的時(shí)候，如一個(gè)安裝請(qǐng)求，那可以使用內(nèi)存圖像。
當(dāng)然我們也可以更改源代碼。例如，你可以使用字符串來(lái)建立需要在應(yīng)用程序中直接使用的代碼。如果你需要代碼具有高度靈活性，且代碼本身不是很長(zhǎng)時(shí)，這一方法的優(yōu)勢(shì)就非常顯著。也可以從文件里建立代碼，就如同VS一樣。這一方法最適用于相對(duì)穩(wěn)定且不需要復(fù)雜編碼的需求。第三種選擇是使用Documentation Object Model來(lái)創(chuàng)建代碼并將其作為CodeDom樹(shù)型結(jié)構(gòu)的一個(gè)系列。該樹(shù)型結(jié)構(gòu)包括了CodeCormpileUnits。這就像是用DOM模式創(chuàng)建了一個(gè)XML文件。
使用動(dòng)態(tài)創(chuàng)建代碼的***方式是用示例來(lái)檢查一下。例三展示了一個(gè)基本“Hello World”示例。該示例用源代碼直接創(chuàng)建了代碼因此你可以看到整個(gè)運(yùn)行以及生成一個(gè)外部可執(zhí)行文件的過(guò)程。
例三：動(dòng)態(tài)編碼示例
- Private Sub btnTest3_Click() Handles btnTest3.Click
- ' Create a compiler.
- Dim Comp As VBCodeProvider = New VBCodeProvider()
- ' Define the parameters for the code you want to compile.
- Dim Parms As CompilerParameters = New CompilerParameters)
- ' We do want to create an executable, rather than a DLL.
- Parms.GenerateExecutable = True
- ' The compiler will create an output assembly called Output.
- Parms.OutputAssembly = "Output"
- ' The compiler won't treat warnings as errors.
- Parms.TreatWarningsAsErrors = False
- ' Add any assembly you want to reference.
- Parms.ReferencedAssemblies.Add("System.Windows.Forms.dll")
- ' Define the code you want to run.
- Dim SampleCode As StringBuilder = New StringBuilder()
- SampleCode.Append("Imports System.Windows.Forms" + vbCrLf)
- SampleCode.Append("Module TestAssembly" + vbCrLf)
- SampleCode.Append("Sub Main()" + vbCrLf)
- SampleCode.Append("MessageBox.Show(" + Chr(34) + _
- "Dynamically Created Code!" + _Chr(34) + ")" + vbCrLf)
- SampleCode.Append("End Sub" + vbCrLf)
- SampleCode.Append("End Module" + vbCrLf)
- ' Define the code to run.
- Dim Executable As CompilerResults = _
- Comp.CompileAssemblyFromSource(Parms, SampleCode.ToString())
- ' Display error messages if there are any.
- If Executable.Errors.HasErrors Then
- For Each Item As CompilerError In Executable.Errors
- MessageBox.Show(Item.ErrorText)
- Next
- Else
- ' If there aren't any error messages, start the
- ' executable.
- Process.Start("Output")
- End If
- End Sub
一開(kāi)始你創(chuàng)建了一個(gè)使用VBCodeProvider的編譯器Comp。舊一點(diǎn)的.NET版本使用的是不同的方法但是這里所講的是微軟推薦的一個(gè)新方法。
為了使用編譯器，你必須創(chuàng)建能描述應(yīng)用程序的參數(shù)。這些參數(shù)類(lèi)似于VS中你創(chuàng)建的參數(shù)，只是現(xiàn)在你可以對(duì)它們進(jìn)行定義。該代碼一開(kāi)始就將GenerateExecutable設(shè)置為T(mén)rue，這意味著你需要的是一個(gè)EXE文件而不是DLL。
Parms.OutputAssembly屬性包含了輸出文件的名稱。你只需要在想創(chuàng)建文件時(shí)提供這一信息即可，而不需要生成可執(zhí)行內(nèi)存了。如果你ixiang生成可執(zhí)行文件的內(nèi)存版本，可以將Parm.GenerateInMemory屬性設(shè)置為T(mén)rue。
使用Parm.TreatWarningsAsErrors屬性來(lái)確定如何處理警告信息。默認(rèn)的設(shè)置會(huì)使其為錯(cuò)誤，這意味著你的應(yīng)用程序可能無(wú)法對(duì)其進(jìn)行編譯。大多數(shù)程序員使用默認(rèn)設(shè)置，盡管他們開(kāi)發(fā)了程序，但是在開(kāi)發(fā)完成的程序中卻將其設(shè)置為False。
大多數(shù)應(yīng)用程序需要外部DLL以正常運(yùn)行。當(dāng)然，你不能創(chuàng)建任意的沒(méi)有引用外部DLL的Windows表單程序。通常，你要使用Reference文件夾來(lái)完成這一任務(wù)。不過(guò)，當(dāng)你動(dòng)態(tài)創(chuàng)建代碼的時(shí)候可以依賴于Parms.ReferencedAssemblies屬性。如下所示，只需添加你要的DLL即可。
現(xiàn)在，你已經(jīng)定義了項(xiàng)目，接下來(lái)需要為其創(chuàng)建源代碼。如前文所述，你可以依賴于一個(gè)外部文件或DOM模式。然后，該示例創(chuàng)建了代碼因此你可以看到整個(gè)過(guò)程。下面是代碼的原始形式：
- Imports System.Windows.Forms
- Module TestAssembly
- Sub Main()
- MessageBox.Show("Dynamically Created Code!")
- End Sub
- End Module
這個(gè)簡(jiǎn)單的例子顯示了一個(gè)對(duì)話框。注意vbCrLf的使用。如果你不使用這一方法，那編譯器會(huì)發(fā)送給你一個(gè)錯(cuò)誤信息。vbCrLf條目在該代碼中所起的作用與在程序代碼中的作用相同，只是添加的方式不一樣。
從這一點(diǎn)老說(shuō)，你***會(huì)用Comp.CompileAsseblyFromSource()方法編譯代碼。當(dāng)使用DOM模式和文件的時(shí)候可以使用這一方法。而在所有三種情況中，編譯器用參數(shù)和源代碼創(chuàng)建了你請(qǐng)求的輸出。該運(yùn)算的輸出出現(xiàn)在Executable中，是CompilerResults類(lèi)型。
編譯的失敗次數(shù)多于程序員的預(yù)計(jì)。無(wú)論你是在哪里使用動(dòng)態(tài)編碼技巧，你必須假設(shè)會(huì)出現(xiàn)失敗的情況以及處理失敗的方案。在本例中，代碼尋找的是錯(cuò)誤并在編譯失敗時(shí)將其展示在了信息框中。否則，代碼會(huì)依賴于Process.Start()方法來(lái)啟用可執(zhí)行文件。
底線
動(dòng)態(tài)編碼技巧并不是***鑰匙。當(dāng)你為開(kāi)發(fā)問(wèn)題找到了好的靜態(tài)解決方案時(shí)，當(dāng)然也可以使用。但是在我們所列出的情況中沒(méi)有可行的靜態(tài)方案，因此要選擇動(dòng)態(tài)編碼技巧。大多數(shù)情況下，要用動(dòng)態(tài)編碼技巧解決以下問(wèn)題：
◆ 用戶的環(huán)境會(huì)以不可預(yù)見(jiàn)的方式更改時(shí);
◆ 無(wú)法控制用戶電腦的安裝;
◆ 用戶或應(yīng)用程序都添加了你要用控件執(zhí)行的數(shù)據(jù)要素;
◆ 應(yīng)用程序必須執(zhí)行很早以前的安裝任務(wù)，且這些任務(wù)與電腦，環(huán)境，網(wǎng)絡(luò)或其他不確定因素聯(lián)系緊密時(shí);
◆ 應(yīng)用程序要執(zhí)行了處理級(jí)別的任務(wù)，且這些任務(wù)取決于機(jī)器連接或其他狀況。
顯然，還有其他一些情況能使用動(dòng)態(tài)編碼技巧。最重要的是記住但凡有不可預(yù)知的情況下要考慮使用動(dòng)態(tài)編碼技巧。通常在編碼環(huán)境中出現(xiàn)了靜態(tài)代碼無(wú)法處理的情況時(shí)，我們就可以使用動(dòng)態(tài)編碼技巧。
【編輯推薦】
