hasembucket.blogg.se

#Mouse click api vba code#

Label4.Text = "X : " & tempPos.X & " Y : " & tempPos.YĮnd SubI would like the code to perform a mouse click event on a specified X/Y location on a 3rd party application. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tickĭim R As Long = GetCursorPos(tempPos) ' You'll get your location in TempPos SendMessage(mainformhandle, WM_LBUTTONUP, 0, MakeDWord(x, y)) SendMessage(mainformhandle, WM_LBUTTONDOWN, 0, MakeDWord(x, y)) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MakeDWord = CInt((HiWord * &H10000) Or (LoWord And &HFFFF&)) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadįunction MakeDWord(ByVal LoWord As Integer, ByVal HiWord As Integer) As Integer The techniques that you can see there apply to any form that you create, whether that form is a dialog box or just a regular Access form for scrolling through table records.Code: Private Declare Function SendMessage Lib "User32.dll" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer In the next chapter, we dig deeper into the whole topic of creating custom drop-down lists by using VBA code. In your actual code, you replace the MsgBox statements with the VBA code that you want to execute after the left, middle, or right mouse click. MsgBox "You pressed the Middle mouse button" End If End SubĪs it stands, the sample procedure just provides a little message on-screen indicating which mouse button you pressed. 'Code to execute for middle button goes here. MsgBox "You pressed the Right mouse button" End If 'Code to execute for left button goes here. MsgBox "You pressed the Left mouse button" End If Private Sub ObjectName_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Listing 9-2: Skeletal Structure of Code to Distinguish between Left and Right Mouse Clicks For example, Listing 9-2 shows the basic skeletal structure that responds differently to a left, middle, or right mouse click. In your procedure, you can use lf.Then.End If statements to write different code for different mouse activities.

acCtrlMask: The Ctrl key was held down.ġ X: Returns a number indicating the horizontal position of the mouse pointer.ġ Y: Returns a number indicating the vertical position of the mouse pointer.

acShiftMask: The Shift key was held down.

Right mouse button: Button contains acRightButton.ġ Shift: Returns a constant indicating whether the user held down the Shift, Alt, or Ctrl key while pressing the mouse button.

Middle mouse button (or mouse wheel): Button contains acMiddleButton.

Left mouse button: Button argument contains acLeftButton.

The arguments that get passed automatically to the procedure are listed as follows:ġ Button: Returns a number or constant indicating which mouse button the user pressed. (Button As Integer, Shift As Integer, _ X As Single, Y As Single) When you click an object's On MouseDown event in the property sheet and choose the Code Builder, the procedure that's created looks something like this (where objectName is the name of the object to which you're tying the code): If you want to write different code for different types of clicks, you have to use the On MouseDown event. There's no On Right-Click event that you can use to detect whether the user right-clicks an item. The On Click event occurs only when the user points to the item and then presses and releases the left mouse button. You might have noticed that just about every control has an On Click event to which you can tie code.