Тема: Контроль за нажатием клавиши Ctrl
Подскажите, как определить состояние клавиши Ctrl в момент, например, выбора пользователем точки?
Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Контроль за нажатием клавиши Ctrl
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Подскажите, как определить состояние клавиши 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
> LeonidSN
Спасибо! А откуда у вас сведения по функциям из user32?
> Максим
На здоровье.
А эту функцию, правда немного в другом виде, я нашел когда-то на этом форуме.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Контроль за нажатием клавиши Ctrl
Форум работает на PunBB, при поддержке Informer Technologies, Inc