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