基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：78630559

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

vb.net 根据接口 反射调用DLL里的窗体

 ''' <summary>
    ''' 返回列表
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetTools() As iToolsInterface.ToolsInfo() Implements iToolsInterface.iTools.GetTools
        Dim tp As Type
        Dim re As New List(Of ToolsInfo)
        For Each tp In Reflection.Assembly.GetExecutingAssembly.GetExportedTypes
            If tp.BaseType Is GetType(Form) Then
                Dim ti As New ToolsInfo
                ti.Tag = Me
                ti.Title = tp.Name
                ti.Key = tp.FullName
                ti.Img = My.Resources.ResourceManager.GetObject(tp.Name)
                re.Add(ti)
            End If
        Next
        Return re.ToArray
    End Function