请问有用VB开发过带窗体的dll的吗？（急！！！）

Question

我想做一个带窗体的dll，然后在其它程序中调用。请问该如何实现？怎么调用？最好能给出个例子，急！！！谢谢！！！

Answer 1

没做过，很久以前见别人做过，不太记得了，好像是与Exe中一样的吧

Answer 2

我做过，与正常的DLL一样做，直接用Unload Form1 和Form1.show来操作。

Answer 3

这个就包含所有函数信息及如何调用，如何卸载，显示窗体VB传统DLL生成插件安装版 VB DLL LINK .exe
用VB生成标准dll,让任何程序引用.
################################################_____________________________
先送大家一个好工具 CSDN验证码获取器DLL链接库，支持C++,PB,DELPHI,VB等编程编言.
以函数方式获取图像文本，是不是很简单呀？
下载:http://jiyi.org/soft/down/dll/csdnyzm.dll
演示程序：
http://jiyi.org/soft/down/dll/csdnyzmdll.exe
附送：通过本程序生成的:
      CSDN验证码获取器 动态链接库CSDNYZM.DLL
      包含函数：YZM_Csdn(),YZM_ByPicture_Csdn(picfile)
      拥有CSDN验证码器，CSDN登录函数DLL，CSDN登录OCX控件，让您快速登录CSDN!
用法：当您在窗体中加上webbrowser或者下载了CSDN登录验证码图片时就可以马上得到验证码的数字
      在程序中可以直接操作了！
################################################_____________________________
VB传统DLL生成插件安装版 VB DLL LINK .exe
下载:http://jiyi.org/soft/down/tool/vbdlllink.exe
版本：1.0.25
本程序可以自动安装！
用法：先把原C:\Program Files\Microsoft Visual Studio\VB98\link.exe
改名为link2.EXE,然后复制本link.exe到VB98目录。就可以实现输出公共编程语言可调用的传统DLL了！经测试在DLL类模块*.cls中需要加以下函数(一个就够了)：Private Function mathadd()
End Function就可以保证正确输出DLL！逍遥浪子 推荐一个好网站 中国记忆协会网 http://JiYi.ORG/?id=168 一起探讨记忆科学！

Answer 4

其实是project的关系，你平常生成的是标准的exe当建立起一个activex dll的工程的时候，下面可以自由带窗体的但是你atviex dll的主cls中间需要带有接口参数，你在主project进行调用的时候传递参数进去就可以了

Answer 5

新建工程的时候选择建立 ACTIVEX DLL,
然后其他的跟普通EXE工程没什么别了。
比如里面有一个类claA,有一个窗口frmA
类里有一个方法ShowForm
内容如下,frmA.show
那么在其他工程里调用的时候,就可以这样了。
dim cls as new clsA
cls.ShowForm

Answer 6

多得很！
赞同"atila1978(上帝之鞭)"说的

Answer 7

新建工程的时候选择建立 ACTIVEX DLL,
然后其他的跟普通EXE工程没什么别了。
比如里面有一个类claA,有一个窗口frmA
类里有一个方法ShowForm
内容如下,frmA.show
======================================================不是吧。我做测试了。
提示编译的时候提示 '变量没定义'
就停在 frmA.show..  frmA 是另外一个工程的窗体名  找不到了。

Answer 8

在类中定义一个通用的接口，在此启动窗体Public Function Start() As Boolean
    
    On Error GoTo ErrStart
    
        frmDownFrMac.Show 1
        Start = True
    
    Exit Function
ErrStart:
    msgbox Err.Description
    Start = False
End Function调用时代码，假设类名为clsCOM,类工程名为XCOM
private sub xxx
dim x as object
set x=createobject("XCOM.clsCOM")
x.start
end sub