深圳博客技术论坛 » 【编程讨论学习】 » 『VB.NET技术』 » vb.net动态加载程序集并且调用集合方法

1/1页1 跳转到页查看:1493

发新话题

回复该主题

vb.net动态加载程序集并且调用集合方法

组别:版主
性别:
积分:41
帖子:41

2008-05-01 11:43 | 只看楼主 树型| 收藏| 小中大 1^#

vb.net动态加载程序集并且调用集合方法

Imports System
Imports System.Reflection
Imports System.IO

Namespace RemoteUser
Public Class RemoteUserClass
Public Sub New()

'装载程序集。
Dim name As New AssemblyName()
name.CodeBase = "file://" + Directory.GetCurrentDirectory() + "\" + "WorkQueueLib.dll"
Dim assembly As Assembly = AppDomain.CurrentDomain.Load(name)

' 实例化自定义控件方法1。
Dim remoteObj As Object = assembly.CreateInstance("WorkQueueLib.VBWorkQueue.Queue")

'实例化自定义控件方法2。
'Dim Queue As Object = remoteType.InvokeMember(Nothing, _
' BindingFlags.DeclaredOnly Or _
' BindingFlags.Public Or _
' BindingFlags.NonPublic Or _
' BindingFlags.Instance Or _
' BindingFlags.CreateInstance, _
' Nothing, _
' Nothing, _
' Nothing)

'获得程序集类型。
Dim remoteType As Type = assembly.[GetType]("WorkQueueLib.VBWorkQueue.Queue")

'设置空间随窗体改变大小。
remoteObj.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or _
System.Windows.Forms.AnchorStyles.Bottom) Or _
System.Windows.Forms.AnchorStyles.Left) Or _
System.Windows.Forms.AnchorStyles.Right), _
System.Windows.Forms.AnchorStyles)

'obj2.Location = New System.Drawing.Point(171, 190)
remoteObj.Name = "Queue"
remoteObj.Size = New System.Drawing.Size(500, 253)
Form1.Controls.Add(remoteObj)

' Call the method
Dim method As MethodInfo = remoteType.GetMethod("InitOutlook1")

'给调用方法传递参数。
method.Invoke(remoteObj, Nothing)

Dim method1 As MethodInfo = remoteType.GetMethod("InitAllFloders")

''参数集合
method1.Invoke(remoteObj, New Object() {Form1.TreeView1, True})

End Sub
End Class
End Namespace

<<上一主题|下一主题>>

1/1页1 跳转到页

发表新主题

回复该主题