VB如何调用dll函数

vb编程怎么调用.Dll库函数~

vb编写的dll：
注册dll，引用dll，private xxx as dll中的类名，在form_load中初始化：set xxx = new dll中的类名
或：
注册dll，set xxx = createobject("工程名.类名")
vc 编些的标准dll：
private|public declare function|sub 函数名 lib "dll名" [Alias "dll中的函数名"](参数) as 返回值类型
例：
Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

要声明一个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查找某一函数及其相 关数据结构和常数的声明，并复制到自己的程序中。

静态调用简单，动态调用麻烦；静态调用占用资源多，动态调用占用资源少。

静态调用就是常用的申明API，一个DLL库里有很多的函数可供调用，把要用的申明即可。比如：Public/Private Declare Function [函数名] Lib "DLL文件名" [Alias "别名"] (参数变量表) [As 返回值的数据类型]

示例：Private Declare Function Test Lib "dll.dll" (x As String) As String

当程序结束的时候系统回自动释放DLL调用。

动态调用使用LoadLibery(DLL名)，系统会检查DLL是否调入内存。如果调入了，可直接调用DLL里的所有函数，没有就会把DLL加入目标进程的进程空间。通过函数GetProcAddress确定函数入口地址，然后调用，后一种方法VB里不常用的。

扩展资料

静态调用详解：

制作好DLL之后，首先用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明，将动态链接库中的函数声明到VB中，供VB程序调用。

语法格式1：

Public/Private Declare Sub [函数名] Lib "DLL文件名" [Alias "别名"] (参数变量表)

语法格式2：

Public/Private Declare Function [函数名] Lib "DLL文件名" [Alias "别名"] (参数变量表) [As 返回值的数据类型]

在声明中首先用Declare关键字表示声明DLL中的函数。在C语言中有的函数类型为VOID，它表示不具有返回值，则必须用关键字Sub将其声明成过程。有的函数具有返回值，则必须用关键字Function将其声明成函数，并且在声明语句的最后要用AS关键字指明函数返回值的类型。

例如add.DLL在VB中就可以声明为：

Declare Function ADD Lib "c:\add.dll" (ByVal X AS Integer, ByVal Y AS Integer, ByVal filein as string) AS Integer

通过此声明语句将函数ADD声明到VB中，便可直接调用。

1.在工程－引用中将asdfg.dll引用过来
2.dim AAA as asdfg 'asdfg是类模块的名称
Private Sub Form_Load()
dim x
Set AAA = New asdfg
x = AAA.zxc(参数1,参数2)'参数1，2自己写
End Sub

建议你了解一下下面dll的制作方法，理解就更透彻了。下面内容来自百度。

1.新建一个ActiveX Dll,工程名字为vbmytestdll,类模块名字为mytestdll
2.类模块内容只有一个函数,主要返回DLL的HELLO WORLD
Public Function dlltest1() As String
dlltest1 = "HELLO WORLD"
End Function

3.保存,生成DLL,名字为

vbmytestdll.dll

4.新建一个EXE工程,在菜单: 工程---引用---浏览里找到vbmytestdll.dll,把它引用进来

5.EXE工程代码如下:

Option Explicit
Dim testdll As mytestdll'类模块名字

Private Sub Form_Load()
Set testdll = New mytestdll 'DLL的一个新实例
Me.Caption = testdll.dlltest1 '我的标题=返回DLL的HELLO WORLD
End Sub

OK,编译成EXE即可看到效果.

1.新建一个ActiveX Dll,工程名字为vbmytestdll,类模块名字为mytestdll
2.类模块内容只有一个函数,主要返回DLL的HELLO WORLD
Public Function dlltest1() As String
dlltest1 = "HELLO WORLD"
End Function

3.保存,生成DLL,名字为

vbmytestdll.dll

4.新建一个EXE工程,在菜单: 工程---引用---浏览里找到vbmytestdll.dll,把它引用进来

5.EXE工程代码如下:

Option Explicit
Dim testdll As mytestdll'类模块名字

Private Sub Form_Load()
Set testdll = New mytestdll 'DLL的一个新实例
Me.Caption = testdll.dlltest1 '我的标题=返回DLL的HELLO WORLD
End Sub

1、右击工程》添加引用 把你的dll文件添加进去
2、然后你定义一个变量作为dll中函数类型的，将变量实例化，最后在调用方法

引

---

山西省19196482964： vb中如何调用dll?麻烦举个例子吧~~ - ？
战版益脑： [工程]---[引用]---[浏览]--找到你要用的dll文件如果dll文件是你自己写的,在你的程序里直接用就行拉如:dim xx as new [自己写的类名] 剩下的使用 xx 调用就可以看到你的程序里写的函数了

山西省19196482964： VB中如何调用dll？
战版益脑： vb6中有个api explorer,输入你需要的函数,比如sleep,搜出来后,就会有调用方法,你调用别的dll,首先需要知道dll中的函数名称,同时把dll文件名称换下来,把函数名称换下来就可以了.当然,你要注意private和public

山西省19196482964： vb调用dll - ？
战版益脑： 制作好DLL之后,就可以用VB调用它,实现VB调用C程序.VB程序要使用DLL中的函数,首先必须要有特殊的声明,用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明,将动态链接库中的函数声明到VB中,供VB程序调用...

山西省19196482964： VB如何调用DLL - ？
战版益脑： 那要看这个是什么类型的dll了,如果是ActiveX DLL,你可以用工程菜单里的引用把它导入进来使用.如果是VC++写的标准DLL,你必须实现知道它的调用接口声明格式.声明是前面加上Declare语句才行.给你个调用dll的例子吧 Declare Function mixerGetNumDevs Lib ＂winmm.dll＂ Alias ＂mixerGetNumDevs＂ () As Long 这是一个返回配置代号的dll,如果有参数的话,你还得知道()里的参数值和类型.声明后,这个dll使用起来很简单 Dim n As Long n = mixerGetNumDevs Msgbox n

山西省19196482964： 如何用VB编写自己的DLL文件,并调用其中的函数 - ？
战版益脑： LoadLibrary()和GetProcAddress()用于非ActiveX的链接库,你可以接着调用函数试试看

山西省19196482964： vb调用dll - ？
战版益脑： vb生成的dll 不是标准的 dll,不能这样引用:private declare function shuangquzhengge lib ＂C:\math.dll＂在你的另一工程中, 点击“工程”菜单下的“引用”,勾选你的 dll将 private declare function shuangquzhengge lib ＂C:\math.dll＂ 改为:Dim Mydll As New My1注意:My1 要换成你dll的类模块名然后,在代码中这样引用:d=Mydll.HSin(5)

山西省19196482964： 用VB调用C语言DLL文件中的函数 - ？
战版益脑： 要是你编写的是com组建的话,可以用以上方法, 但输出函数型动态链接库的话使用一下方法.function ICC_resetVB(byval fd as long,mlen as long,byval resp as string) as long 参数中含有结构体数据,请使用CopyMemory来把long转换结构体.

山西省19196482964： VB怎么调用DLL?？
战版益脑： 第一:要确定你的DLL文件存在 第二:如果你的DLL文件是自己编的话,lib＂＂这里要具体的路径,或者把你编的DLL文件和你的程序放在同一文件夹好像也是可以的. ------------------------ 所以你调用出错了,应该是Lib ＂ping.dll＂ ()这里的ping.dll没有具体路径或者没有和你的程序在同一个文件夹里面

山西省19196482964： VB如何调用.DLL文件里的函数?最好有具体的例子 - ？
战版益脑： private declare function ＂xxx＂ lib ＂xxx.dll＂ (byval parameter1 as integer,...) as long

山西省19196482964： 在VB中怎么调用dll文件中的函数 - ？
战版益脑： 这种com组件应该支持在注册(regsvr32 IdeaOptics.dll)过后可以动态调用:set newobj = createobject(＂IdeaOptics.class1＂)debug.print newobj.getNumberOfPixels(index)