VB.NET中的動態(tài)代碼生成技巧
本文的討論也將著眼于這兩種情況。首先是當程序員需要動態(tài)建立一個控件并將代碼附著于控件之上時。例如，你或許想創(chuàng)建一個鏈接列表，但是不知道需要創(chuàng)建鏈接的數(shù)量或是鏈接中會出現(xiàn)什么樣的數(shù)據(jù)。第二種是當程序員需要定義代碼以反映出特殊需求的時候。例如，你或許要執(zhí)行能反映用戶系統(tǒng)配置的代碼。
類似上述的情況當然不會每天都上演。事實上，它們只在非常情況下才出現(xiàn)。然而，作為程序員，仍然要意識到.NET為解決動態(tài)情形提供了方案。有了正確的技巧，你就可以寫出能靈活處理動態(tài)情況的應用程序了。
使用動態(tài)控件
許多程序員總會遇到需要動態(tài)創(chuàng)建控件的時候。我們所展示的例子中程序員向FlowLayoutPanel中添加了LinkLabels。或許你可以個這樣的設置來記錄和保存常用的URL，文件，網(wǎng)絡地址或是其他資源所在位置的數(shù)值。這一示例沒有真正保存鏈接，但是你可以使用XML序列化功能來實現(xiàn)保存。
每次當用戶點擊Test按鈕時，示例代碼就會動態(tài)創(chuàng)建一個新的LinkLabel控件。真正的演示代碼并不復雜。例一就展示了創(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
如你所料，該代碼開始的時候創(chuàng)建了一個新的LinkLabel并為其賦予了一些值。這一示例使用的是當前時間。你的代碼或許能夠?qū)δ骋徽鎸嵸Y源進行訪問。
請注意該代碼也向鏈接的Click事件中指定了一個處理程序。你必須使用示例中的AddHandler技巧，因為普通的Handles關鍵詞路徑不起作用。一方面，設計應用程序的時候你并不清楚控件的名稱。即便你為控件指定了一個名稱，你也不知道用戶要創(chuàng)建的控件數(shù)量，所以我們沒有辦法清楚會有多少處理程序會被創(chuàng)建。處理程序的代碼與控件代碼類似，因此沒有必要創(chuàng)建多個處理程序。用于這個示例的處理代碼見例二。例二：處理動態(tài)控件點擊事件
- 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ù)因為它不需要這二者。然而，當你創(chuàng)建一個事件處理器來動態(tài)創(chuàng)建控件時，通常你需要將ByVal發(fā)送器作為System.Object參數(shù)，這意味著將這兩者都包含其中。
有些程序員在創(chuàng)建事件處理器的時候會出現(xiàn)一個錯誤，即沒有檢查傳入控件的類型。發(fā)送器對象可能包含多選擇，而如果未對事件處理器進行事件處理類型的設置，那么你就會面臨更多的選擇。我們的示例代碼一開始就檢查了傳入控件對象的類型。這樣以來發(fā)送器就不會像下面所展示的代碼一樣：
- 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)建了一個按鈕，大多數(shù)情況下這都能正常運行，除非事件處理器不按照按鈕所示的進行操作。如果你打算服務多個控件類型，那么每個控件類型都需要一個獨特的處理。你可以使用多事件處理器或者為某些類型提供選擇標準。
NewLink_Click()事件處理器照常將傳入發(fā)送器轉(zhuǎn)換成指定類型，在這個示例中則是LinkLabel。該代碼可以訪問LinkLabel屬性并能用其他方式進行互動。在我們的示例中，只顯示了一個能在創(chuàng)建鏈接的時候告知我們的對話框。
使用動態(tài)代碼
在運行時創(chuàng)建一個控件是在無法確定應用程序功能的時候采取的一種策略。但是動態(tài)創(chuàng)建控件并不適用于所有的情況。有些時候你必須建立可執(zhí)行代碼，雖然你的應用程序運行的目的是補償不同極其之間的配置，不同用戶的需求，不同的環(huán)境需求或是其他要求。當應用程序所運行的電腦不存在控件，那么通常是需要創(chuàng)建動態(tài)代碼的。
幸運的是，.NET為我們提供了一系列動態(tài)代碼選項。例如，你可以創(chuàng)建一個可執(zhí)行的能獨立運行的程序或是可以想運行中的程序加載一個DLL然后再執(zhí)行。當你需要演示一個外部任務的時候可以使用選擇可執(zhí)行，如運行一種腳本——該DLL選項最適合擴大現(xiàn)有的應用程序功能。
你可以運行來自文件或內(nèi)存的動態(tài)代碼。當你需要不止一次地運行代碼時，可以使用文件。對代碼的檢查可以再次運行外部文件而不需要對其進行二次編譯。當你需要多次演示任務的時候，如一個安裝請求，那可以使用內(nèi)存圖像。
當然我們也可以更改源代碼。例如，你可以使用字符串來建立需要在應用程序中直接使用的代碼。如果你需要代碼具有高度靈活性，且代碼本身不是很長時，這一方法的優(yōu)勢就非常顯著。也可以從文件里建立代碼，就如同VS一樣。這一方法最適用于相對穩(wěn)定且不需要復雜編碼的需求。第三種選擇是使用Documentation Object Model來創(chuàng)建代碼并將其作為CodeDom樹型結構的一個系列。該樹型結構包括了CodeCormpileUnits。這就像是用DOM模式創(chuàng)建了一個XML文件。
使用動態(tài)創(chuàng)建代碼的***方式是用示例來檢查一下。例三展示了一個基本“Hello World”示例。該示例用源代碼直接創(chuàng)建了代碼因此你可以看到整個運行以及生成一個外部可執(zhí)行文件的過程。
例三：動態(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
一開始你創(chuàng)建了一個使用VBCodeProvider的編譯器Comp。舊一點的.NET版本使用的是不同的方法但是這里所講的是微軟推薦的一個新方法。
為了使用編譯器，你必須創(chuàng)建能描述應用程序的參數(shù)。這些參數(shù)類似于VS中你創(chuàng)建的參數(shù)，只是現(xiàn)在你可以對它們進行定義。該代碼一開始就將GenerateExecutable設置為True，這意味著你需要的是一個EXE文件而不是DLL。
Parms.OutputAssembly屬性包含了輸出文件的名稱。你只需要在想創(chuàng)建文件時提供這一信息即可，而不需要生成可執(zhí)行內(nèi)存了。如果你ixiang生成可執(zhí)行文件的內(nèi)存版本，可以將Parm.GenerateInMemory屬性設置為True。
使用Parm.TreatWarningsAsErrors屬性來確定如何處理警告信息。默認的設置會使其為錯誤，這意味著你的應用程序可能無法對其進行編譯。大多數(shù)程序員使用默認設置，盡管他們開發(fā)了程序，但是在開發(fā)完成的程序中卻將其設置為False。
大多數(shù)應用程序需要外部DLL以正常運行。當然，你不能創(chuàng)建任意的沒有引用外部DLL的Windows表單程序。通常，你要使用Reference文件夾來完成這一任務。不過，當你動態(tài)創(chuàng)建代碼的時候可以依賴于Parms.ReferencedAssemblies屬性。如下所示，只需添加你要的DLL即可。
現(xiàn)在，你已經(jīng)定義了項目，接下來需要為其創(chuàng)建源代碼。如前文所述，你可以依賴于一個外部文件或DOM模式。然后，該示例創(chuàng)建了代碼因此你可以看到整個過程。下面是代碼的原始形式：
- Imports System.Windows.Forms
- Module TestAssembly
- Sub Main()
- MessageBox.Show("Dynamically Created Code!")
- End Sub
- End Module
這個簡單的例子顯示了一個對話框。注意vbCrLf的使用。如果你不使用這一方法，那編譯器會發(fā)送給你一個錯誤信息。vbCrLf條目在該代碼中所起的作用與在程序代碼中的作用相同，只是添加的方式不一樣。
從這一點老說，你***會用Comp.CompileAsseblyFromSource()方法編譯代碼。當使用DOM模式和文件的時候可以使用這一方法。而在所有三種情況中，編譯器用參數(shù)和源代碼創(chuàng)建了你請求的輸出。該運算的輸出出現(xiàn)在Executable中，是CompilerResults類型。
編譯的失敗次數(shù)多于程序員的預計。無論你是在哪里使用動態(tài)編碼技巧，你必須假設會出現(xiàn)失敗的情況以及處理失敗的方案。在本例中，代碼尋找的是錯誤并在編譯失敗時將其展示在了信息框中。否則，代碼會依賴于Process.Start()方法來啟用可執(zhí)行文件。
底線
動態(tài)編碼技巧并不是***鑰匙。當你為開發(fā)問題找到了好的靜態(tài)解決方案時，當然也可以使用。但是在我們所列出的情況中沒有可行的靜態(tài)方案，因此要選擇動態(tài)編碼技巧。大多數(shù)情況下，要用動態(tài)編碼技巧解決以下問題：
◆ 用戶的環(huán)境會以不可預見的方式更改時;
◆ 無法控制用戶電腦的安裝;
◆ 用戶或應用程序都添加了你要用控件執(zhí)行的數(shù)據(jù)要素;
◆ 應用程序必須執(zhí)行很早以前的安裝任務，且這些任務與電腦，環(huán)境，網(wǎng)絡或其他不確定因素聯(lián)系緊密時;
◆ 應用程序要執(zhí)行了處理級別的任務，且這些任務取決于機器連接或其他狀況。
顯然，還有其他一些情況能使用動態(tài)編碼技巧。最重要的是記住但凡有不可預知的情況下要考慮使用動態(tài)編碼技巧。通常在編碼環(huán)境中出現(xiàn)了靜態(tài)代碼無法處理的情況時，我們就可以使用動態(tài)編碼技巧。
【編輯推薦】
