在VBA中调用大漠插件[ V2.1133 ]

VBA中大漠插件的调用[ V2.1133 ]

-首先要在电脑中注册大漠插件，系统暂不支持windows 8 ；如想获得更好的体检请购买收费版本大漠插件；

-代码如下；

========================

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'以下为延时函数 Delay ( )

Public Function Delay(DT As Long)
For i = 0 To DT Step 2
DoEvents '操作权交给系统 否则程序会暂时无响应
Sleep 1
Next i
End Function

’以下为大漠注册函数 注册 dm

Public Function 注册(dm As Object) As Object
Shell "regsvr32 dm.dll /s" '注册大漠插件到系统
Delay 500
Set dm = CreateObject("Dm.dmsoft") '创建大漠插件
End Function

========================

-调用方法如下；

注册 dm
Set dm = CreateObject("Dm.dmsoft") '创建大漠插件
dm.SetPath "C:"

成功调用 dm.Capturejpg 例程文件下载连接如下；

http://www.pudn.com/downloads682/sourcecode/windows/other/detail2756237.html

========================

来自为知笔记(Wiz)