日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢(xún)
選擇下列產(chǎn)品馬上在線(xiàn)溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
詳細(xì)分析VB.NET動(dòng)態(tài)代碼

學(xué)習(xí)VB.NET時(shí)，經(jīng)常會(huì)遇到使用VB.NET動(dòng)態(tài)代碼問(wèn)題，這里將介紹使用VB.NET動(dòng)態(tài)代碼問(wèn)題的解決方法，在這里拿出來(lái)和大家分享一下。

創(chuàng)新互聯(lián)于2013年成立，是專(zhuān)業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元大連做網(wǎng)站,已為上家服務(wù),為大連各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話(huà):13518219792

使用VB.NET動(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ǔ)償不同極其之間的配置，不同用戶(hù)的需求，不同的環(huán)境需求或是其他要求。當(dāng)應(yīng)用程序所運(yùn)行的電腦不存在控件，那么通常是需要?jiǎng)?chuàng)建VB.NET動(dòng)態(tài)代碼的。

幸運(yùn)的是，.NET為我們提供了一系列VB.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)存的VB.NET動(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ò)程。

 
 
 
    
  
  
  
  1. Private Sub btnTest3_Click() Handles btnTest3.Click     
    2. 
  
  
  
  2. ' Create a compiler.    
    3. 
  
  
  
  3. Dim Comp As VBCodeProvider = New VBCodeProvider()    
    4. 
  
  
  
  4. ' Define the parameters for the code you want to compile.    
    5. 
  
  
  
  5. Dim Parms As CompilerParameters = New CompilerParameters)    
    6. 
  
  
  
  6.    
    7. 
  
  
  
  7. ' We do want to create an executable, rather than a DLL.    
    8. 
  
  
  
  8. Parms.GenerateExecutable = True   
    9. 
  
  
  
  9. ' The compiler will create an output assembly called Output.    
    10. 
  
  
  
  10. Parms.OutputAssembly = "Output"   
    11. 
  
  
  
  11. ' The compiler won't treat warnings as errors.    
    12. 
  
  
  
  12. Parms.TreatWarningsAsErrors = False   
    13. 
  
  
  
  13. ' Add any assembly you want to reference.    
    14. 
  
  
  
  14. Parms.ReferencedAssemblies.Add("System.Windows.Forms.dll")    
    15. 
  
  
  
  15.    
    16. 
  
  
  
  16. ' Define the code you want to run.    
    17. 
  
  
  
  17.    
    18. 
  
  
  
  18. Dim SampleCode As StringBuilder = New StringBuilder()    
    19. 
  
  
  
  19.    
    20. 
  
  
  
  20. SampleCode.Append("Imports System.Windows.Forms" + vbCrLf)    
    21. 
  
  
  
  21.    
    22. 
  
  
  
  22. SampleCode.Append("Module TestAssembly" + vbCrLf)    
    23. 
  
  
  
  23.    
    24. 
  
  
  
  24. SampleCode.Append("Sub Main()" + vbCrLf)    
    25. 
  
  
  
  25.    
    26. 
  
  
  
  26. SampleCode.Append("MessageBox.Show(" + Chr(34) + _    
    27. 
  
  
  
  27. "Dynamically Created Code!" + _Chr(34) + ")" + vbCrLf)    
    28. 
  
  
  
  28. SampleCode.Append("End Sub" + vbCrLf)    
    29. 
  
  
  
  29. SampleCode.Append("End Module" + vbCrLf)    
    30. 
  
  
  
  30. ' Define the code to run.    
    31. 
  
  
  
  31. Dim Executable As CompilerResults = _   
    32. 
  
  
  
  32. Comp.CompileAssemblyFromSource(Parms, SampleCode.ToString())    
    33. 
  
  
  
  33. ' Display error messages if there are any.    
    34. 
  
  
  
  34. If Executable.Errors.HasErrors Then    
    35. 
  
  
  
  35. For Each Item As CompilerError In Executable.Errors    
    36. 
  
  
  
  36. MessageBox.Show(Item.ErrorText)    
    37. 
  
  
  
  37. Next    
    38. 
  
  
  
  38. Else    
    39. 
  
  
  
  39. ' If there aren't any error messages, start the    
    40. 
  
  
  
  40. ' executable.    
    41. 
  
  
  
  41. Process.Start("Output")    
    42. 
  
  
  
  42. End If    
    43. 
  
  
  
  43. End Sub  
    44.

新聞標(biāo)題：詳細(xì)分析VB.NET動(dòng)態(tài)代碼
文章地址：http://www.5511xx.com/article/dhdcdcs.html