• serg
  • Восстановленный участник
  • На форуме с 29 сентября 2006г.
  • Сообщений: 23
  • Спасибо: 0

Тема: Отслеживание Enter

Здравствуйте уважаемые ГОСПОДА ПРОГРАММЕРЫ!!!
Нужно отследить в VBA AutoCada нажатие на ентер, как это можно сделать?
Заранее благодарен всем ответившим.

  • LeonidSN
  • Восстановленный участник
  • На форуме с 5 марта 2008г.
  • Сообщений: 8
  • Спасибо: 0

Re: Отслеживание Enter

http://www.cad.dp.ua/stats/a_vba/acenti … ncKeyState

  • serg
  • Восстановленный участник
  • На форуме с 29 сентября 2006г.
  • Сообщений: 23
  • Спасибо: 0

Re: Отслеживание Enter

Благодарю конечно, но пример с ескейпом у меня есть, нужен ЕНТЕР пожалуйста!

  • LeonidSN
  • Восстановленный участник
  • На форуме с 5 марта 2008г.
  • Сообщений: 8
  • Спасибо: 0

Re: Отслеживание Enter

> serg
Уважаемый serg, не напрашивайтесь на анекдот, пожалуйста.

  • Dolgy44
  • Восстановленный участник
  • На форуме с 22 марта 2008г.
  • Сообщений: 9
  • Спасибо: 0

Re: Отслеживание Enter

В модуль запишем:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal VKEY As Long) As Integer
В процедуре:
keystate = GetAsyncKeyState(vbKeyEscape)
If (keystate And &H1) = &H1 Then
    Exit Sub
End If

  • Dolgy44
  • Восстановленный участник
  • На форуме с 22 марта 2008г.
  • Сообщений: 9
  • Спасибо: 0

Re: Отслеживание Enter

Этот пример с Esc c Enter также, найди только по F2 константу Entera в VB