VB调用DLL
2007-06-11 08:51
阅读( 1877) 评论(0)
VB 调用 DLL
制作好DLL之后，就可以用VB调用它，实现VB调用C程序。VB程序要使用DLL中的函数，首先必须要有特殊的声明，用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明，将动态链接库中的函数声明到VB中，供VB程序调用。
语句格式为：Declare Sub 过程名Lib [ Alias " 别名]（[ByVal 参数AS类型]），或为
Declare Function函数名Lib [Alias " 别名]（[ByVal 参数AS类型]）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中，便可直接调用。
参数加上了ByVal。规则是这样的：如果在VC中某个参数声明为指针和数组，就不加ByVal，否则都要加上ByVal。
下面在说几个可能遇到的问题。一个问题是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程序崩溃。
问：如何用vb实现真正的多线程而不是多进程？
答：1.最好把代码放在Active Dll里，编译时使用p代码方式,至少要装vbsp3以上
2.线程函数里不能有VB的内置函数，比如left,trim等
3.创建线程CreateThread的参数不要使用ByVal &0,使用变量
主程序退出时要使用TerminateProcess(GetCurrentProcess, ByVal 0&)强行结束当前进程，否则有可能出错，这是两个API函数，请查相关资料
问：如何实现鼠标取词？
'所要用到的函数、常量、类型
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Const WM_GETTEXT = &HD
Private Const WM_SETTEXT = &HC
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
'
' 代码就是这么简单，你好好研究一下吧。
'
'
Dim Shu As POINTAPI
Dim Str As String * 300
GetCursorPos Shu
SendMessage WindowFromPoint(Shu.x, Shu.y), WM_GETTEXT, 299, ByVal Str
Label1.Caption = Str
End Sub | 根据代码加入相应控件，timer1的interval的属性为100再加入把当前窗口置顶就是一个完美的简单的取词工具了！ 问： VB调DLL时，如何传Structure？ 答：在DLL里定义时应该用指针作参数，在VB里面，只要把结构变量定义成 Long 类型就可以了，调用的时候传入地址，就是在调用的时候，在参数前面加 ByVal。
|
