Тема: Контроль за нажатием клавиши Ctrl

Подскажите, как определить состояние клавиши Ctrl в момент, например, выбора пользователем точки?

Re: Контроль за нажатием клавиши Ctrl

Public Const VK_CONTROL = &H11
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Sub Example_GetPoint()
    Dim returnPnt As Variant
    On Error Resume Next
    ' Return a point using a prompt
    returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
  If CheckKey(VK_CONTROL) Then
     MsgBox "Ctl is down!"
  Else
    MsgBox "Ctl is up!"
  End If
End Sub
Function CheckKey(lngKey As Long) As Boolean
  If GetAsyncKeyState(lngKey) Then
    CheckKey = True
  Else
    CheckKey = False
  End If
End Function

Re: Контроль за нажатием клавиши Ctrl

> LeonidSN
Спасибо! А откуда у вас сведения по функциям из user32?

Re: Контроль за нажатием клавиши Ctrl

> Максим
На здоровье.
А эту функцию, правда немного в другом виде, я нашел когда-то на этом форуме.