VB.NET ConstructorBuilder.SetCustomAttribute方法代码示例

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› VB.NET›VB.NET教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

本文整理汇总了VB.NET中System.Reflection.Emit.ConstructorBuilder.SetCustomAttribute方法的典型用法代码示例。如果您正苦于以下问题：VB.NET ConstructorBuilder.SetCustomAttribute方法的具体用法？VB.NET ConstructorBuilder.SetCustomAttribute怎么用？VB.NET ConstructorBuilder.SetCustomAttribute使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Reflection.Emit.ConstructorBuilder的用法示例。

在下文中一共展示了ConstructorBuilder.SetCustomAttribute方法的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于我们的系统推荐出更棒的VB.NET代码示例。

示例1: MyAttribute

' 导入命名空间
Imports System.Threading
Imports System.Reflection
Imports System.Reflection.Emit


<AttributeUsage(AttributeTargets.All, AllowMultiple := False)>  _
Public Class MyAttribute
   Inherits Attribute
   Public myString As String
   Public myInteger As Integer
   
   Public Sub New(myString As String, myInteger As Integer)
      Me.myString = myString
      Me.myInteger = myInteger
   End Sub
End Class

Public Class MyConstructorBuilder
   
   Public Shared Sub Main()
      Dim myHelloworld As Type = MyCreateCallee(Thread.GetDomain())
      Dim myConstructor As ConstructorInfo = myHelloworld.GetConstructor(New Type() _ 
                                                                       {GetType(String)})
      Dim myAttributes1 As Object() = myConstructor.GetCustomAttributes(True)
      Console.WriteLine("MyAttribute custom attribute contains  ")
      Dim index As Integer
      For index = 0 To myAttributes1.Length - 1
         If TypeOf myAttributes1(index) Is MyAttribute Then
            Console.WriteLine("The value of myString is : " + CType(myAttributes1(index), _ 
                                                                       MyAttribute).myString)
            Console.WriteLine("The value of myInteger is : " + CType(myAttributes1(index), _ 
                                                            MyAttribute).myInteger.ToString())
         End If
      Next index
   End Sub
   
   Private Shared Function MyCreateCallee(domain As AppDomain) As Type
      Dim myAssemblyName As New AssemblyName()
      myAssemblyName.Name = "EmittedAssembly"
      ' Define a dynamic assembly in the current application domain.
      Dim myAssembly As AssemblyBuilder = domain.DefineDynamicAssembly _ 
                                          (myAssemblyName, AssemblyBuilderAccess.Run)
      ' Define a dynamic module in this assembly.
      Dim myModuleBuilder As ModuleBuilder = myAssembly.DefineDynamicModule("EmittedModule")
      ' Construct a 'TypeBuilder' given the name and attributes.
      Dim myTypeBuilder As TypeBuilder = myModuleBuilder.DefineType _ 
                                                       ("HelloWorld", TypeAttributes.Public)
      ' Define a constructor of the dynamic class.
      Dim myConstructor As ConstructorBuilder = myTypeBuilder.DefineConstructor _ 
             (MethodAttributes.Public, CallingConventions.Standard, New Type() {GetType(String)})
      Dim myILGenerator As ILGenerator = myConstructor.GetILGenerator()
      myILGenerator.Emit(OpCodes.Ldstr, "Constructor is invoked")
      myILGenerator.Emit(OpCodes.Ldarg_1)
      Dim myMethodInfo As MethodInfo = GetType(Console).GetMethod("WriteLine", New Type() _ 
                                                                           {GetType(String)})
      myILGenerator.Emit(OpCodes.Call, myMethodInfo)
      myILGenerator.Emit(OpCodes.Ret)
      Dim myType As Type = GetType(MyAttribute)
      Dim myConstructorInfo As ConstructorInfo = myType.GetConstructor(New Type(1) _ 
                                                           {GetType(String), GetType(Integer)})
      Dim attributeBuilder As New CustomAttributeBuilder _ 
                                  (myConstructorInfo, New Object(1) {"Hello", 2})
      Try
         myConstructor.SetCustomAttribute(attributeBuilder)
      Catch ex As ArgumentNullException
         Console.WriteLine("The following exception has occurred : " + ex.Message)
      Catch ex As Exception
         Console.WriteLine("The following exception has occurred : " + ex.Message)
      End Try
      Return myTypeBuilder.CreateType()
   End Function 'MyCreateCallee
End Class

开发者ID:VB.NET开发者，项目名称:System.Reflection.Emit，代码行数:73，代码来源:ConstructorBuilder.SetCustomAttribute

示例2: MyAttribute

' 导入命名空间
Imports System.Threading
Imports System.Reflection
Imports System.Reflection.Emit

<AttributeUsage(AttributeTargets.All, AllowMultiple := False)>  _
Public Class MyAttribute
   Inherits Attribute
   Public myBoolean As Boolean

   Public Sub New(myBoolean As Boolean)
      Me.myBoolean = myBoolean
   End Sub
End Class

Public Class MyConstructorBuilder

   Public Shared Sub Main()
      Dim myHelloworld As Type = MyCreateCallee(Thread.GetDomain())
      Dim myConstructor As ConstructorInfo = myHelloworld.GetConstructor(New Type() _
                                                                        {GetType(String)})
      Dim myAttributes1 As Object() = myConstructor.GetCustomAttributes(True)
      Console.WriteLine("MyAttribute custom attribute contains  ")
      Dim index As Integer
      For index = 0 To myAttributes1.Length - 1
         If TypeOf myAttributes1(index) Is MyAttribute Then
            Console.WriteLine("myBoolean : " + _
                               CType(myAttributes1(index), MyAttribute).myBoolean.ToString())
         End If
      Next index
   End Sub

   Private Shared Function MyCreateCallee(domain As AppDomain) As Type
      Dim myAssemblyName As New AssemblyName()
      myAssemblyName.Name = "EmittedAssembly"
      ' Define a dynamic assembly in the current application domain.
      Dim myAssembly As AssemblyBuilder = domain.DefineDynamicAssembly _
                                       (myAssemblyName, AssemblyBuilderAccess.Run)
      ' Define a dynamic module in this assembly.
      Dim myModuleBuilder As ModuleBuilder = myAssembly.DefineDynamicModule("EmittedModule")
      ' Construct a 'TypeBuilder' given the name and attributes.
      Dim myTypeBuilder As TypeBuilder = myModuleBuilder.DefineType _
                                                       ("HelloWorld", TypeAttributes.Public)
      ' Define a constructor of the dynamic class.
      Dim myConstructor As ConstructorBuilder = myTypeBuilder.DefineConstructor _
                (MethodAttributes.Public, CallingConventions.Standard, New Type() {GetType(String)})
      Dim myILGenerator As ILGenerator = myConstructor.GetILGenerator()
      myILGenerator.Emit(OpCodes.Ldstr, "Constructor is invoked")
      myILGenerator.Emit(OpCodes.Ldarg_1)
      Dim myMethodInfo As MethodInfo = GetType(Console).GetMethod("WriteLine", New Type() _
                                                                          {GetType(String)})
      myILGenerator.Emit(OpCodes.Call, myMethodInfo)
      myILGenerator.Emit(OpCodes.Ret)
      Dim myType As Type = GetType(MyAttribute)
      Dim myConstructorInfo As ConstructorInfo = myType.GetConstructor(New Type() {GetType(Boolean)})
      Try
         myConstructor.SetCustomAttribute(myConstructorInfo, New Byte() {1, 0, 1})
      Catch ex As ArgumentNullException
         Console.WriteLine("The following exception has occurred : " + ex.Message)
      Catch ex As Exception
         Console.WriteLine("The following exception has occurred : " + ex.Message)
      End Try
      Return myTypeBuilder.CreateType()
   End Function 'MyCreateCallee
End Class

开发者ID:VB.NET开发者，项目名称:System.Reflection.Emit，代码行数:65，代码来源:ConstructorBuilder.SetCustomAttribute

注：本文中的System.Reflection.Emit.ConstructorBuilder.SetCustomAttribute方法示例由纯净天空整理自Github/MSDocs等源码及文档管理平台，相关代码片段筛选自各路编程大神贡献的开源项目，源码版权归原作者所有，传播和使用请参考对应项目的License；未经允许，请勿转载。