本文整理匯總了VB.NET中System.Reflection.Emit.MethodBuilder.DeclaringType屬性的典型用法代碼示例。如果您正苦於以下問題：VB.NET MethodBuilder.DeclaringType屬性的具體用法？VB.NET MethodBuilder.DeclaringType怎麽用？VB.NET MethodBuilder.DeclaringType使用的例子？那麽, 這裏精選的屬性代碼示例或許可以為您提供幫助。您也可以進一步了解該屬性所在類System.Reflection.Emit.MethodBuilder的用法示例。
在下文中一共展示了MethodBuilder.DeclaringType屬性的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Main
' 導入命名空間
Imports System.Reflection
Imports System.Reflection.Emit
Public Class MethodBuilderClass
Public Shared Sub Main()
Try
' Get the current AppDomain.
Dim myAppDomain As AppDomain = AppDomain.CurrentDomain
Dim myAssemblyName As New AssemblyName()
myAssemblyName.Name = "MyDynamicAssembly"
' Create the dynamic assembly and set its access mode to 'Save'.
Dim myAssemblyBuilder As AssemblyBuilder = myAppDomain.DefineDynamicAssembly _
(myAssemblyName, AssemblyBuilderAccess.Save)
' Create a dynamic module 'myModuleBuilder'.
Dim myModuleBuilder As ModuleBuilder = myAssemblyBuilder.DefineDynamicModule _
("MyDynamicModule", True)
' Define a public class 'MyDynamicClass'.
Dim myTypeBuilder As TypeBuilder = myModuleBuilder.DefineType _
("MyDynamicClass", TypeAttributes.Public)
' Define a public string field named 'myField'.
Dim myField As FieldBuilder = myTypeBuilder.DefineField("MyDynamicField", _
GetType(String), FieldAttributes.Public)
' Define the dynamic method 'MyDynamicMethod'.
Dim myMethodBuilder As MethodBuilder = myTypeBuilder.DefineMethod("MyDynamicMethod", _
MethodAttributes.Private, GetType(Integer), New Type() {})
' Generate the IL for 'myMethodBuilder'.
Dim myMethodIL As ILGenerator = myMethodBuilder.GetILGenerator()
' Emit the necessary opcodes.
myMethodIL.Emit(OpCodes.Ldarg_0)
myMethodIL.Emit(OpCodes.Ldfld, myField)
myMethodIL.Emit(OpCodes.Ret)
' Create 'myTypeBuilder' class.
Dim myType1 As Type = myTypeBuilder.CreateType()
' Get the method information of 'myTypeBuilder'.
Dim myInfo As MethodInfo() = myType1.GetMethods(BindingFlags.NonPublic Or _
BindingFlags.Instance)
' Print non-public methods present of 'myType1'.
Console.WriteLine(ControlChars.Newline + "The Non-Public methods present in 'myType1' are:" + _
ControlChars.NewLine)
Dim i As Integer
For i = 0 To myInfo.Length - 1
Console.WriteLine(myInfo(i).Name)
Next i
' Print the 'Attribute', 'Signature' of 'myMethodBuilder'.
Console.WriteLine(ControlChars.Newline + "The Attribute of 'MyDynamicMethod' is :{0}", _
myMethodBuilder.Attributes)
Console.WriteLine(ControlChars.Newline + "The Signature of 'MyDynamicMethod' is : " + _
ControlChars.Newline + myMethodBuilder.Signature)
Catch e As Exception
Console.WriteLine("Exception :{0}", e.Message)
End Try
End Sub
End Class