Excel Надстройка KeyPress/KeyDown Implementation (Visual Basic)

Question

Я написал эту надстройку в Visual Basic, и мне нужно включать и выключать ее.

Imports Microsoft.Office.Interop.Excel 

Public Class ThisAddIn 

    Private Sub ThisAddIn_Startup() Handles Me.Startup 

    End Sub 

    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown 

    End Sub 

    Sub Application_SheetChange(Sh As Object, Target As Range) Handles Application.SheetChange 

     Target.Offset(0, 1).PrintOut(Copies:=1, Preview:=True) 

    End Sub 
End Class 

Я написал алгоритм псевдокода для решения этой проблемы.

Imports Microsoft.Office.Interop.Excel 

Public Class ThisAddIn 

    int toggle = 0 'off 

    Sub Press F1 key 
     if (toggle == 1) 'if on turn off 
      toggle = 0 
     else 
      toggle = 1 'else turn on 

     End Sub 


    Sub Application_SheetChange(Sh As Object, Target As Range) Handles Application.SheetChange 

     if(toggle == 1) 

      Target.Offset(0, 1).PrintOut(Copies:=1, Preview:=True) 

    End Sub 

End Class 

У меня есть оператор if и переменная, работающая. Мне действительно нужна помощь в реализации функции KeyPress или KeyDown.

Я хотел бы использовать F1 Key, поэтому я считаю, что это должно быть событие KeyDown.

Если у вас есть предложения, было бы весьма полезно.

Answer 1

Чтобы поймать событие клавиатуры, вы можете использовать this code (он находится в C#, но не слишком большой для перевода)

Чтобы пропустить действие F1 по умолчанию, используйте этот код:

Application.OnKey("{F1}", "")