• err
  • Восстановленный участник
  • На форуме с 14 августа 2003г.
  • Сообщений: 34
  • Спасибо: 0

Тема: Как организовать обработку нажатия на ESC

Как организовать обработку нажатия на ESC ?

  • Romik
  • Восстановленный участник
  • На форуме с 15 октября 2001г.
  • Сообщений: 142
  • Спасибо: 0

Re: Как организовать обработку нажатия на ESC

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Function CheckKey(lngKey As Long) As Boolean
  If GetAsyncKeyState(lngKey) Then
    CheckKey = True
  Else
    CheckKey = False
  End If
End Function
CheckKey - нажата клавиша(любая) или нет

  • err
  • Восстановленный участник
  • На форуме с 14 августа 2003г.
  • Сообщений: 34
  • Спасибо: 0

Re: Как организовать обработку нажатия на ESC

Спасибо, Romik, но мне хотелось бы, чтобы некоторая процедура запускалась при нажатии на ESC во время работы в ACAD.

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

Re: Как организовать обработку нажатия на ESC

.........
Error_Control:
Select Case Err.Number
    Case -2147352567
        varCancel = ThisDrawing.GetVariable("LASTPROMPT")
        If InStr(1, varCancel, "*Cancel*") <> 0 Then
            Err.Clear
            i = MsgBox("прервать??", vbYesNo, "выполнение программы")
            If i = vbYes Then
                Call endExcel(Excel, curBook, curSheet)
                GoTo Exit_Here
            Else
                Resume
            End If
        Else
            Err.Clear
            Resume
        End If
    Case -2145320928
        Err.Clear
        Resume Exit_Here
    Case Else
        MsgBox Err.Description & " " & Err.Number
        Err.Clear
        Resume Exit_Here
End Select
http://cadhlp.kulichki.com/vba/acvba.htm