Событие нажатия лев. кнопки мыши вне модального окна.

[shprotus]

При открытой модальной форме нужно отследить событие нажатия левой кнопки мыши вне этого окна. Подскажите пожалуйста как создать данное событие.

[doober]

Нажатие ЛКМ в окне документа Excel?
Если нет,то только глобальный хук на мышку.

[shprotus]

Нажатие ЛКМ в окне документа Excel?

Почти, речь идет от VBA в AutoCAD, т.е. нажатие в окне AutoCAD (вся программа пишится в VBA AutoCAD)

[doober]

Есть только такая обработки мыши

Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)

End Sub

Private Sub AcadDocument_BeginRightClick(ByVal PickPoint As Variant)

End Sub

На левую кнопку вы не подпишетесь,только хук.Не предусмотрели в VBA.
А что вы хотите отловить?.
Возможно другие события есть возможность использовать.

[doober]

У меня в AutoCAD 2008 работает

'КОД ФОРМЫ
Private hwnd As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long

Private Sub UserForm_Activate()
hwnd = GetActiveWindow
 Call Hook(hwnd)
 End Sub

Private Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 Call UnHook(hwnd)
 End Sub

 'КОД МОДУЛЯ
 Option Explicit
 Private Declare Function CallWindowProcA Lib "user32" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 Private Declare Function SetWindowTextA Lib "user32" (ByVal hwnd As Long, ByVal lpString As String) As Long
 Private Const GWL_WNDPROC = -4
 Private Const WM_MOUSEWHEEL = &H20A
 Const WM_KEYDOWN As Long = &H100
 Const VK_DOWN As Long = &H28
 Const VK_UP As Long = &H26

Const HC_ACTION As Integer = 0
 Const WH_MOUSE_LL As Integer = 14
  Const WM_LBUTTONDOWN As Integer = &H201

 
 Private lpPrevWndProc As Long, Wheel As Integer

Sub Hook(hwnd As Long)
 lpPrevWndProc = SetWindowLongA(hwnd, GWL_WNDPROC, AddressOf WindowProc)
 End Sub
Sub UnHook(hwnd As Long)
 Call SetWindowLongA(hwnd, GWL_WNDPROC, lpPrevWndProc)
 End Sub
Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 On Error GoTo xErr

 If uMsg = WM_LBUTTONDOWN   Then
Ваш код 
Else
 WindowProc = CallWindowProcA(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
End If

 xErr:
 End Function

ЗЫ:Но я бы не советовал использовать хук

[shprotus]

Есть только такая обработки мыши

doober я это пробовал, но в момент когда открыта форма, это событие не работает.

У меня в AutoCAD 2008 работает

К сожалению у меня просто виснет и вырубается AutoCAD ( он 2011-й)