@H_502_2@_________________下载原码：____________________________
@H_502_2@-注意：全包括二部分，一定要下载完后，直接解压，在解前不要修改压缩文件名，否不能正常解压！ @H_502_2@ReadDLL-VB.NET.part2.rar 1.3MB
ReadDLL-VB.NET.part1.rar 1.9MB
@H_502_2@下载地址：http://kevery.ys168.com @H_502_2@打开地址后，去到目录表，选择“kevery kevery"目录，再选择“源码”，点击即可下载。 @H_502_2@******************************************************** @H_502_2@
本动画最佳显示效果分辨率:1280*1024像素 @H_502_2@
******************************************************* @H_502_2@关键代码:
1:所须命名空间:Imports System.Reflection
2:本例加载DLL文件对像:Dim TAA As System.Reflection.Assembly
3:用于选择DLL文件代码
OOF.InitialDirectory = Application.StartupPath
OOF.Filter = "DLL文件(*.dll)|*.dll|所有文件(*.*)|*.*"
OOF.ShowDialog()
Dim filename As String
If OOF.FileName.Trim() = "" Then
Return
End If
filename = OOF.FileName.Trim()
TextBox1.Text = filename
4:操作动态载放DLL文件
TAA = System.Reflection.Assembly.LoadFrom(TextBox1.Text)
Dim t As Type = TAA.GetType("MDIC.MDICT") '''MDIC.MDICT为,组件命名空间MDIC;而MDICT为入口类
Dim obj As Object = t.InvokeMember(Nothing,BindingFlags.DeclaredOnly Or _
BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Instance Or _
BindingFlags.CreateInstance,Nothing,Nothing) @H_502_2@ Dim TControl As Object @H_502_2@'''GetMDICPan为MDICT类中的一个方法,返回值为组件
TControl = t.InvokeMember("GetMDICPan",BindingFlags.DeclaredOnly Or BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Instance Or _
BindingFlags.InvokeMethod,obj,Nothing) @H_502_2@ Panel1.Controls.Add(TControl)''''将DLL中的控件添加到面板Panel1中. @H_502_2@
具体操作如下:
1.建立组件工程(命名空间为MDIC),该工程主要为面板控件.并在工程中建立入口类MDICT,且在类中建立一个方法GetMDICPan(),并返回组件.
MDIC.DLL @H_502_2@编译并生成DLL-------------------------------------------结果：MDIC.DLL成功 @H_502_2@ @H_502_2@---------------------- 完成 --------------------- @H_502_2@ 全部重新生成: 1 已成功,0 已失败,0 已跳过 @H_502_2@ @H_502_2@2.建立读DLL工程:ABC
ABC.exe @H_502_2@编译并生成EXE--------------------------------------------结果：ABC.exe @H_502_2@---------------------- 完成 --------------------- @H_502_2@ 全部重新生成: 1 已成功,0 已跳过 @H_502_2@ @H_502_2@
3.其它操作,请看动画.............. @H_502_2@ @H_502_2@
4.测试---------------------------------------------------结果：成功 @H_502_2@
..................................................................................事例完成! @H_502_2@ @H_502_2@附加: 好处是除了是可以动态添加DLL外,它还可以像引用一样,可以任意调用方法或属性,还可以定义一个对像.可以说相当于引用,区别只在于它是动态加载的............................. 原文链接：https://www.f2er.com/vb/258220.html