vb.net代码生成器 vbnet web编程

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

VB.NET 2008 怎么给软件打包？能不能做成一个exe文件？

直接把代码编译生成即可，把Bin文件夹下面的几个文件拷贝过去就可以了。客户机需要安装dot net framwork 3.5

打包过程：

一).创建部署项目

1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。

2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。

3. 单击“确定”关闭对话框。

4. 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。

5. 在“属性”窗口中，选择 ProductName 属性，并键入信息管理系统。

二).将主程序项目的输出添加到部署项目中

1. 在“文件系统编辑器”中，选择“应用程序文件夹”。在“操作”菜单上，指向“添加”，然后选择“项目输出”。

2. 在“添加项目输出组”对话框中，选择“项目”下拉列表中的“你的程序”。

3. 单击“确定”关闭对话框。

4. 从列表中选择“主输出”和“内容文件”组，然后单击“确定”。

三).创建安装程序类

1. 在“文件”菜单上指向“新建”，然后选择“项目”。

2. 在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。

3. 单击“打开”关闭对话框。

4. 从“项目”菜单中选择“添加新项”。

5. 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。

6. 单击“确定”关闭对话框。

7. 详细代码附后。

四).创建自定义安装对话框

1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“用户界面”。

2. 在用户界面编辑器中，选择“安装”下的“启动”节点。在“操作”菜单上，选择“添加对话框”。

3. 在“添加对话框”对话框中，选择“许可协议”对话框，然后单击“确定”关闭对话框。

4. 在“添加对话框”对话框中，选择“文本框 (A)”对话框，然后单击“确定”关闭对话框。

5. 在“操作”菜单上，选择“上移”。重复此步骤，直到“文本框 (A)”对话框位于“安装文件夹”节点之上。

6. 在“属性”窗口中，选择 BannerText 属性并键入：安装数据库.

7. 选择 BodyText 属性并键入：安装程序将在目标机器上安装数据库

8. 选择 Edit1Label 属性并键入：数据库名称:

9. 选择 Edit1Property 属性并键入 CUSTOMTEXTA1

10. 选择 Edit1Value 属性并键入：dbservers

11. 选择 Edit2Label 属性并键入：服务器名:

12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA2

13. 选择 Edit2Value 属性并键入：(local)

14. 选择 Edit3Label 属性并键入：用户名:

15. 选择 Edit3Value 属性并键入：sa

16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA3

17. 选择 Edit4Label 属性并键入：密码:

18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA4

19. 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性，并将它们设置为 true

五).创建自定义操作

1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“自定义操作”。

2. 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上，选择“添加自定义操作”。

3. 在“选择项目中的项”对话框中，双击“应用程序文件夹”。

4. 选择“主输出来自 installDB（活动）”项，然后单击“确定”关闭对话框。

5. 在“属性”窗口中，选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"”。

附:/targetdir="[TARGETDIR]\"是安装后的目标路径，为了在installDB类中获得安装后的路径，我们设置此参数。

六).添加文件

1. 将SQL Server备份成文件DB.dat添加到“setup1”项目(在企业管理器中右击数据库-所有工作-备份数据库,备份成一个文件，取名为DB.dat)

2. 将安装文件LisenceFile.rtf添加到“setup1”项目

3. 在用户界面编辑器中，选择许可协议，设置LisenceFile属性为LisenceFile.rtf文件

4.一般会自动将依赖项添加到“检测到的依赖项”，如果没有，那么我们要手动将其加入步骤5）

Crystal_Managed2003.msm （如果有水晶报表）

dotnetfxredist_x86.msm （.net一定是必须的）

... （如果有引用其他的dll）

5. 如果使用了水晶报表，手动加入要包含的文件：项目--添加--合并模块（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:\Program Files\Common Files\Merge Modules\ 下，*为必要的

具体功能如下：

（托管组件 MSM 处理所有托管组件的分发，其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间）

* Crystal_Managed2003.msm

Crystal_Managed2003_chs.msm

（对于使报表运行所需的所有其他文件，由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。）

* Crystal_Database_access2003.msm

Crystal_Database_access2003_chs.msm

（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块，否则没有“MergeMouduleProperties”属性）

* Crystal_regwiz2003.msm

（如果报表文件使用了 ADO.NET 的 dataset 数据集对象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模块也必须包含在安装工程中。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录）

VC_User_CRT71_RTL_X86_---.msm

VC_User_STL71_RTL_X86_---.msm

(很多人经常出现查询错误，不妨加上这个)

6. 打开解决方案--右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的 “License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码！）

七).打包时加入卸载功能：

方法一:

1.在打包项目中添加文件msiexec.exe(一般可在c:\windows\system32\下找到)

2.在文件系统视图中选择应用程序文件夹,在msiexec.exe上按右键,选择创建快捷方式,重命名快捷方式为"卸载".

3.更改此快捷方式的Arguments 为"/x {产品id}",产品id的值为打包项目的ProductCode属性值.

方法二:(推荐)

1.先生成安装包，记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到

2.用VS.net建立一个新的控制台程序uninst.exe文件

'power by: landlordh

'for 2000,xp,2003

Module uninstall

Sub Main()

Dim myProcess As Process = New Process

If System.Environment.OSVersion.ToString.IndexOf("NT 5") Then

myProcess.Start("msiexec", "/X{2B65D4A9-C146-4808-AB4B-321FB0779559}") '改为自己的ProductCode

End If

myProcess.Close()

End Sub

End Module

3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式

八).打包时加入.net环境和MDAC功能：

把MS的PluginInstaller.msi插件装上后,用vb.net的自带的打包工具打包,就会自动把

.net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包.

使用 Setup 项目安装 MDAC

1.确保 Visual Studio .NET 框架引导程序插件已安装。

2.在 Solution Explorer 中选择 Setup 项目。

从 View 菜单指向 Editor，并选择 Launch Conditions（启动条件）。

3.选择 Requirements on Target Machine（搜索目标计算机）节点。

从 Action 菜单，选择 Add Registry Launch Condition（添加注册表搜索）。

4.选择 Search for RegistryEntry1 节点。在 Properties 窗口中，

选择 RegKey 属性，并键入 Software\Microsoft\DataAccess。

5.选择 Root 属性，并选择 vsdrrHKLM。

6.选择 Value 属性，并键入 FullInstallVer。

7.选择 Property 属性，并键入 MDACSEARCH。

8.在 Launch Conditions Editor（启动条件）中，添加Condition1 节点。

选择 Condition1 节点，在 Properties 窗口中，选择 Condition 属性，并选择 MDACSEARCH="2.6"。

9.在 Solution Explorer 中选择 Setup 项目。在 Project 菜单上，选择 Properties。

10.将 Bootstrapper 属性设置为 Windows Installer Bootstrapper（Windows 安装引导程序）。

附：

installdb.vb类,要添加引用 system.configuration.install.dll :

Imports System.ComponentModel

Imports System.Configuration.Install

RunInstaller(True) Public Class Installer1

Inherits System.Configuration.Install.Installer

#Region " 组件设计器生成的代码 "

Public Sub New()

MyBase.New()

'该调用是组件设计器所必需的。

InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'Installer 重写 dispose 以清理组件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

MyBase.Dispose(disposing)

End Sub

'组件设计器所必需的

Private components As System.ComponentModel.IContainer

'注意: 以下过程是组件设计器所必需的

'可以使用组件设计器来修改此过程。

'不要使用代码编辑器来修改它。

System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()

components = New System.ComponentModel.Container

End Sub

#End Region

Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)

MyBase.Install(stateSaver)

If Not InstallDB() Then

'失败，反安装

Me.Uninstall(stateSaver)

Exit Sub

End If

DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir")))

End Sub

Public Overrides Sub Uninstall(ByVal stateSaver As System.Collections.IDictionary)

'执行反安装

MyBase.Uninstall(stateSaver)

DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir")))

End Sub

Private Sub DeleteFile(ByVal paths As String)

'删除指定的文件

Try

Dim delFile As New System.IO.FileInfo(paths)

If delFile.Exists Then

delFile.Delete()

End If

Catch ex As Exception

End Try

End Sub

Private Sub CreateSql(ByVal paths As String)

Dim File As System.IO.StreamWriter

Dim db As String = String.Format("{0}", Me.Context.Parameters.Item("dbname"))

Dim path As String = String.Format("{0}", Me.Context.Parameters.Item("targetdir"))

Try

Dim s As New System.Text.StringBuilder

s.Append("use master" vbCrLf)

s.Append("" vbCrLf)

s.Append("if not exists (select * from sysdatabases where name='" db "')" vbCrLf)

s.Append(" BEGIN" vbCrLf)

s.Append(" create database " db vbCrLf)

s.Append(" END" vbCrLf)

s.Append("" vbCrLf)

s.Append("if exists (select * from sysdevices where name='DBdisk')" vbCrLf)

s.Append(" BEGIN" vbCrLf)

s.Append(" EXEC sp_dropdevice 'DBdisk'" vbCrLf)

s.Append(" END" vbCrLf)

s.Append("Else" vbCrLf)

s.Append(" BEGIN" vbCrLf)

s.Append(" EXEC sp_addumpdevice 'disk','DBdisk', '" path "DB.dat'" vbCrLf)

s.Append(" END" vbCrLf)

s.Append("" vbCrLf)

s.Append("restore database " db vbCrLf)

s.Append("from disk='" path "DB.dat'" vbCrLf)

s.Append("with replace")

File = New System.IO.StreamWriter(paths)

File.Write(s.ToString)

Catch ex As Exception

Finally

File.Close()

End Try

End Sub

Private Function InstallDB() As Boolean

'安装数据库，调用自动批处理。

Try

'创建临时脚本

CreateSql(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir")))

'调用osql执行脚本

Dim sqlProcess As New System.Diagnostics.Process

sqlProcess.StartInfo.FileName = "osql.exe"

sqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -S {2} -i {3}Mydb2000tp.sql", Me.Context.Parameters.Item("user"), Me.Context.Parameters.Item("pwd"), Me.Context.Parameters.Item("server"), Me.Context.Parameters.Item("targetdir"))

sqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden

sqlProcess.Start()

sqlProcess.WaitForExit() '等待执行

sqlProcess.Close()

'删除脚本文件

DeleteFile(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir")))

Return True

Catch ex As Exception

Return False

End Try

End Function

End Class

网上的另外一种installdb.vb类

installdb.vb类,要添加引用 system.configuration.install.dll :

using System;

using System.Collections;

using System.ComponentModel;

using System.Configuration.Install;

using System.Reflection;

using System.IO;

using System.Data;

using System.Data.SqlClient;

namespace install

{

/// summary

/// Installer1 的摘要说明。

/// /summary

[RunInstaller(true)]

public class Installer1 : System.Configuration.Install.Installer

{

/// summary

/// 必需的设计器变量。

/// /summary

private System.ComponentModel.Container components = null;

public Installer1()

{

// 该调用是设计器所必需的。

InitializeComponent();

// TODO: 在 InitializeComponent 调用后添加任何初始化

}

/// summary

/// 清理所有正在使用的资源。

/// /summary

protected override void Dispose( bool disposing )

{

if( disposing )

{

if(components != null)

{

components.Dispose();

}

base.Dispose( disposing );

}

#region 组件设计器生成的代码

/// summary

/// 设计器支持所需的方法 - 不要使用代码编辑器修改

/// 此方法的内容。

/// /summary

private void InitializeComponent()

{

components = new System.ComponentModel.Container();

}

#endregion

private string GetSql(string Name)

{

// //调用osql执行脚本

// System.Diagnostics.Process sqlProcess = new System.Diagnostics.Process();

// sqlProcess.StartInfo.FileName = "osql.exe";

// sqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -d {2} -i {3}db.sql", this.Context.Parameters["user"], this.Context.Parameters["pwd"],"master", this.Context.Parameters["targetdir"]);

// sqlProcess.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden;

// sqlProcess.Start();

// sqlProcess.WaitForExit() ;//等待执行

// sqlProcess.Close();

try

{

// Assembly Asm = Assembly.GetExecutingAssembly();

// System.IO.FileInfo FileInfo = new System.IO.FileInfo(Asm.Location);

// string path=FileInfo.DirectoryName+@"\"+Name;

string path=this.Context.Parameters["targetdir"]+Name;

FileStream fs=new FileStream(path,FileMode.Open,FileAccess.Read,FileShare.Read);

StreamReader reader = new StreamReader(fs,System.Text.Encoding.Default);

//System.Text.Encoding.ASCII;

return reader.ReadToEnd();

}

catch (Exception ex)

{

Console.Write("In GetSql:"+ex.Message);

throw ex;

}

private void ExecuteSql(string DataBaseName,string Sql)

{

SqlConnection sqlConnection1=new SqlConnection();

sqlConnection1.ConnectionString =string.Format("server={0}; user id={1}; password={2}; Database=master",this.Context.Parameters["server"],this.Context.Parameters["user"],this.Context.Parameters["pwd"]);

System.Data.SqlClient.SqlCommand Command = new System.Data.SqlClient.SqlCommand(Sql,sqlConnection1);

try

{

Command.Connection.Open();

Command.Connection.ChangeDatabase(DataBaseName);

Command.ExecuteNonQuery();

}

catch(Exception ex)

{

Console.Write("In exception handler :"+ex.Message);

}

finally

{

Command.Connection.Close();

}

protected void AddDBTable(string strDBName)

{

try

{

ExecuteSql("master","Create DATABASE "+ strDBName);

ExecuteSql(strDBName,GetSql("sql.txt"));

ExecuteSql("master","exec sp_addlogin 'myoamaster','myoamaster','"+strDBName+"',Null,Null");

ExecuteSql(strDBName,"EXEC sp_grantdbaccess 'myoamaster', 'myoamaster'");

ExecuteSql(strDBName,"exec sp_addrolemember 'db_owner','myoamaster'");

}

catch(Exception ex)

{

Console.Write("In exception handler :"+ex.Message);

}

public override void Install(System.Collections.IDictionary stateSaver)

{

base.Install(stateSaver);

AddDBTable(this.Context.Parameters["dbname"]);

}

这里有个sql.txt是数据库的sql脚本,当然可以调用osql来执行sql脚本，其实是一样的。

打包的时候必须把sql.txt文件加进来，否则不会执行。

如果你想附加数据库的mdf文件和ldf文件，用下面这段程序：

private void CreateDataBase(string strSql,string DataName,string strMdf,string strLdf)

{

String str;

SqlConnection myConn = new SqlConnection (strSql);

//EXEC sp_detach_db @dbname = 'BX_FreightMileage_2'//需要先将数据库分离出来

str = "EXEC sp_attach_db @dbname = '"+ DataName +"', @filename1 = '"+ strMdf +"',@filename2='"+strLdf+"'";

SqlCommand myCommand = new SqlCommand(str, myConn);

myConn.Open();

myCommand.ExecuteNonQuery();

myConn.Close();

}

当然打包的时候也要把这两个数据库文件也加进来。

相关问答

Q1: vb.net在picturebox中代码生成的控件HScrollBar如何使用

vb.net代码生成器你可以组成控件数组vb.net代码生成器，然后用AddHandle增加事件给它们

Q2: vb.net随机产生英文字母的代码

1.随机产生英文字母

Randomize() '功能：初始化随机数发生器

Me.txt1.Text = Chr(Asc("a") + Int(Rnd() * 26))

'Rnd 函数返回小于 1 但大于或等于 0 的值。

'0 = Rnd() * 26 26 是含小数位的数

'Int(Rnd() * 26) 转换为整型，就是0~25的随机数

'Asc("a") 得到a的ASCii数值，是整数97（A是65）

'a~z的ASCii为97~122 ，即为a~z之间的字母为97加（0~25）

'Asc("a") + Int(Rnd() * 26)为97到122的随机数

'Chr（）又可以起到转换成字符的功能，Chr(97)表示a （a转换成数值又是Asc("a")=97）

'Chr(Asc("a") + Int(Rnd() * 26))就是a~z的随机数了

Randomize() '再次初始化随机数发生器

Me.txt2.Text = Chr(Asc("A") + Int(Rnd() * 26)) '这里是A~Z的随机数

'也可以换这种写法

Randomize()

Me.txt1.Text = Chr(Int((26 * Rnd()) + 97)) '这里是a~z的随机数

'这是在你知道ASCII码的情况之下（a~z为97~122，A~Z为65~90）

'Rnd()为0~0.9999999.....的随机数

' 26 * Rnd()为0~25.9999...的随机数

'Int((26 * Rnd())为0~25的随机数

'Int((26 * Rnd()) + 97)为97~122的随机数

'Chr(Int((26 * Rnd()) + 97))就是a~z的随机数了

Randomize()

Me.txt2.Text = Chr(Int((26 * Rnd()) + 65)) '这里是A~Z的随机数

'至于同时在一处随机大写或小写，ASCII码的数字又不挨在一起（65-90,97-122），比较麻烦。想写的话，你可以自己想一下怎么办

2.数字怎样转换成ASCII码所对应的字母

Chr()函数将数字转换成ASCII对应的字母，Asc()函数将字母根据ASCII表转换成数字

Chr(97)表示a （a转换成数值又是Asc("a")=97）

3.加到数组，你可以放在一个for循环里

比如

Dim arylst1 As New ArrayList

Dim arr1() As String '数组

Dim str1 As String

For i As Integer = 1 To 15 '比如我想要15个随机字母

Randomize()

str1 = Chr(Int((26 * Rnd()) + 65)) '这里是A~Z的随机数

arylst1.Add(str1)

ReDim arr1(arylst1.Count - 1) '这里是为了比较动态，可以只改变 i 的范围来决定要多少个随机字母

'当然也可以写死，在前面直接定义为 arr1(14)，下次要改的时候就要改定义的地方和i的范围，改两个地方

arylst1.CopyTo(arr1)

'就把数值拷贝到数组里面了

Q3: vb.net源代码如何生成exe格式

vb.net编译出来vb.net代码生成器的exe只有依赖.net

framework才能运行

但有一些第三方工具可以用来把exe用到的assembly和dll打包成一个exe文件，不过这样的结果就是exe体积非常大

比如.netz工具，它的官方地址vb.net代码生成器：

使用很简单，比如你的exe文件是a.exe，直接netz

a.exe就可以把a和它用到的.net代码一起打包成一个exe

Q4: 如何在.NET中实现脚本引擎

NET本身提供了强大的脚本引擎，可以直接使用.NETCLR的任何编程语言作为脚本语言，如VB.NET、C#、JScript,J#等等。使用脚本引擎，我们可以动态生成任意表达式、或动态导入任意脚本文件，并在任意时候执行。经实践发现，我们可以使用至少两种不同的方式在.NET中使用脚本引擎：VsaEngine和CodeDom。其实，CodeDom不能算是真正的脚本引擎，它实际上是编译器。但是我们完全可以利用CodeDom来模拟脚本引擎。使用Emit方法也能达到动态生成可执行代码的目的，而且Emit生成的代码不需要编译，因此速度更快。但是Emit插入的实际上是汇编代码，不能算是脚本语言。本文介绍如何以CodeDom方式来动态生成可执行代码。如何在.NET中实现脚本引擎(CodeDom篇)沐枫网志1.构造一个编译器设置编译参数编译参数需要在CompilerParameters设置：CompilerOptions用于设置编译器命令行参数IncludeDebugInformation用于指示是否在内存在生成AssemblyGenerateInMemory用于指示是否在内存在生成AssemblyGenerateExecutable用于指示生成的Assembly类型是exe还是dllOutputAssembly用于指示生成的程序文件名（仅在GenerateInMemory为false的情况）ReferencedAssemblies用于添加引用Assembly例如：theParameters.ReferencedAssemblies.Add("System.dll");创建指定语言的编译器编译需要由指定语言的CodeDomProvider生成。这里列举一些.NET的CodeDomProvider：vb.netMicrosoft.VisualBasic.VBCodeProviderC#Microsoft.CSharp.CSharpCodeProviderjscriptMicrosoft.JScript.JScriptCodeProviderJ#Microsoft.VJSharp.VJSharpCodeProvider以C#为例，要创建C#编译器，代码如下：//.NET1.1/1.0ICodeCompilercompiler=newMicrosoft.CSharp.CSharpCodeProvider().CreateCompiler();//.NET2.0ICodeCompilercompiler=(ICodeCompiler)newMicrosoft.CSharp.CSharpCodeProvider();下面是完整的创建编译器的例子：//////创建相应脚本语言的编译器///privatevoidcreateCompiler(stringstrLanguage,booldebugMode,stringstrAssemblyFileName){this.theParameters=newCompilerParameters();this.theParameters.OutputAssembly=System.IO.Path.Combine(System.IO.Path.GetTempPath(),strAssemblyFileName+".dll");this.theParameters.GenerateExecutable=false;this.theParameters.GenerateInMemory=true;if(debugMode){this.theParameters.IncludeDebugInformation=true;this.theParameters.CompilerOptions+="/define:TRACE=1/define:DEBUG=1";}else{this.theParameters.IncludeDebugInformation=false;this.theParameters.CompilerOptions+="/define:TRACE=1";}AddReference("System.dll");AddReference("System.Data.dll");AddReference("System.Xml.dll");strLanguage=strLanguage.ToLower();CodeDomProvidertheProvider;if("visualbasic"==strLanguage||"vb"==strLanguage){theProvider=newMicrosoft.VisualBasic.VBCodeProvider();if(debugMode)theParameters.CompilerOptions+="/debug:full/optimize-/optionexplicit+/optionstrict+/optioncompare:text/imports:Microsoft.VisualBasic,System,System.Collections,System.Diagnostics";elsetheParameters.CompilerOptions+="/optimize/optionexplicit+/optionstrict+/optioncompare:text/imports:Microsoft.VisualBasic,System,System.Collections,System.Diagnostics";AddReference("Microsoft.VisualBasic.dll");}elseif("jscript"==strLanguage||"js"==strLanguage){theProvider=newMicrosoft.JScript.JScriptCodeProvider();AddReference("Microsoft.JScript.dll");}elseif("csharp"==strLanguage||"cs"==strLanguage||"c#"==strLanguage){theProvider=newMicrosoft.CSharp.CSharpCodeProvider();if(!debugMode)theParameters.CompilerOptions+="/optimize";}//elseif("jsharp"==strLanguage||"vj"==strLanguage||"j#"==strLanguage)//{//theProvider=newMicrosoft.VJSharp.VJSharpCodeProvider();//if(!debugMode)//theParameters.CompilerOptions+="/optimize";//}elsethrownewSystem.Exception("指定的脚本语言不被支持。");this.theCompiler=theProvider.CreateCompiler();}//////添加引用对象。//////引用的文件名publicvoidAddReference(string__strAssemblyName){theParameters.ReferencedAssemblies.Add(__strAssemblyName);}注：在.NETFramework2.0中，由于CreateCompiler方法被标记作废。为避免产生编译警告，可直接返回CodeDomProvider作为编译器：this.theCompiler=(ICodeCompiler)theProvider;2.编译源代码编译源代码相当简单，只需一条语句就搞定了：CompilerResultscompilerResults＝compiler.CompileAssemblyFromSource(this.theParameters,this.SourceText);执行后，可以从compilerResults取得以下内容：NativeCompilerReturnValue编译结果，用于检查是否成功Errors编译时产生的错误和警告信息CompiledAssembly如果编译成功，则返回编译生成的Assembly示例函数：//////编译脚本。编译前将清空以前的编译信息。///CompilerInfo将包含编译时产生的错误信息。//////成功时返回True。不成功为False。publicboolCompile(){this.theCompilerInfo="";this.isCompiled=false;this.theCompiledAssembly=null;this.theCompilerResults=this.theCompiler.CompileAssemblyFromSource(this.theParameters,this.SourceText);if(this.theCompilerResults.NativeCompilerReturnValue==0){this.isCompiled=true;this.theCompiledAssembly=this.theCompilerResults.CompiledAssembly;}System.Text.StringBuildercompilerInfo=newSystem.Text.StringBuilder();foreach(CompilerErrorerrinthis.theCompilerResults.Errors){compilerInfo.Append(err.ToString());compilerInfo.Append("/r/n");}theCompilerInfo=compilerInfo.ToString();returnisCompiled;}3.执行代码使用Reflection机制就可以很方便的执行Assembly中的代码。我们假设编译时使用的脚本代码this.SourceText内容如下：namespacetest{publicclassscript{staticpublicvoidMain(){MessageBox.Show("Hello");}}}则相应的执行代码为：scriptEngine.Invoke("test.script","Main",null);Invoke函数内容：//////执行指定的脚本函数(Method)。///如果指定的类或模块名，以及函数(Method)、或参数不正确，将会产生VsaException/VshException例外。//////类或模块名///要执行的函数(Method)名字///参数(数组)///返回执行的结果publicobjectInvoke(string__strModule,string__strMethod,object[]__Arguments){if(!this.IsCompiled||this.theCompiledAssembly==null)thrownewSystem.Exception("脚本还没有成功编译");Type__ModuleType=this.theCompiledAssembly.GetType(__strModule);if(null==__ModuleType)thrownewSystem.Exception(string.Format("指定的类或模块({0})未定义。",__strModule));MethodInfo__MethodInfo=__ModuleType.GetMethod(__strMethod);if(null==__MethodInfo)thrownewSystem.Exception(string.Format("指定的方法({0}::{1})未定义。",__strModule,__strMethod));try{return__MethodInfo.Invoke(null,__Arguments);}catch(TargetParameterCountException){thrownewSystem.Exception(string.Format("指定的方法({0}:{1})参数错误。",__strModule,__strMethod));}catch(System.Exceptione){System.Diagnostics.Trace.WriteLine(string.Format("执行({0}:{1})错误:{2}",__strModule,__strMethod,e.ToString()));returnnull;}}总结：CodeDom可以很方便的随时编译源代码，并动态执行。虽然作为脚本引擎，它没有VsaEngine正规和方便，但作为一般应用，也够用了。并且结合Reflection机制，它的功能比VsaEngine更强大：它可以编译任何提供CompilerProvider的CLR语言（目前.NET自带的语言中都有）。当然，它也有一些缺点：它生成的Assembly不能动态卸载。这在一般情况下不成问题，因为一个源代码只需编译一次，并载入执行，并不需要动态卸载。假如你需要做脚本编辑器时，就要考虑这个问题，因为有可能一个脚本会因为修修改改而不停的重新编译，从而造成不停的产生新的Assembly，最后将导致内存被大量占用。要解决这个问题，需要将编译器加载到独立的AppDomain中，通过卸载AppDomain达到卸载所需的Assembly的目的。

Q5: VB.NET中的动态代码生成技巧

本文的讨论也将着眼于这两种情况首先是当程序员需要动态建立一个控件并将代码附着于控件之上时例如你或许想创建一个链接列表但是不知道需要创建链接的数量或是链接中会出现什么样的数据第二种是当程序员需要定义代码以反映出特殊需求的时候例如你或许要执行能反映用户系统配置的代码

类似上述的情况当然不会每天都上演事实上它们只在非常情况下才出现然而作为程序员仍然要意识到 NET为解决动态情形提供了方案有了正确的技巧你就可以写出能灵活处理动态情况的应用程序了

使用动态控件

许多程序员总会遇到需要动态创建控件的时候我们所展示的例子中程序员向FlowLayoutPanel中添加了LinkLabels 或许你可以个这样的设置来记录和保存常用的URL 文件网络地址或是其他资源所在位置的数值这一示例没有真正保存链接但是你可以使用XML序列化功能来实现保存

每次当用户点击Test按钮时示例代码就会动态创建一个新的LinkLabel控件真正的演示代码并不复杂例一就展示了创建这类控件以及将控件放入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

如你所料该代码开始的时候创建了一个新的LinkLabel并为其赋予了一些值这一示例使用的是当前时间你的代码或许能够对某一真实资源进行访问

请注意该代码也向链接的Click事件中指定了一个处理程序你必须使用示例中的AddHandler技巧因为普通的Handles关键词路径不起作用一方面设计应用程序的时候你并不清楚控件的名称即便你为控件指定了一个名称你也不知道用户要创建的控件数量所以我们没有办法清楚会有多少处理程序会被创建处理程序的代码与控件代码类似因此没有必要创建多个处理程序用于这个示例的处理代码见例二例二处理动态控件点击事件 Private　Sub　NewLink_Click(　_　ByVal　sender　As　System Object 　ByVal　e　As　System EventArgs) 　Verify　that　you　actually　have　a　LinkLabelIf　Not　sender GetType()　Is　GetType(LinkLabel)　ThenMessageBox Show( Wrong　control　type　provided! )ReturnEnd　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　

你可能已经注意到例一中的事件处理器使用的是宽松代表——它没有将ByVal发送器作为System Object 也没有将ByVal e作为System EventArgs作为参数因为它不需要这二者然而当你创建一个事件处理器来动态创建控件时通常你需要将ByVal发送器作为System Object参数这意味着将这两者都包含其中

有些程序员在创建事件处理器的时候会出现一个错误即没有检查传入控件的类型发送器对象可能包含多选择而如果未对事件处理器进行事件处理类型的设置那么你就会面临更多的选择我们的示例代码一开始就检查了传入控件对象的类型这样以来发送器就不会像下面所展示的代码一样 Private　Sub　btnTest _Click()　Handles　btnTest 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中创建了一个按钮大多数情况下这都能正常运行除非事件处理器不按照按钮所示的进行操作如果你打算服务多个控件类型那么每个控件类型都需要一个独特的处理你可以使用多事件处理器或者为某些类型提供选择标准

NewLink_Click（）事件处理器照常将传入发送器转换成指定类型在这个示例中则是LinkLabel 该代码可以访问LinkLabel属性并能用其他方式进行互动在我们的示例中只显示了一个能在创建链接的时候告知我们的对话框

使用动态代码

在运行时创建一个控件是在无法确定应用程序功能的时候采取的一种策略但是动态创建控件并不适用于所有的情况有些时候你必须建立可执行代码虽然你的应用程序运行的目的是补偿不同极其之间的配置不同用户的需求不同的环境需求或是其他要求当应用程序所运行的电脑不存在控件那么通常是需要创建动态代码的

幸运的是 NET为我们提供了一系列动态代码选项例如你可以创建一个可执行的能独立运行的程序或是可以想运行中的程序加载一个DLL然后再执行当你需要演示一个外部任务的时候可以使用选择可执行如运行一种脚本——该DLL选项最适合扩大现有的应用程序功能

你可以运行来自文件或内存的动态代码当你需要不止一次地运行代码时可以使用文件对代码的检查可以再次运行外部文件而不需要对其进行二次编译当你需要多次演示任务的时候如一个安装请求那可以使用内存图像

当然我们也可以更改源代码例如你可以使用字符串来建立需要在应用程序中直接使用的代码如果你需要代码具有高度灵活性且代码本身不是很长时这一方法的优势就非常显著也可以从文件里建立代码就如同VS一样这一方法最适用于相对稳定且不需要复杂编码的需求第三种选择是使用Documentation Object Model来创建代码并将其作为CodeDom树型结构的一个系列该树型结构包括了CodeCormpileUnits 这就像是用DOM模式创建了一个XML文件

使用动态创建代码的最好方式是用示例来检查一下例三展示了一个基本 Hello World 示例该示例用源代码直接创建了代码因此你可以看到整个运行以及生成一个外部可执行文件的过程

例三动态编码示例 Private　Sub　btnTest _Click()　Handles　btnTest Click　　Create　a　piler Dim　Comp　As　VBCodeProvider　=　New　VBCodeProvider() 　Define　the　parameters　for　the　code　you　want　to　pile Dim　Parms　As　CompilerParameters　=　New　CompilerParameters)　　We　do　want　to　create　an　executable 　rather　than　a　DLL Parms GenerateExecutable　=　True　　The　piler　will　create　an　output　assembly　called　Output Parms OutputAssembly　=　 Output 　　The　piler　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( )　+　_ Dynamically　Created　Code! 　+　_Chr( )　+　 ) 　+　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　ThenFor　Each　Item　As　CompilerError　In　Executable ErrorsMessageBox Show(Item ErrorText)NextElse 　If　there　aren t　any　error　messages 　start　the 　executable Process Start( Output )End　IfEnd　Sub　

一开始你创建了一个使用VBCodeProvider的编译器Comp 旧一点的 NET版本使用的是不同的方法但是这里所讲的是微软推荐的一个新方法

为了使用编译器你必须创建能描述应用程序的参数这些参数类似于VS中你创建的参数只是现在你可以对它们进行定义该代码一开始就将GenerateExecutable设置为True 这意味着你需要的是一个EXE文件而不是DLL

Parms OutputAssembly属性包含了输出文件的名称你只需要在想创建文件时提供这一信息即可而不需要生成可执行内存了如果你ixiang生成可执行文件的内存版本可以将Parm GenerateInMemory属性设置为True

使用Parm TreatWarningsAsErrors属性来确定如何处理警告信息默认的设置会使其为错误这意味着你的应用程序可能无法对其进行编译大多数程序员使用默认设置尽管他们开发了程序但是在开发完成的程序中却将其设置为False

大多数应用程序需要外部DLL以正常运行当然你不能创建任意的没有引用外部DLL的Windows表单程序通常你要使用Reference文件夹来完成这一任务不过当你动态创建代码的时候可以依赖于Parms ReferencedAssemblies属性如下所示只需添加你要的DLL即可

现在你已经定义了项目接下来需要为其创建源代码如前文所述你可以依赖于一个外部文件或DOM模式然后该示例创建了代码因此你可以看到整个过程下面是代码的原始形式 Imports　System Windows Forms　Module　TestAssemblySub　Main()MessageBox Show( Dynamically　Created　Code! )End　SubEnd　Module　

这个简单的例子显示了一个对话框注意vbCrLf的使用如果你不使用这一方法那编译器会发送给你一个错误信息 vbCrLf条目在该代码中所起的作用与在程序代码中的作用相同只是添加的方式不一样

从这一点老说你最后会用Comp CompileAsseblyFromSource（）方法编译代码当使用DOM模式和文件的时候可以使用这一方法而在所有三种情况中编译器用参数和源代码创建了你请求的输出该运算的输出出现在Executable中是CompilerResults类型

编译的失败次数多于程序员的预计无论你是在哪里使用动态编码技巧你必须假设会出现失败的情况以及处理失败的方案在本例中代码寻找的是错误并在编译失败时将其展示在了信息框中否则代码会依赖于Process Start（）方法来启用可执行文件

底线

动态编码技巧并不是万能钥匙当你为开发问题找到了好的静态解决方案时当然也可以使用但是在我们所列出的情况中没有可行的静态方案因此要选择动态编码技巧大多数情况下要用动态编码技巧解决以下问题

◆ 用户的环境会以不可预见的方式更改时

◆ 无法控制用户电脑的安装

◆ 用户或应用程序都添加了你要用控件执行的数据要素

◆ 应用程序必须执行很早以前的安装任务且这些任务与电脑环境网络或其他不确定因素联系紧密时

◆ 应用程序要执行了处理级别的任务且这些任务取决于机器连接或其他状况

lishixinzhi/Article/program/ASP/201311/21812

关于vb.net代码生成器和vbnet web编程的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。