ModuleBuilder Class
Assembly: mscorlib (in mscorlib.dll)
'Declaration <ComVisibleAttribute(True)> _ <ClassInterfaceAttribute(ClassInterfaceType.None)> _ Public Class ModuleBuilder Inherits Module Implements _ModuleBuilder 'Usage Dim instance As ModuleBuilder
/** @attribute ComVisibleAttribute(true) */ /** @attribute ClassInterfaceAttribute(ClassInterfaceType.None) */ public class ModuleBuilder extends Module implements _ModuleBuilder
ComVisibleAttribute(true) ClassInterfaceAttribute(ClassInterfaceType.None) public class ModuleBuilder extends Module implements _ModuleBuilder
Note |
|---|
| The HostProtectionAttribute attribute applied to this class has the following Resources property value: MayLeakOnAbort. The HostProtectionAttribute does not affect desktop applications (which are typically started by double-clicking an icon, typing a command, or entering a URL in a browser). For more information, see the HostProtectionAttribute class or SQL Server Programming and Host Protection Attributes. |
The following code sample demonstrates the use of ModuleBuilder to create a dynamic module. Note that the ModuleBuilder is created by calling DefineDynamicModule in AssemblyBuilder, rather than through a constructor.
Imports System Imports System.Reflection Imports System.Reflection.Emit Imports System.Security.Permissions Public Class CodeGenerator Private myAssemblyBuilder As AssemblyBuilder Public Sub New() ' Get the current application domain for the current thread. Dim myCurrentDomain As AppDomain = AppDomain.CurrentDomain Dim myAssemblyName As New AssemblyName() myAssemblyName.Name = "TempAssembly" ' Define a dynamic assembly in the current application domain. myAssemblyBuilder = _ myCurrentDomain.DefineDynamicAssembly(myAssemblyName, AssemblyBuilderAccess.Run) ' Define a dynamic module in this assembly. Dim myModuleBuilder As ModuleBuilder = myAssemblyBuilder.DefineDynamicModule("TempModule") ' Define a runtime class with specified name and attributes. Dim myTypeBuilder As TypeBuilder = _ myModuleBuilder.DefineType("TempClass", TypeAttributes.Public) ' Add 'Greeting' field to the class, with the specified attribute and type. Dim greetingField As FieldBuilder = _ myTypeBuilder.DefineField("Greeting", GetType(String), FieldAttributes.Public) Dim myMethodArgs As Type() = {GetType(String)} ' Add 'MyMethod' method to the class, with the specified attribute and signature. Dim myMethod As MethodBuilder = _ myTypeBuilder.DefineMethod("MyMethod", MethodAttributes.Public, _ CallingConventions.Standard, Nothing, myMethodArgs) Dim methodIL As ILGenerator = myMethod.GetILGenerator() methodIL.EmitWriteLine("In the method...") methodIL.Emit(OpCodes.Ldarg_0) methodIL.Emit(OpCodes.Ldarg_1) methodIL.Emit(OpCodes.Stfld, greetingField) methodIL.Emit(OpCodes.Ret) myTypeBuilder.CreateType() End Sub 'New Public ReadOnly Property MyAssembly() As AssemblyBuilder Get Return Me.myAssemblyBuilder End Get End Property End Class 'CodeGenerator Public Class TestClass <PermissionSetAttribute(SecurityAction.Demand, Name:="FullTrust")> _ Public Shared Sub Main() Dim myCodeGenerator As New CodeGenerator() ' Get the assembly builder for 'myCodeGenerator' object. Dim myAssemblyBuilder As AssemblyBuilder = myCodeGenerator.MyAssembly ' Get the module builder for the above assembly builder object . Dim myModuleBuilder As ModuleBuilder = myAssemblyBuilder.GetDynamicModule("TempModule") Console.WriteLine("The fully qualified name and path to this " + _ "module is :" + myModuleBuilder.FullyQualifiedName) Dim myType As Type = myModuleBuilder.GetType("TempClass") Dim myMethodInfo As MethodInfo = myType.GetMethod("MyMethod") ' Get the token used to identify the method within this module. Dim myMethodToken As MethodToken = myModuleBuilder.GetMethodToken(myMethodInfo) Console.WriteLine("Token used to identify the method of 'myType'" + _ " within the module is {0:x}", myMethodToken.Token) Dim args As Object() = {"Hello."} Dim myObject As Object = Activator.CreateInstance(myType, Nothing, Nothing) myMethodInfo.Invoke(myObject, args) End Sub 'Main End Class 'TestClass
Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition
The .NET Framework does not support all versions of every platform. For a list of the supported versions, see System Requirements.
Note