vb编写DLL学习

怎样用VB编写DLL文件？？？

你先打开VB，然后先中“ActiveX Dll”工程，然后开始编辑。编完后，保存一般是以“.cls”和“.vbw”保存。这时你选择“文件”菜单，弹出下拉框，选中“生成.dll”选项，它就会在上面弹出一个进度条“正在生成.dll文件”。生成以后是一个有好象齿轮状的图标。

如果你要引用，就开一个“标准EXE”工程，然后在“工程”选项中，单击“引用”，找到你刚才的“.dll”的文件名，在前面的复选框中打勾，就可以引用你刚才在那里面写的方法等。

在vb6里建新工程时选用建立dll 做好后用vb的引用就可以了

VB中创建的DLL只是COM组件，无法作为输出函数的DLL，其实这只是个错误的说法。其实MS 非常狡猾，如果你是个VB疯狂发烧友的话，应该早就狂试出这种可以创建输出函数的DLL的方法。

VB编译文件实际上采取了两次编译的方法，首先是调用C2.exe产生*.OBJ文件，然后调用Link.EXE连接。如果在LINK的时候添加EXPORT选项，实际上是可以输出函数的。但是，在VB的工程选项中将这些屏蔽了。而且过分的是：VB在Build完成后会将OBJ文件删除，这样就无法手动通过Link来创建我们需要的DLL了。不过我找到一个比较龌鹾的变通的方法，就是先创建一个Exe工程，在Form_Load事件里面写下面的语句:

Sub Main

If MsgBox("哈哈", vbOKCancel) = vbOK Then

Shell "link2.exe " & Command$

End If

End Sub

然后编译为LinkTemp.EXE，接下来将LINK.EXE改名为Link2.exe，将LinkTemp.EXE改名为Link.EXE。这样在VB调用Link.EXE时会弹出对话框，处理就会中断。这时就可以有机会将OBJ文件拷贝出来了。然后我创建了一个ActiveX DLL工程，在这个工程里面添加一个Module并创建一个Public函数mathadd：

Public Function mathadd(ByVal a As Long, ByVal b As Long) As Long

mathadd = a + b

End Function

编译这个工程，在Link的时候就会中断。然后把创建的Class1.obj、Module1.obj、Project1.obj备份出来。然后就可以调用Link2.exe连接OBJ到DLL了，我的连接代码是：

Link2.exe "e:\vbdll\Class1.obj" "e:\vbdll\Module1.obj" "e:\vbdll\Project1.obj" "E:\Program Files\Microsoft Visual Studio\VB98\VBAEXE6.LIB" /ENTRY:__vbaS /EXPORT:mathadd /OUT:"e:\vbdll\ProjectOK.dll"

/BASE:0x11000000 /SUBSYSTEM:WINDOWS,4.0 /VERS

注意里面的/ENTRY和/EXPORT开关，/EXPORT开关声明了输出函数mathadd。这样就大功告成了，可以被其他语言引入，例如在VB中，只需要：

Private Declare Function mathadd Lib "e:\vbdll\ProjectOK.dll" (ByVal a As Long, ByVal b As Long) As Long

我现在已经有了一个DLL文件，然后已经编了一个上位机程序，我想将那个DLL动态连接文件直接调用到我的程序里，因为初学VB所以不知道怎么调用已有的DLL文件，请帮忙~~~ 问题补充：我刚才已经把DLL文件有复制到你说的那几个文件夹里了，可是运行.EXE时还是提示找不到DLL文件啊~~~~

1. 我给做了个示例工程:

/kkk.rar

你下载来看看, 里面就两句:

模块中定义:

Public Declare Function fnMyFunc Lib "MYDLL.DLL" () As Long

按钮中放入:

Dim str1 As String

str1 = "函数调用成功"

If (fnMyFunc() = 42) Then MsgBox str1 '注:我那个DLL函数就返回42,其它没有了.

2. 下面重新给个微软的示例代码:

下列示例示范如何使用Call 语句来将控制转移到子过程、内在函数、和动态链接库（DLL）过程，

' 调用一个子过程。

Call PrintToDebugWindow("Hello World")

' 上面的语句将控制转移到下面的子过程。

Sub PrintToDebugWindow(AnyString)

Debug.Print AnyString ' 在“立即”窗口中显示。

End Sub

' 调用一个内在函数，函数的返回值被忽略不处理。

Call Shell(AppName, 1) ' AppName 包含可执行文件的路径。

' 调用Microsoft Windows DLL 过程。该声明语句必需是类模块中的私有的，而不是标准模块中的。Private Declare Sub MessageBeep Lib "User" (ByVal N As Integer)

Sub CallMyDll()

Call MessageBeep(0) ' 调用Windows DLL 过程。

MessageBeep 0 ' 再次调用，但不用“调用”这个关键字。

End Sub

LoadLibrary你试一试，不过这个需要自己做初始化工作。（对应于FreeLibrary）

回答者：feenn - 秀才二级3-9 09:34 这个问题好解决！

你先在运行中输入：regsvr32 dll文件的绝对地址

这样就注册了！

然后你在VB中点工程-》引用，选中刚才注册的文件，

就可以在工程中用了！