Zachycení stisku "CTRL+V" v RichTextBoxu

Postup:
Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)

   Dim CtrlDown 

   CtrlDown = (Shift And vbCtrlMask) > 0 
   If KeyCode = vbKeyV Then 
      If CtrlDown Then 
         KeyCode = 0 
         Me.Caption = "Stisknuto CTRL+V" 
      End 
   If End If

End Sub

Řádek KeyCode = 0 vynuluje sekvenci pro stisk CTRL+V a následné vysypání obsahu schránky do RichTextBoxu. Musí to být zapsáno na události KeyDown, protože jinak se nejprve provede vložení a následně se kontroluje stisk kláves.

Zpět