Перехват нажатия Ctrl-C

Пятница, 27 Февраля 2015 г. 13:09 + в цитатник

Добрый день.

Для работы с данными я использую стронний грид от Exontrol, к сожалению в их помощи я не нашел как реализовать копирование данных из грида в буфер обмена, поэтому попытался сделать что-то свое.
Но все уперлось в то, что Access не перехватывает нажатие Ctrl-C!

Вот процедура "отлова" нажатий, Ctrl-A ловится отлично, а Ctrl-C не хочет.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim g As EXGRIDLib.Grid
  
  Set g = Grid0.Object
  If Shift = acCtrlMask Then
    Select Case KeyCode
      Case vbKeyA
        With g
          .BeginUpdate
          .Items.SelectAll
          .EndUpdate
        End With
        KeyCode = 0
      Case vbKeyC
        With g
          .BeginUpdate
          ClipBoardSetData .Export("", "sel")
          .EndUpdate
        End With
        KeyCode = 0
    End Select
  End If
End Sub