access支持动态库吗？（DLL）

sxgaobo

需要连接个动态库，支持吗？怎么不能引用？该怎么做啊？

roych

需要创建reference来引用。

1. Sub test()
   
2. Dim strPath As String
   
3. strPath = getFileName()
   
4. '试试系统自带的VBScript.dll
   
5. On Error Resume Next
   
6. If Len(strPath) > 0 Then
   
7.     Application.References.AddFromFile strPath
   
8. End If
   
9. 
   
10. End Sub
    
11. 
    
12. Function getFileName() As String
    
13. Dim fld As FileDialog
    
14. 
    
15.     Set fld = Application.FileDialog(msoFileDialogFilePicker)
    
16.     With fld
    
17.             .Title = "浏览"
    
18.             .AllowMultiSelect = False
    
19.             .Filters.Clear
    
20.             .Filters.Add " 动态链接库", "*.dll"
    
21.             .InitialFileName = "C:\windows\system32"
    
22.             If .Show = -1 Then
    
23.                 getFileName = fld.SelectedItems(1)
    
24.             Else
    
25.                 Exit Function
    
26.             End If
    
27.     End With
    
28. End Function

复制代码

风中漫步

大部分是不能引的,声明

sxgaobo

roych 发表于 2014-11-19 11:27
需要创建reference来引用。

谢谢版主！帮忙把动态库SCL_API_Stdcall.dll连到我这测试程序里好吗？

roych

添加不到，不知道是不是没有lib库文件，或者是别的语言（例如VC）编译的。

sxgaobo

roych 发表于 2014-11-19 15:59
添加不到，不知道是不是没有lib库文件，或者是别的语言（例如VC）编译的。

这是厂家给的二次开发包，劳驾您给看看！！！

tmtony

一般C++链接库不需要引用，直接声明即可以使用

sxgaobo

tmtony 发表于 2014-11-19 19:27
一般C++链接库不需要引用，直接声明即可以使用

谢谢领导的关注，ACC里怎么用啊？

tmtony

像使用API 一样使用，如调用 findwinow 这样的API一样使用

天涯沦落20131

1111