VB.Net Tutorial/Development/AppDomain

Материал из VB Эксперт
Перейти к: навигация, поиск

Create AppDomain and Unload AppDomain

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

   Public Shared Sub Main
   
       Dim myAppDomain As AppDomain
       Try
           myAppDomain = AppDomain.CreateDomain("YourDomain")
           Console.WriteLine(myAppDomain.FriendlyName)
           AppDomain.Unload(myAppDomain)
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try
   End Sub

End Class</source>

YourDomain

CurrentDomain.BaseDirectory()

<source lang="vbnet">public class Test

  public Shared Sub Main
       Console.WriteLine(System.AppDomain.CurrentDomain.BaseDirectory())
  End Sub

End Class</source>

C:\Java_Dev\WEB\dev\VB\

Get all assemblies in a domain

<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>

mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
main, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null
Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
main.exe

Get current Domain

<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>

mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
main, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null
Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
main.exe