各位高手:我在VC中相关定义如下:#if _BUILDING_UI_MODULE_#define UI_LM983x_EXPORT _declspec(dllexport)#else#define UI_LM983x_EXPORT _declspec(dllimport)#endifUI_LM983x_EXPORT TWAIN_RESULT UIActivate(BOOL open);
然后在VB中引用如下:Private Declare Function UIActivate Lib "UI_LM983x.dll" (ByVal aOpen As Long) As Long这个是调用:Public Sub OpenScanDG()
UIActivate 1
End Sub但是编译后运行调用时却总是报错说找不到"UI_LM983x.dll" 文件。其实该文件就在当前目录下。可以确定UI_LM983x.dll文件无任何错误。问各位,是不是我VB引用的申明出错还是引用出错还是有其它错误?我该怎么解决?谢谢。
然后在VB中引用如下:Private Declare Function UIActivate Lib "UI_LM983x.dll" (ByVal aOpen As Long) As Long这个是调用:Public Sub OpenScanDG()
UIActivate 1
End Sub但是编译后运行调用时却总是报错说找不到"UI_LM983x.dll" 文件。其实该文件就在当前目录下。可以确定UI_LM983x.dll文件无任何错误。问各位,是不是我VB引用的申明出错还是引用出错还是有其它错误?我该怎么解决?谢谢。
Dim DLLNAME As String
Dim lb As Long, pa As Long
DLLNAME = App.Path & "\UI_LM983x.dll"
lb = LoadLibrary(DLLNAME)
pa = GetProcAddress(lb, "SetWindowTextA")
也注册一下
Dim lb As Long, pa As Long
DLLNAME = App.Path & "\UI_LM983x.dll"
lb = LoadLibrary(DLLNAME)
pa = GetProcAddress(lb, "UIActivate")
CallWindowProc pa, 0, "Hello !", ByVal 1&, ByVal 0&
FreeLibrary lb结果没反映。也不会报错了。我估计是UIActivate没有执行。不知道CallWindowProc 是否调用错了,没用过。能不能再讲清楚点?