关於VB中鼠标的单击事件的相关问题!
大家好,如何捕捉鼠标的单击事件,或者说调用鼠标的单击事件,就是鼠标单击了,我就知道它在什么地方单击了。(请说的详细点)比如说有两个vsflexgrid,他们中间有相同的数...
大家好,如何捕捉鼠标的单击事件,或者说调用鼠标的单击事件,就是鼠标单击了,我就知道它在什么地方单击了。(请说的详细点)
比如说有两个vsflexgrid ,他们中间有相同的数据,我点击了第一个vfggrid的某一行,另一个vfggrid和它相等的数据就会显示鼠标单击的那种蓝颜色。先谢谢大家了!
各位大哥能不能说的详细点,具体怎么写。我怎么获取MouseDown。 展开
比如说有两个vsflexgrid ,他们中间有相同的数据,我点击了第一个vfggrid的某一行,另一个vfggrid和它相等的数据就会显示鼠标单击的那种蓝颜色。先谢谢大家了!
各位大哥能不能说的详细点,具体怎么写。我怎么获取MouseDown。 展开
5个回答
展开全部
你要先搞清楚你那个vsflexgrid是个啥子控件!
mousedown事件你可以在顶上面选也可以自己输入
Private Sub vsflexgrid_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'这里呢就是点击鼠标的事件了,你可以把我这段弄到你窗口上去试试就知道效果了,但是你的控件名得弄清楚才行就是vsflexgrid_MouseDown 这个前面的的必须是你的控件名才有效
if button=1 then msgbox "鼠标左键点击"
if button=2 then msgbox "鼠标右键点击"
End Sub
mousedown事件你可以在顶上面选也可以自己输入
Private Sub vsflexgrid_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'这里呢就是点击鼠标的事件了,你可以把我这段弄到你窗口上去试试就知道效果了,但是你的控件名得弄清楚才行就是vsflexgrid_MouseDown 这个前面的的必须是你的控件名才有效
if button=1 then msgbox "鼠标左键点击"
if button=2 then msgbox "鼠标右键点击"
End Sub
展开全部
你在单击事件里面写。获取第一个的单击位置,获取值。之后把值在第二个grid里面查找,查找到后获取焦点。selected,这样就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
鼠标的单击事件
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
根据:
常数(按钮) 值 描述
vbLeftButton 1 左按钮按下。
vbRightButton 2 右按钮按下。
vbMiddleButton 4 中间按钮按下。
X.Y 表示鼠标坐标点
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
根据:
常数(按钮) 值 描述
vbLeftButton 1 左按钮按下。
vbRightButton 2 右按钮按下。
vbMiddleButton 4 中间按钮按下。
X.Y 表示鼠标坐标点
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
控件名_MouseUp (Button as Integer, Shift as Integer, X as Single, Y as Single)
或 控件名_MouseDown (Button as Integer, Shift as Integer X as Single, Y as Single)
第一个是按键时,第二个是松键时
第二个常用
或 控件名_MouseDown (Button as Integer, Shift as Integer X as Single, Y as Single)
第一个是按键时,第二个是松键时
第二个常用
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在控件上双击,出现代码窗口,在代码窗口的上部有两个筐其中左边一个写着控件名也就是vfggrid什么的,点击另一个的右边的小三角,你会发现里面有很多行,如click、mousedown、mouseup等,并不时所有控件都有这些,不知道你的vfggrid是什么控件,也不知道有没有。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询