高手们过来过目下。vb加载按键精灵dll问题

lb6314597 发布于 2008-11-25 18:47， 2392 次点击

Private Declare Function FindPic Lib "QMDispatch" () As Long

Dim pos As Long

Set QMDispatchObj = CreateObject("QMDispatch.QMFunction")
pos=QMDispatchObj.FindPic 0, 0, 1280, 1024, "c:\3.bmp", 0.9
MsgBox Int(pos / 8192) 'X左边
MsgBox pos Mod 8192 'Y左边

编译提示无效外部过程。请告诉指点下小菜。谢谢。

[[it] 本帖最后由 lb6314597 于 2008-11-25 22:45 编辑 [/it]]

8 回复

lb63145972008-11-25 19:23

怎么没人来回答啊。。。。。。自己顶一下。

lb63145972008-11-25 20:59

我继续顶。。。

lb63145972008-11-25 21:50

咋就没人回复呢。。。。。大家指点下啊。。。

我是菜鸟哦2008-11-25 22:36

在项目选项中选中添加引用,选择COM组件,再选择你的.DLL

[[it] 本帖最后由我是菜鸟哦于 2008-11-25 22:43 编辑 [/it]]

我是菜鸟哦2008-11-25 22:37

你这个DLL引用对了吗？

[[it] 本帖最后由我是菜鸟哦于 2008-11-25 22:41 编辑 [/it]]

lb63145972008-11-25 22:44

不知道啊。。。我把插件贴出来你帮我看下把。。。

lb63145972008-11-25 23:10

谢谢版主

e3bnsd2012-12-07 00:08

很好的想法。