Question

VB如何调用带窗体的DLL

在此知道问答中的例子能正确运行，但我想知道如果在vbmytestdll工程中添加一个窗体，并添加一个text1，其text属性为“test.caption”，类模块中代码更改为
P百度ublic F百度unction dlltest1() As String
dlltest1 = "HELLO WORLD" & text1.text
E百度nd F百度unction
调用此DLL的代码不变，这时就会出错，请教如何才能正确运行？我的问题主要是带窗体的DLL，其窗体上控件的属性如何引用？
http://zhidao.baidu.com/link?url=zEoWQaIuiEujcYfT_P4jpRGUvWyeQcNmtYJ0CyndygFISwWZLaWx748WI_0l9kt_U-vDF5Vs1l7X6tz1sALJ6a

Answer 1

直接在类模块中调用需要的属性，既然已经写到类模块份上，我相信下面的代码你应该能够完全看得懂！

创建一个Dll，按以下步骤操作:

1、里面添加一个窗体Form1，

2、修改窗体的名称为“mmForm”，

3、在窗体上添加一个Text1文本框，将文本框里面输入文字：”你好，世界！“

4、修改类模块名称为mmClass

5、在类模块中添加以下代码，为了方便你阅读，我将类模块代码尽可能简化处理，代码如下：

Public strFT As String   '用来存储Text1.Text值

Public Sub SayHi()    '这个是类模块的一个方法
    MsgBox "Hello, World!"
End Sub

Private Sub Class_Initialize()    '类模块初始化命令，在该命令中读取mmForm.Text1.text
    strFT = mmForm.Text1.Text
End Sub

6、保存以上代码，生成Dll文件，命名为xxDll。

7、新建一个标准Exe文件，在工程 - ”引用“ - ”浏览“ 中引用刚才的Dll文件 - xxDll

8、在这个标准exe工程的Form1中，添加一个按钮，整个Form1的代码如下：

Dim mm As mmClass   '创建一个我们自己类的变量mm

Private Sub Command1_Click()
    Set mm = New mmClass   '生成类mmClass的实例
    mm.SayHi    '调用类mmClass的SayHi方法
    MsgBox mm.strFT   '用Msgbox函数返回mmForm.Text1.Text的值。
End Sub

9、点击按钮运行，完成！

Answer 2

直接引用Import关键字就能调用
Import [DLL名称]

Answer 3

P百度ublic F百度unction dlltest1() As String
dlltest1 = "HELLO WORLD" & text1.text
E百度nd F百度unction
VB认识不了，要改成：
Public Function dlltest1() As String
dlltest1 = "HELLO WORLD" & text1.text
End Function
或者：
Public Function dlltest2() As String
dlltest1 = "HELLO WORLD" & text1.text
End Function

其中Public Function，End Function都是关键字，更改要注意，建议你看地一下VB的基础书