求教OCX工程问题

求教OCX工程问题
如何得到应用 OCX 的工程名称呢 --------------------编程问答-------------------- 工程名,这个无解的 --------------------编程问答-------------------- ocx就是dll,和exe有多少区别.

从文件里面解析出来? --------------------编程问答-------------------- 这个，得到工程名称？能说清楚点吗？从功能上讲，OCX,DLL和EXE其实没什么差别。 --------------------编程问答-------------------- 做成事件，或者在初始化的时候让主程序传进去

App.Name --------------------编程问答-------------------- “工程名”肯定是直接取不到的，但是可以取程序的窗口名、exe文件名。

取不到工程名的原因很简单，因为VB写的OCX是通用的，你要知道，用VC++、Delphi、C#甚至浏览器都可以来调用，你说这些东西哪有“工程名”这个概念。 --------------------编程问答-------------------- Ocx中定义一个方法

public function GetProjectName as string
GetProjectName =app.title
end function --------------------编程问答-------------------- 解析类型库可以得到工程名

引用　typelib inforxxxx

　　　　

　　　　'// 这是摘抄的部分代码 最下面那行 tlbinfo.name 就是工程名



　　    '// 这个代码是实现加载插件的

       

        Dim TlbInfo As TypeLibInfo

        Set TlbInfo = TypeLibInfoFromFile(文件名)



        If Err.Number = 0 Then

   '         TlbInfo.Register 　

            datAddin.ProjectName = TlbInfo.Name

补充：VB ,  COM/DCOM/COM+