vb中如何响应鼠标右击事件

vb中如何响应鼠标右击事件

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
Label1.Caption = " 左"
Case 2
Label1.Caption = " 右"
Case 4
Label1.Caption = " 中"
End Select
End Sub
button 返回一个整数，用来标识该事件的产生是按下 ( MouseDown ) 或者释放 ( MouseUp ) 按钮引起的。button 参数是具有相应于左按钮（位 0），右按钮（位 1），以及中间按钮（位 2）的一个位字段。这些位的值分别等于 1，2，和 4。其中仅有一位被设置，指示出引起该事件的那个按钮。

1。mouse_event有五个参数，第一个为选项标志，为 mouseeventf_leftdown时表示左键按下，为mouseeventf_leftup表示左键松开，向系统发送相应消息。第二三个参数分别表示x,y相对位置，一般可设为0,0,第四五个参数并不重要，一般也可设为0,0。 2。mouse_event mouseeventf_move, 0 , 0 , 0 , 0前面两个别0,0是代表的坐标x , y，如果都设置为零的话，则每次模拟事件的位置是鼠标的当前位置,x , y 在没有使用mouseeventf_absolute标志时是相对于鼠标当前位置的坐标.如果使用绝对坐标,那么x,y应该是相对于屏幕的坐标. 3。timer当有多个时候，你在移动时候应该使用timer的enabled属性将使用过的变为不可用吧，避免一直使用中，然后在变为可用。

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

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