Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| '<Snippet1> | |
| Imports System | |
| Imports System.Reflection | |
| Class BadExample | |
| Shared Sub Main() | |
| Dim ad As AppDomain = AppDomain.CreateDomain("Test") | |
| AddHandler ad.AssemblyResolve, AddressOf MyHandler | |
| Try | |
| Dim obj As object = ad.CreateInstanceAndUnwrap( | |
| "MyAssembly, version=1.2.3.4, culture=neutral, publicKeyToken=null", | |
| "MyType") | |
| Catch ex As Exception | |
| Console.WriteLine(ex.Message) | |
| End Try | |
| End Sub | |
| Shared Function MyHandler(ByVal source As Object, _ | |
| ByVal e As ResolveEventArgs) As Assembly | |
| Console.WriteLine("Resolving {0}", e.Name) | |
| Return Assembly.Load(e.Name) | |
| End Function | |
| End Class | |
| ' This example produces output similar to the following: | |
| ' | |
| 'Resolving MyAssembly, Version=1.2.3.4, Culture=neutral, PublicKeyToken=null | |
| 'Resolving MyAssembly, Version=1.2.3.4, Culture=neutral, PublicKeyToken=null | |
| '... | |
| 'Resolving MyAssembly, Version=1.2.3.4, Culture=neutral, PublicKeyToken=null | |
| 'Resolving MyAssembly, Version=1.2.3.4, Culture=neutral, PublicKeyToken=null | |
| ' | |
| 'Process is terminated due to StackOverflowException. | |
| '</Snippet1> |