Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
Detect Double Mouse Click in Single Mouse Click
Author:
Bob Brandt
Submitted:
3/7/2015
Version:
VB 2010
Compatibility:
VB 2010, VB 2012, VB 2013
Category:
Controls
Views:
7735
Detecting a Mouse Double_Click in a procedure that only Detects a Single Mouse Click I used a button for demo reasons only, Originally I used it in Skybound.Gecko GeckoBrowser_DomMouseDown() and GeckoBrowser_CreateWindow() So the First click was detected in the First Procedure and the Second click in the Next Procedure MouseClickTiming was used to measure time between Clicks Timing May Vary Between Computers Unsure?? = CheckMouseTiming - 3
Declarations:
Public Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As System.Windows.Forms.Keys) As Integer Dim MouseClickTiming As Double Dim VK_LBUTTON As System.Windows.Forms.Keys = Keys.LButton Dim VK_RBUTTON As System.Windows.Forms.Keys = Keys.RButton
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim RightMouseButton As Integer = GetAsyncKeyState(VK_RBUTTON) Dim LeftMouseButton As Integer = GetAsyncKeyState(VK_LBUTTON) Dim ButtonClicked As Boolean Dim CheckMouseTiming As Double = Microsoft.VisualBasic.DateAndTime.Timer 'If Mouse Button Was Clicked Before and MouseClickTiming > System Timer - 3 then ButtonClick = true If (Math.Abs(LeftMouseButton) > 0 Or Math.Abs(RightMouseButton) > 0) And MouseClickTiming > CheckMouseTiming - 3 Then ButtonClicked = True End If 'Sets MouseClickTiming initially to 0 frist Click 'If Mouse Button Is Clicked It Sets MouseClickTiming To System Timer MouseClickTiming = 0 If (Math.Abs(LeftMouseButton) > 0 Or Math.Abs(RightMouseButton) > 0) Then MouseClickTiming = Microsoft.VisualBasic.DateAndTime.Timer End If End Sub
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement