VB.Net by API/System/Activator

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

Activator.CreateInstance

<source lang="vbnet">

imports System.Reflection Imports System.Windows.Forms Public Class Tester

   Public Shared Sub Main
     try
       dim strUrl as String = "http" & "://localhost/MultiFileAssyVB/vbDeploy.exe"
       dim a as [Assembly] = [Assembly].LoadFrom(strUrl)
       dim t as Type = a.GetType("Form1")
       dim o as Object = Activator.CreateInstance(t)
       dim frm as Form = CType(o, Form)
       frm.Show()
     catch ex as Exception
       Console.WriteLine(ex.ToString)
     End Try         
   End Sub

End Class


 </source>