Копирование и вставка в RTB

[Vovik]

А как можно убрать встроенные в richtextbox копирование и вставку? А то жму ctrl+v (вставить в меню) и он два раза подряд вставляет...

[alibek]

На событие KeyDown ставь KeyCode = 0.

[Vovik]

На событие KeyDown ставь KeyCode = 0.

Мне бы узнать код сочитания этих клавиш, т.к. KeyDown у меня обрабатывается.....

[alibek]

Код: Выделить всё

Private Sub RTB1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case Shift
  Case 1 'Ctrl
    Select Case KeyCode
      Case vbKeyV
        KeyCode = 0
    End Select
End Select
End Sub

[Vovik]

Блин. Нифига не помогает.... Может это виндосовская вставка срабатывает? что ж это такое.....

[alibek]

У меня работало.
Ну тогда выставь на форме .KeyPreview = True и в коде формы напиши:

Код: Выделить всё

Private Sub Form_KeyDown(KeyCode, Shift)
  If Me.ActiveControl Is RTB1 Then
    If Shift = 1 And KeyCode = vbKeyV Then
      KeyCode = 0
    End If
  End If
End Sub

[Vovik]

Всё... заработало... просто, когда обнуляешь keycode, то не срабатывает горячие клавишы, выствленные в меню....поэтому я дополнительно вызвал функцию вставки.... а... ctrl - 2

[alibek]

Точно, 1 это Shift
Я очень, очень, очень извиняюсь