تابع ویندوزی Mouse_Event برای Right Click در صفحه

Right-Click  در سنتر : 

right-click the "center" of your webbrowser 

mouse_event

void mouse_event( [in] DWORD dwFlags, [in] DWORD dx, [in] DWORD dy, [in] DWORD dwData, [in] ULONG_PTR dwExtraInfo );

dwFlags : 

MOUSEEVENTF_RIGHTDOWN=&H8

MOUSEEVENTF_RIGHTUP=&H10

تنظیم موقعیت کرسر در وسط صفحه : 

SetCursorPos(CInt(WebBrowser1.Width / 2), CInt(WebBrowser1.Height / 2))

انجام کلیک راست در مختصات x و y

mouse_event(MOUSEEVENTF_RIGHTDOWN, CInt(WebBrowser1.Width / 2), CInt(WebBrowser1.Height / 2), 0, 0)

mouse_event(MOUSEEVENTF_RIGHTUP, CInt(WebBrowser1.Width / 2), CInt(WebBrowser1.Height / 2), 0, 0)

SendInput Function  :  "User32.Dll"

Private Declare PtrSafe Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As
LongPtr)

Private Declare PtrSafe Function SendInput Lib "user32" (ByVal nInputs As LongPtr, pInputs As Any, ByVal cbSize As LongPtr) As LongPtr

UINT SendInput(

[in] UINT cInputs,

[in] int cbSize

[in] LPINPUT pInputs,

mouseinput

typedef struct tagMOUSEINPUT {
  LONG      dx;
  LONG      dy;
  DWORD     mouseData;
  DWORD     dwFlags;
  DWORD     time;
  ULONG_PTR dwExtraInfo;
} MOUSEINPUT, *PMOUSEINPUT, *LPMOUSEINPUT;

If dwFlags contains MOUSEEVENTF_WHEEL, then mouseData specifies the amount of wheel movement. A positive value indicates that the wheel was rotated forward, away from the user; a negative value indicates that the wheel was rotated backward, toward the user. One wheel click is defined as WHEEL_DELTA, which is 120.

اگر Flag حاوی MOUSEEVENTF_WHEEL باشد ، mouseData مقدار جابجایی غلطک را مشخص می نماید. مقدار مثبت نمایانگر چرخیدن یا رولیدن به سمت جلو است و مقدار منفی برگشت به عقب . 

Type pt As POINTAPI

X As Long

Y As Long

End Type

Type MOUSEINPUT

X As Long

Y As Long

MouseData As Long

dwFlags  As Long

dwExtractInfo As LongLong

End Type

Type  inputt As INPUT

type As Long

cc(0 to 20) As Byte

'mi As MOUSEINPUT

'ki As KEYBOARDINPUT

End Type

Type : INPUT_MOUSE=0 

Type : INPUT_KEYBOARD=1

کنسل کردن رایت کلیک در اکسل

این رویداد زمانی اتفاق می افتد که در صفحه ی کاری کلیک راست انجام  شود.

Private Sub Worksheet_BeforeRightClick(ByVal Target

(As Range, Cancel As Boolean

اگر در آن رنج بود : 

Cancel=True