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]]

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

我继续顶。。。

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

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

谢谢版主