в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:50:48Z

1 версия

Новая страница

==Assembly.CodeBase==

<source lang="vbnet">
Imports System.Reflection
Module Module1
Sub Main()
Dim thisAssembly As [Assembly] = [Assembly].GetExecutingAssembly()
Console.WriteLine("Code base: " & thisAssembly.CodeBase)
Console.WriteLine("Full name: " & thisAssembly.FullName)
Console.WriteLine("Entry point: " & thisAssembly.EntryPoint.ToString())
Console.WriteLine("From Global Assembly Cache: " & thisAssembly.GlobalAssemblyCache)
Console.WriteLine("Location: " & thisAssembly.Location)
End Sub
End Module

</source>

==Assembly.EntryPoint==

<source lang="vbnet">
Imports System.Reflection
Module Module1
Sub Main()
Dim thisAssembly As [Assembly] = [Assembly].GetExecutingAssembly()
Console.WriteLine("Code base: " & thisAssembly.CodeBase)
Console.WriteLine("Full name: " & thisAssembly.FullName)
Console.WriteLine("Entry point: " & thisAssembly.EntryPoint.ToString())
Console.WriteLine("From Global Assembly Cache: " & thisAssembly.GlobalAssemblyCache)
Console.WriteLine("Location: " & thisAssembly.Location)
End Sub
End Module

</source>

==Assembly.FullName==

<source lang="vbnet">
Imports System.Reflection
Public Class Tester
Public Shared Sub Main

Dim myCurrentAppDomain As AppDomain
Dim myAssemblies() As [Assembly]
Dim myAssembly As [Assembly]
Try
myCurrentAppDomain = AppDomain.CurrentDomain
myAssemblies = myCurrentAppDomain.GetAssemblies
For Each myAssembly In myAssemblies
Console.WriteLine(myAssembly.FullName)
Next
Console.WriteLine(myCurrentAppDomain.FriendlyName)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try

End Sub
End Class

</source>

==Assembly.GetCustomAttributes==

<source lang="vbnet">
Imports System.Reflection

Public Class MainClass
Public Shared Sub Main()
Dim ThisAssembly As [Assembly] = [Assembly].GetExecutingAssembly()
Dim Attr As Attribute
For Each Attr In ThisAssembly.GetCustomAttributes(False)
Console.WriteLine(Attr)
Next
End Sub
End Class

</source>

==Assembly.GetExecutingAssembly()==

<source lang="vbnet">
Imports System.Reflection
Class A
End Class
Class B
End Class
Class C
End Class
Class D
End Class

Public Class MainClass
Public Shared Sub Main()
Dim ThisAssembly As [Assembly] = [Assembly].GetExecutingAssembly()
Dim TypeObj As Type
For Each TypeObj In ThisAssembly.GetTypes()
Console.WriteLine(TypeObj.Name)
Next
End Sub
End Class

</source>

==Assembly.GetLoadedModules()==

<source lang="vbnet">

Imports System.Text
Imports System.Security.Cryptography
Public Class Tester
Public Shared Sub Main
Dim useAssembly As System.Reflection.Assembly
Try
useAssembly = Reflection.Assembly.LoadFile("YourAssemblyLocation")
Catch ex As System.Exception
Console.WriteLine(ex.Message)
Return
End Try

Console.WriteLine("Full Name: " & useAssembly.FullName)
Console.WriteLine("Resources")
For Each oneName As String In useAssembly.GetManifestResourceNames()
Console.WriteLine(" - " & oneName)
Next oneName
Console.WriteLine("Exported Types")
For Each oneType As System.Type In useAssembly.GetExportedTypes()
Console.WriteLine(" - " & oneType.Name)
Next oneType
Console.WriteLine("Modules")
For Each oneModule As Reflection.Module In useAssembly.GetLoadedModules()
Console.WriteLine(" - " & oneModule.Name)
For Each oneType As System.Type In oneModule.GetTypes()
Console.WriteLine(" Type: " & oneType.Name)
For Each oneField As Reflection.FieldInfo In oneType.GetFields()
Console.WriteLine(" Field: " & oneField.ToString())
Next oneField
For Each oneMethod As Reflection.MethodInfo In oneType.GetMethods()
Console.WriteLine(" Method: " & oneMethod.ToString())
Next oneMethod
Next oneType
Next oneModule
End Sub
End Class

</source>

==Assembly.GetManifestResourceNames()==

<source lang="vbnet">

Imports System.Text
Imports System.Security.Cryptography
Public Class Tester
Public Shared Sub Main
Dim useAssembly As System.Reflection.Assembly
Try
useAssembly = Reflection.Assembly.LoadFile("YourAssemblyLocation")
Catch ex As System.Exception
Console.WriteLine(ex.Message)
Return
End Try

Console.WriteLine("Full Name: " & useAssembly.FullName)
Console.WriteLine("Resources")
For Each oneName As String In useAssembly.GetManifestResourceNames()
Console.WriteLine(" - " & oneName)
Next oneName
Console.WriteLine("Exported Types")
For Each oneType As System.Type In useAssembly.GetExportedTypes()
Console.WriteLine(" - " & oneType.Name)
Next oneType
Console.WriteLine("Modules")
For Each oneModule As Reflection.Module In useAssembly.GetLoadedModules()
Console.WriteLine(" - " & oneModule.Name)
For Each oneType As System.Type In oneModule.GetTypes()
Console.WriteLine(" Type: " & oneType.Name)
For Each oneField As Reflection.FieldInfo In oneType.GetFields()
Console.WriteLine(" Field: " & oneField.ToString())
Next oneField
For Each oneMethod As Reflection.MethodInfo In oneType.GetMethods()
Console.WriteLine(" Method: " & oneMethod.ToString())
Next oneMethod
Next oneType
Next oneModule
End Sub
End Class

</source>

==Assembly.GetReferencedAssemblies()==

<source lang="vbnet">
Imports System.Reflection
Module Module1
Sub Main()
Dim thisAssembly As [Assembly] = [Assembly].GetExecutingAssembly()
Console.WriteLine("Referenced Assemblies: ")
Dim RefAssembly As AssemblyName
For Each RefAssembly In thisAssembly.GetReferencedAssemblies()
Console.WriteLine(RefAssembly.FullName)
Next
End Sub
End Module

</source>

==Assembly.GetTypes()==

<source lang="vbnet">
Imports System
Imports System.Reflection

Public Class MainClass
Shared Sub Main( )
Dim a As [Assembly] = [Assembly].Load("Mscorlib.dll")
Dim theTypes As Type( ) = a.GetTypes( )
Dim t As Type
For Each t In theTypes
Console.WriteLine("Type is {0}", t)
Next t
Console.WriteLine("{0} types found", theTypes.Length)
End Sub

End Class

</source>

==Assembly.GlobalAssemblyCache==

<source lang="vbnet">
Imports System.Reflection
Module Module1
Sub Main()
Dim thisAssembly As [Assembly] = [Assembly].GetExecutingAssembly()
Console.WriteLine("Code base: " & thisAssembly.CodeBase)
Console.WriteLine("Full name: " & thisAssembly.FullName)
Console.WriteLine("Entry point: " & thisAssembly.EntryPoint.ToString())
Console.WriteLine("From Global Assembly Cache: " & thisAssembly.GlobalAssemblyCache)
Console.WriteLine("Location: " & thisAssembly.Location)
End Sub
End Module

</source>

==Assembly.Load==

<source lang="vbnet">
Imports System
Imports System.Reflection

Public Class MainClass
Shared Sub Main( )
Dim a As [Assembly] = [Assembly].Load("Mscorlib.dll")
Dim theTypes As Type( ) = a.GetTypes( )
Dim t As Type
For Each t In theTypes
Console.WriteLine("Type is {0}", t)
Next t
Console.WriteLine("{0} types found", theTypes.Length)
End Sub

End Class

</source>

==Assembly.Location==

<source lang="vbnet">
Imports System.Reflection
Module Module1
Sub Main()
Dim thisAssembly As [Assembly] = [Assembly].GetExecutingAssembly()
Console.WriteLine("Code base: " & thisAssembly.CodeBase)
Console.WriteLine("Full name: " & thisAssembly.FullName)
Console.WriteLine("Entry point: " & thisAssembly.EntryPoint.ToString())
Console.WriteLine("From Global Assembly Cache: " & thisAssembly.GlobalAssemblyCache)
Console.WriteLine("Location: " & thisAssembly.Location)
End Sub
End Module

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System.Reflection/Assembly - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия