知识大全 用.NET动态创建类的实例讲解

Posted 2022-07-16 文件

篇首语：老板给了我份说炒就炒的鱿鱼，我给了板来了份说滚就滚的旅行。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 用.NET动态创建类的实例讲解相关的知识，希望对你有一定的参考价值。

用.NET动态创建类的实例讲解  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　看了网上很多关于DotNet动态创建类的实例的文章 我这里想总结一下 其实方法很简单 就是用 Activator CreateInstance 但是这个方法需要待创建的类的Type作为参数 为了获得该参数 可以利用[Assembly] GetType方法 这个方法只需要待创建的类的名称(名称字符串)就可以了 最后的问题就是要获得这个类所在的程序集 如何获得待创建的类所在程序集 那么就解决了这个问题

　　大家可以参考// cnblogs /ShadowK/archive/ / / / 费了很多笔墨写了一个比较完整的动态构造类的设计器 其实 在获得程序集这个问题上 可以有更简单的办法 以下是我的做法

　　利用Microsoft VisualBasic VBCodeProvider() 如果是C#可以用CSharpCodeProvider() 将类文件编译成为DLL文件 然后利用[Assembly] LoadFrom( DLL 的绝对路径 )加载该DLL 这样我们可以避免在那些创建DLL和Type的复杂代码 我告诉我的项目组成员这个例子后 强调要打开思路 Simple is perfect 凡事都尽量找简便的方法来实现 客户永远不会为我们那些复杂的代码多花一分钱

　　 执行编译任务的方法

以下是引用片段 　　Public Shared Function CompileExecutable()Function CompileExecutable(ByVal sourceName As String  ByVal DLLPath As String  ByRef ReturnDLLName As String) As Boolean 　　Dim sourceFile As FileInfo = New FileInfo(sourceName) 　　Dim provider As CodeDomProvider = Nothing 　　Dim pileOk As Boolean = False 　　  根据原文件的扩展名选择code provider 　　If sourceFile Extension ToUpper(CultureInfo InvariantCulture) =  CS  Then 　　provider = New Microsoft CSharp CSharpCodeProvider() 　　ElseIf sourceFile Extension ToUpper(CultureInfo InvariantCulture) =  VB  Then 　　provider = New Microsoft VisualBasic VBCodeProvider() 　　Else 　　Console WriteLine( 原文件必须包含  cs 或  vb 扩展名 ) 　　End If 　　If Not provider Is Nothing Then 　　  构造DLL文件的全路径 　　Dim dllName As String = String Format( \\ dll  _ 　　DLLPath  _ 　　sourceFile Name Replace(   _ )) 　　ReturnDLLName = dllName 　　Dim cp As CompilerParameters = New CompilerParameters() 　　  设置编译控制参数 　　cp GenerateExecutable = False  生成DLL 如果是True则生成exe文件 　　cp OutputAssembly = dllName 　　cp GenerateInMemory = False 　　cp TreatWarningsAsErrors = False 　　  调用编译方法将原代码文件编译成DLL 　　Dim cr As CompilerResults = provider CompileAssemblyFromFile(cp  _ 　　sourceName) 　　If cr Errors Count >   Then 　　  显示编译错误 　　Console WriteLine( 编译错误   编译成   _ 　　sourceName  cr PathToAssembly) 　　Dim ce As CompilerError 　　For Each ce In cr Errors 　　Console WriteLine(    ce ToString()) 　　Console WriteLine() 　　Next ce 　　Else 　　  显示编译成功的消息 　　Console WriteLine( 原文件   编译成   成功完成  _ 　　sourceName  cr PathToAssembly) 　　End If 　　  返回编译结果 　　If cr Errors Count >   Then 　　pileOk = False 　　Else 　　pileOk = True 　　End If 　　End If 　　Return pileOk 　　End Function

　　 编译DLL 并动态创建类的实例 (这里类的原文件是Class vb文件 放在WebSite的App_Code文件夹中了 实际使用时可以放在任意物理位置 )

以下是引用片段 　　Dim strSourceFileName As String = Server MapPath( ~/App_Code/Class vb )  类文件的全路径 　　Dim strDllPath As String = Server MapPath( ~/App_Code )  编译后的DLL文件存放的位置 　　Dim strDllName As String =    DLL的全路径(返回值) 　　CompileExecutable(strSourceFileName  strDllPath  strDllName)  编译原文件为DLL文件 　　Dim a As [Assembly] = [Assembly] LoadFrom(strDllName)  加载DLL 　　Dim myType As System Type = a GetType( Class )  获得Class 的Type 　　Dim obj As Object = Activator CreateInstance(myType)  获得Class 的实例

　　 Class vb原文件

相关参考