vb中 mousedown事件
我在当MousePointer=2时调用mousedown事件,为何在MousePointer=1时还产生和=2是一样的效果,怎么去除我在MousePointer=2时作...
我在当MousePointer = 2时调用mousedown事件,为何在MousePointer =1时还产生和=2是一样的效果,怎么去除
我在MousePointer = 2时作用的坐标区域是一个方格区域,为何在MousePointer = 1时左键一点击桌面,方格和里面的内容就会跳出来,也只是覆盖了那部分区域,也不影响程序的运行,怎样不让它跳出来呢 展开
我在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属性导致执行效果不同,可以这样:
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在它的事件里来写代码。
而真正作用的就要用到下面的代码来判断是左键还是右键击的。
If Button = 2 Then MsgBox "2"
你要判断是左键还是右键。右键用If Button = 2 ,左键用If Button = 1
你也可以搞一个透明的标签控件。将它的鼠标形状设为2在它的事件里来写代码。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我觉得你是没有搞清楚,想要实现功能的代码应该放在那个事件里执行。
我个人认为你这个,首先应该放在某控件的MouseMove事件中
我个人认为你这个,首先应该放在某控件的MouseMove事件中
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询