Excel VBA中捕捉屏幕坐标问题

答案:2 悬赏:50 手机版

解决时间 2021-03-19 22:33

提问者网友：人傍凄凉立暮秋
2021-03-19 02:15

代码如下
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Function MoveTo(X As Long, Y As Long)
SetCursorPos X, Y
End Function
然后在后面的代码中用moveTo这个方法的时候，后面加数字就没问题，可放成变量的时候就出错
Sub test()
Dim w1, w2 As Long
w1 = 463
w2 = 300
MoveTo w1, w2
End Sub
这样就是提示说Byref参数类型不符，跪求为什么啊

最佳答案

五星知识达人网友：何以畏孤独
2021-03-19 03:35

Dim w1, w2 As Long——这样只是对w2定义了类型，w1还是任意型，改为
Dim w1 As Long, w2 As Long 或 Dim w1&, w2&

全部回答

1楼网友：一把行者刀
2021-03-19 03:42

faceld代表取系统内值的图标代码。你可以使用不的数值，来看看效果的变化。 controls.add 控件的增加使用的就是这个。 commandbarscontrol这个是什么呢？我也不太清楚。呵呵！

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息