vb鼠标右键双击事件

vb鼠标右键双击事件

先说明几点:
1.不是所有的对象,都有双击事件(zhangfeizimo在前面说过了)
2.支持双击事件的对象,在触发这个事件时,并不识别是不是右键
3.能识别右键的事件,不区分是单击还是双击

所以,如果用系统的自带单一事件,是不能直接完成你想的目的
不过,可以变通,将几个事件结合起来,就可以实现,看看下面的方法:

Dim LastButton As Integer

Private Sub Form_DblClick()
If LastButton = 2 Then
Text1.Text = 2
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
LastButton = Button
End Sub

事件里选中Double click然后再赋值

可以在MOUSEUP事件里面进行右键的判断然后累加。 另外设置一个1秒的定时器定时给累加的数归零。 当累加的数便为2是，调用一个过程，这个过程自定义。 这个过程就是要发生的右键双击的事件。

尽量不要出现右键双击，左键双击就好啦 ！11 1 1 1 ！

屏蔽TEXT1右键菜单，利用计时器判断是否双击： form1里代码： Option Explicit Private blnF As Boolean Private Sub Command1_Click() Text1 = "" End Sub Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = False End Sub Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then OldWindowProc = GetWindowLong(Text1.hWnd, GWL_WNDPROC) Call SetWindowLong(Text1.hWnd, GWL_WNDPROC, AddressOf MyMesg) If blnF Then Text1 = "右键双击": blnF = False: Timer1.Enabled = False: Exit Sub blnF = True '设置右键检查标志 Timer1.Enabled = True Else Text1 = "右键未双击" blnF = False End If End Sub Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Button = 1 Call SetWindowLong(Text1.hWnd, GWL_WNDPROC, OldWindowProc) End If End Sub Private Sub Timer1_Timer() blnF = False Timer1.Enabled = False Text1 = "右键单击" End Sub Module1里代码： Option Explicit Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public OldWindowProc As Long Public Const WM_CONTEXTMENU = &H7B Public Const GWL_WNDPROC = (-4) Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Function MyMesg(ByVal hWnd As OLE_HANDLE, ByVal Msg As OLE_HANDLE, ByVal wp As OLE_HANDLE, ByVal lp As Long) As Long If Msg <> WM_CONTEXTMENU Then MyMesg = CallWindowProc(OldWindowProc, hWnd, Msg, wp, lp) Exit Function End If MyMesg = True End Function

prout sub doubt click_()