Question

vb中如何响应鼠标的点击事件？以及如何能判断鼠标点击时的坐标啊？

自己在做扫雷的时候，发现做出来只能响应第一次点击，后边的点击都无效了。。。。而且点击的时候不管点击那里相应的都是唯一一点

Answer 1

不要用click 事件，用mousedown 或者mouseup 事件都是可以获得鼠标点击坐标、左 中 右 以及功能键的。
至于为什么只能响应第一次 这个就看你代码了，没代码不好判断。

追问

具体怎么获取呢？

追答

你选中这些事件 然后出来的代码上就有拉.
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub
button =1 鼠标左键按下
button =2 鼠标右键按下
button =4 鼠标中键按下
X 鼠标横坐标，Y鼠标纵坐标 （这个坐标是相对控件的，如果是窗体的事件就是相对窗体坐标 如果是picture或者其他控件，就是指在这些控件内的相对坐标）

追问

额，我是说怎么判断点击的时候鼠标的坐标。。不是判断点击的是左键还是右键额。。。

追答

o(︶︿︶)o 唉 有给你都看不到。无话可说，自己仔细看看我的回答。尤其是前两行和倒数两行。

追问

额，我真的是不太明白啊 。大神你qq多少啊，能加我不？我的 qq 1348885086 还是不太明白啊。。。。

追答

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "鼠标点击坐标为： （" & X & "," & Y & ")"
Print "横坐标：" & X
Print "纵坐标：" & Y
End Sub

Answer 2

这个用控件数组来做就简单了。