最近用尝试用VB做DLL，有问题请大家指教一下。

Question

老问题重新问一下。我自己VB6做一个简单的Dll，内部代码如下：  
Public Function Rectangle(a, b As Integer) As Integer  
    Rectangle = a * b  
End Function  
///////////////////////////////////////////////////////////////////////之后我再用VB调用其函数，VB代码如下：  
Private Declare Function Rectangle Lib "MyDll.dll" (ByVal L As Integer, ByVal W As Integer) As Integer  Private Sub Command1_Click()  
Me.Caption = Rectangle(5, 5)  
End Sub  结果运行并单击COmmand1时提示错误：
实时错误‘453’  
找不到DLL入口点Rectangle in MyDll.dll。  ///////////////////////////////////////////////////////////////////////////////////////////////
(注：之前的楼上提的把Public改为Private已经改过，但出现另一种错误)
以上不解，请大家指教！！  以上谢谢！！

Answer 1

对了，之前有前辈说我 a没有声明，我不解……
在Dll是不是已经声明了a,b as integer了吗？
希望帮我解译清楚一点以上谢谢1

Answer 2

这种引用方是标准的Dll才可以
Private Declare Function Rectangle Lib "MyDll.dll" (ByVal L As Integer, ByVal W As Integer) As Integer  
VB的生成Dll不是windows 标准的dll
需通过"工程"-->"引用" 后就可以用了.
 

Answer 3

VB做的是AcvtivX DLL，类似ADO，要象使用ADO一样来用

Answer 4

你要想有入口点,需要对编译过程进行控制网上有不少的插件,最简单的方法,就是自己处理一下LINK.EXE的参数,加上你的函数名称.不过返回值应该是4个字节,也就是LONG才好...

Answer 5

Public Function Rectangle(a, b As Integer) As Integer   
    Rectangle = a * b   
End Function  
分开来定义
Public Function Rectangle(ByVal a As Integer,ByVal b As Integer) As Integer   
    Rectangle = a * b   
End Function  
生成Dll先通过"工程"-- >"引用" 并确保你已经在windows中注册. 
另外你可以使用下面这种方式引用看看
Dim   obj   As   Object   
Set   obj=CreateObject("XXX.XXX")     

Answer 6

以上前辈给我的建议我都试过了，还是错误453，找不到入口点，
前面有人提到过LINK.EXE，这是什么，能不能帮我解译清楚一点？

Answer 7

大家能不能给你一个使用Dll的例子，我现在试不出来，谢谢

Answer 8

为了简单么找个插件,才能写标准DLL.标准DLL才是带输出的

Answer 9

http://topic.csdn.net/u/20070924/14/56b36cce-050f-47c4-9f02-f092fba42ded.html看这里

Answer 10

用VB编的Active DLL在VB中调用的方法：在Active DLL文件的class（类模块，名称定义myclass）中
Public Function Rectangle(ByVal a As Integer,ByVal b As Integer) As Integer    
    Rectangle = a * b    
End Function   
编译成"mytestdll.dll"新建一工程，通过"工程"--  >"引用"－"mytestdll.dll"private sub command1_click
Dim   obj   As   Object    
Set   obj=CreateObject("mytestdll.myclass")  
'DLL名加其中的CLASS名 
text1.text=obj.rectangle(2,3)
end sub这样就可见到text1中的运算值了
******************************************
用下面的语句调用就不行了Private Declare Function Rectangle Lib "MyDll.dll" (ByVal L As Integer, ByVal W As Integer) As Integer   

Answer 11

hwmys:
我试了一下你的方法，的确可以实现，但不知为什么要这样做。
现在和一个用VC的编程员合作，我现在在使用VC的DLL时老是提示打不到DLL文件，在引用时提示不能将引用添加到指定文件，在用regsvr32注册时提示不找不到指定模块。
VB试用DLL真上我费解，大家推荐一下资料给我参考一下吧，谢谢！

Answer 12

我也正在作VB写通用DLL的测试。
能解决DLL入口点的问题就好了，就象12楼提供的资料里面一样，让VB能搞定下面的内容：
NAME MathLib  
LIBRARY MathMod  
DESCRIPTION "Add-on Library of Mathematical Routines"  
EXPORTS DllMain @1  
    Increment @2  
    Decrement @3  
    Square @4 
找不到DLL文件试试这样：把DLL放到...\system32（指XP,2000系统）下看看，不用注册

Answer 13

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 /VERSION:1.0 /Dll /INCREMENTAL:NO /OPT:REF /MERGE:.rdata=.text /IGNORE:4078 
     
    注意里面的/ENTRY和/EXPORT开关，/EXPORT开关声明了输出函数mathadd。这样就大功告成了，可以被其他语言引入，例如在VB中，只需要： 
     
    Private Declare Function mathadd Lib "e:\vbdll\ProjectOK.dll" (ByVal a As Long, ByVal b As Long) As Long 
     
转载