vb中 mousedown事件

来源：百度知道 编辑：UC知道 时间：2024/05/26 08:42:24
我在当MousePointer = 2时调用mousedown事件，为何在MousePointer =1时还产生和=2是一样的效果，怎么去除
我在MousePointer = 2时作用的坐标区域是一个方格区域，为何在MousePointer = 1时左键一点击桌面,方格和里面的内容就会跳出来，也只是覆盖了那部分区域，也不影响程序的运行，怎样不让它跳出来呢

MousePointer属性和mousedown没有关系。
前者只是改变指针的形状而已，后者是一个事件。

如果你希望MousePointer属性导致执行效果不同，可以这样：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Me.MousePointer
Case 1
MsgBox "1"
Case 2
MsgBox "2"
End Select
End Sub

MousePointer属性只是定义鼠标的形状。
而真正作用的就要用到下面的代码来判断是左键还是右键击的。
If Button = 2 Then MsgBox "2"
你要判断是左键还是右键。右键用If Button = 2 ，左键用If Button = 1

你也可以搞一个透明的标签控件。将它的鼠标形状设为2在它的事件里来写代码。

我觉得你是没有搞清楚，想要实现功能的代码应该放在那个事件里执行。
我个人认为你这个，首先应该放在某控件的MouseMove事件中