Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode vbKeyC And Shift vbAltMask Then MsgBox "Alt + C detecté", vbInformation End If End Sub
Private Sub txtTerm_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode vbKeyC And Shift vbAltMask Then Clipboard.SetText (txtTerm.SelStart) End If End Sub
Private Sub txtTerm_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode vbKeyC And Shift vbAltMask Then Clipboard.SetText txtTerm.SelText End If If KeyCode vbKeyV And Shift vbAltMask Then Call CopierColler(Clipboard.GetText) End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question