⑴ 如何让VB调用外部的DLL
要声明一个DLL过程，首先需要在代码窗口的"通用（General）"部分增加一个Declare语句。如果该过程返回一个值，应将其声明为Function： Declare Function publicname Lib "libname" [Alias "alias"] [([[ByVal] variable [As type] [,[ByVal] variable [As type]]…])] As Type 如果过程没有返回值，可将其声明为Sub： Declare Sub publicname Lib "libname" [Alias "alias"] [([[ByVal] variable [As type] [,[ByVal] variable [As type]]…])] 缺省情况下，在标准模块中声明的DLL过程，可以在应用程序的任何地方调用它。在其它类型的模块中定义的DLL过程则是模块私有的，必须在它们前面声明Private关键字，以示区分。下面分别介绍声明语句的各个组成部分。(一)、指定动态库：Declare语句中的Lib子句用来告诉Visual Basic如何找到包含过程的.dll文件。 如果引用的过程属于Windows核心库（User32、Kernel32或GDI32），则可以不包含文件扩展名，如： Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long 对于其它动态连接库，可以在Lib子句指定文件的路径： Declare Function lzCopy Lib "c:/windows/lzexpand.dll" _ (ByVal S As Integer, ByVal D As Integer) As Long 如果未指定libname的路径，Visual Basic将按照下列顺序查找该文件：①.exe文件所在的目录②当前目录③Windows系统目录④Windows目录⑤Path环境变量中的目录下表中列出了常用的操作系统环境库文件。动态链接库描述Advapi32.dll高级API服务，支持大量的API（其中包括许多安全与注册方面的调用）Comdlg32.dll通用对话框API库Gdi32.dll图形设备接口API库Kernel32.dllWindows32位核心的API支持Lz32.dll32位压缩例程Mpr.dll多接口路由器库Netapi32.dll32位网络API库Shell32.dll32位ShellAPI库User32.dll用户接口例程库Version.dll版本库Winmm.dllWindows多媒体库Winspool.drv后台打印接口，包含后台打印API调用。对于Windows的系统API函数，可以利用VB提供的工具API Viewer查找某一函数及其相 关数据结构和常数的声明，并复制到自己的程序中。
⑵ VB怎么调用DLL文件 这个DLL文件是自己用VB写的放在主程序一个文件夹里面的，网上找了很多办法都不行。
在菜单里找 工程—>引用 然后选中目标DLL，即可。
⑶ VB如何调用动态链接库(DLL)文件
1.对ActiveXDLL，如果该DLL由本地VB/VC生成就可直接在新的VB工程中引用，拷来的就需要先注册该DLL(记得是regsrv:)。引用方法:点击“工程”-〉“引用”找到后打勾就可在程序中直接调用其函数了。2.其它非ActiveXDLL，如WINDOWSAPI函数，只要用Declare声明一下就可用了。
⑷ vb 怎样在代码中引用ocx文件或dll文件
第一步：将要用到的控件拷贝到当前工程目录下，右键单击该控件，选择属性，记下文件大小。注意，应记下以字节为单位的具体数字，而不是多少K，以备编程使用。 第二步：引用并正常使用该控件。 第三步：新建资源文件加入工程，在资源文件编辑器中添加所使用的第三方控件为自定义资源（CUSTOM），资源号使用默认的101。如果使用了多个控件则分别添加到资源文件的101、102……资源项中，脱壳代码也要作相应的修改。 第四步：编写控件脱壳代码，使其读取资源文件的数据，在程序当前目录下生成控件。 代码如下： Private Const OCXSIZE = 57344 '欲生成的控件大小是57344Byte,名字为CoolToolBar.ocx Sub Main() Dim Ocx() As Byte 'OCX是个Btye类型的数组 Dim Counter As Long Ocx = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组OCX '注意，微软的帮助中对加载自定义资源的说明有错误，自定义资源标识为"CUSTOM"而不是帮助所说的数字10 If Right(App.Path, 1) = "($%$43%^#ASD#[email protected]$#f$%^) Then '读取程序所在路径,判断是否为根目录并分别处理 '程序在根目录下 If Dir(App.Path & "CoolToolBar.ocx") = "" Then '程序路径下有无控件,无则生成控件 '以二进制方式写（生成）控件（CoolToolBar.ocx）到主程序所在的目录 Open App.Path & "CoolToolBar.ocx" For Binary As #1 For Counter = 0 To OCXSIZE – 1 '注意因为从0 Byte开始因此以文件大小 – 1Byte 为终值 Put #1, , Ocx(Counter) Next Counter Close #1 End if Else '程序不在根目录下 If Dir(App.Path & "\CoolToolBar.ocx") = "" Then '程序路径下有无控件,无则生成控件 '以二进制方式写（生成）控件（CoolToolBar.ocx）到主程序所在的目录 Open App.Path & "\CoolToolBar.ocx" For Binary As #1 For Counter = 0 To OCXSIZE – 1 '注意因为从0 Byte开始因此以文件大小 – 1Byte 为终值 Put #1, , Ocx(Counter) Next Counter Close #1 End if End if Form1.Visible = True '主程序所用控件已经生成，显示主窗体，进入主程序。 End Sub 注意：将以上代码作为一个模块添加到工程中，并在工程-工程属性设置中将启动对象选为Sub Main,即上面的脱壳代码。然后编译生成EXE文件，将该EXE文件拷贝到其他没有安装所用控件的计算机上运行一下看看是否实现了控件携带之金蝉脱壳。如果是那么OK！以上为使用一个控件的情况，使用多个控件方法基本相同，不在赘述。
⑸ 怎么用VB编写DLL
打开VB，然后先中“ActiveX Dll”工程，然后开始编辑。
编完后，保存一般是以“.cls”和“.vbw”保存。这时你选择“文件”菜单，弹出下拉框，选中“生成.dll”选项，它就会在上面弹出一个进度条“正在生成.dll文件”。
生成以后是一个有好象齿轮状的图标。如果你要引用，就开一个“标准EXE”工程，然后在“工程”选项中，单击“引用”。
找到你刚才的“.dll”的文件名，在前面的复选框中打勾，就可以引用你刚才在那里面写的方法了。
⑹ VB究竟怎样调用dll
如何在VB中调用VC编写的DLL一般来说，VB和VC共同编程有3种方式：一种是VC生成DLL，在VB中调用DLL；一种是VC生成ActiveX控件(.ocx)，在VB中插入；还有一种是在VC中生成ActiveXAutomation服务器，在VB中调用。相对而言，第一种方法对VC编程者的要求最低，但要求你的伙伴进行配合，我推荐这种方法。先说说VC++的编程。首先在VC++中生成Win32DLL工程。在这个工程中添加几个函数供VB用户调用。一个DLL中的函数要想被VB调用，必须满足两个条件：一是调用方式为stdcall，另一个是必须是export的。要做到第一条，只须在函数声明前加上__stdcall关键字。如:short__stdcallsample(shortnLen,short*buffer)要做到第二条，需要在*.def文件中加上如下的几行：EXPORTS[email protected]这里的sample是你要在VB中调用的函数名，@1表示该函数在DLL中的编号，每个函数都不一样。注意这里的函数名是区分大小写的。至于你说的需要传递大量数据，可以这样做，在VB中用一个数组存放数据，然后将该数组的大小和地址传给VC(至于如何在VB中编程我会在下面介绍)。就象上面的例子，nLen是数组大小，buffer是数组地址，有了这两条，你可以象使用VC的数组一样进行处理了。至于输出图形，可以生成WMF或BMP格式，让VB调用。不过，我认为也可以直接输出到视窗，只要VB将窗口的句柄hWnd和hDC以及视窗的绘图位置(VB和VC采用的坐标系必须一致才行)传给VC就行了。而VB的AutoRedraw属性必须为False，在Paint事件中调用VC的绘图程序。再谈谈VB的编程。VB调用DLL的方法和调用WindowsAPI的方法是一样的，一般在VB的书中有介绍。对于上面一个例子，先要声明VC函数：DeclareFunctionsampleLib"mydll.dll"(ByValnLenAsInteger,bufferAsInteger)AsInteger这里mydll.dll是你的dll的名字。你可能已经注意到了两个参数的声明有所不同，第一个参数加上了ByVal。规则是这样的：如果在VC中某个参数声明为指针和数组，就不加ByVal，否则都要加上ByVal。在VB中调用这个函数采用这样的语法：sample10,a(0)这里的a()数组是用来存放数据的，10为数组长度，这里的第二个参数不能是a()，而必须是要传递的数据中的第一个。这是VB编程的关键。下面在说几个可能遇到的问题。一个问题是VB可能报告找不到dll，你可以把dll放到system目录下，并确保VB的Declare语句正确。另一个问题是VB报告找不到需要的函数，这通常是因为在VC中*.def文件没设置。第三种情况是VB告诉不能进行转换，这可能是在VC中没有加上__stdcall关键字，也可能是VB和VC的参数类型不一致，注意在VC中int是4个字节(相当于VB的Long)，而VB的Integer只有2个字节。必须保证VB和VC的参数个数相同，所占字节数也一致。最后一个要注意的问题是VC中绝对不能出现数组越界的情况，否则会导致VB程序崩溃1.调用DLL的优越性动态链接库（DLL）作为Windows操作系统的基础，具有优越的应用性能：DLL扩展了应用程序的特性。由于DLL能够动态地装入进程的地址空间，因此应用程序能够在运行时确定需要执行什么操作，然后装入相应的代码，以便根据需要执行这些操作。DLL可以用多种语言进行编写。例如用VB来编写应用程序的界面，而用C++来编写诸如算法、通讯之类的底层操作。DLL简化了软件项目的管理。如果在软件开发过程中不同的工作小组在不同的模块上工作，那么这个项目管理起来比较容易。DLL有助于节省内存。如果两个或多个应用程序使用同一个DLL，那么该DLL的页面只要放入RAM一次，所有的应用程序都可以共享它的各个页面。DLL有助于资源的共享。DLL可以包含对话框模板、字符串、图标和位图等资源，多个应用程序能够使用DLL来共享这些资源。DLL有助于应用程序的本地化。例如，只包含代码而不包含用户界面组件的应用程序可以加载包含本地化用户界面组件的DLL。DLL有助于解决平台差异。不同版本的Windows配有不同的函数，开发人员常常想要调用新的函数。但是，如果源代码包含了对一个新函数的调用，而应用程序将要在不能提供该函数的Windows版本上运行，那么操作系统的加载程序将拒绝运行该进程。如果将这些新函数保存在DLL中，那么应用程序就能够将它们加载到Windows的老版本上,就可以成功地调用该函数。2．找到DLL的入口点初次接触DLL的用户经常会遇到一个问题：在VC环境下创建的DLL，在VC里运行的好好的，可在VB应用程序中调用时却老是出现"调用约定错误"、"找不到入口点"之类的错误。这主要是由以下疏漏造成的。首先，要注意DLL中的函数和VB中的函数声明在名称、返回类型、参数类型、参数个数等方面必须完全相同，尤其要注意大小写的问题。其次，在DLL的.def文件中必须加上入口函数。最后，在函数定义前必须加上extern"c"，_stdcall关键字。具体格式可参看应用实例。3．数组参数在DLL中的传递由于DLL经常用来进行一些底层的运算操作，因此应用程序常需要传递大量的数据给DLL。在C++中，指针是进行数组操作的最佳选择，但VB中没有指针的概念。这通常可用两种方法来解决。其一，在VB中声明DLL时，用byref来代替byval，即可将数组指针传递给DLL。另外，将数组声明为变体型（variant），即可直接将数组传递给DLL。4．应用实例以下通过一具体实例来说明在VB中调用VC环境下创建的DLL的过程。创建一用于信号处理的DLL，"SigPro.dll"，其中有一个用于富氏计算的函数"Fourier"。VC中的声明：在"SigPro.h"中加入以下代码，extern"C"{doubleEXPORT_stdcallFourier(longint*Sample,intNumSam,intOvertoneOrder,boolSinOrCos);}在"SigPro.cpp"中加入以下代码，extern"C"doubleEXPORT_stdcallFourier(longint*Sample,intNumSam,intOvertoneOrder,boolSinOrCos){inti;doubleresult=0.0;if(SinOrCos==true){for(i=0;i<NumSam;i++){result=result+*(Sample+i)*cos(OvertoneOrder*i*2*3.1415926/NumSam);}}else{for(i=0;i<NumSam;i++){result=result+*(Sample+i)*sin(OvertoneOrder*i*2*3.1415926/NumSam);}}result=result*2/NumSam;returnresult;}在"SigPro.def"中加入以下代码，EXPORTSFourierVB中的调用声明："SigPro"(ByRefSample()AsLong,ByValNumSamAsInteger,ByValOvertoneOrderAsInteger,ByValSinOrCosAsBoolean)AsDouble
