CodeS-SourceS
Rechercher un code, un tuto, une réponse

Couper, copier, coller dans une richtextbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 693 fois - Téléchargée 59 fois

Contenu du snippet

Soit une feuille (form1) qui contient trois boutons (couper, copier, coller) et une TextBox ou une RichTextBox (text1) dont les propriétés "Multiline" et "Scrollbars" ont respectivement pour valeur "True" et "Vertical".

Source / Exemple :


' on affecte les codes suivants aux boutons :

Private Sub couper_Click()
    If Text1.SelText <> "" Then
        Clipboard.SetText(Text1.SelText)
        Text1.SelText = ""
    End If
End Sub

Private Sub copier_Click()
    If Text1.SelText <> "" Then
        Clipboard.SetText(Text1.SelText)
    End If
End Sub

Private Sub Coller_Click()
    Text1.SelText = Clipboard.GetText
End sub

Conclusion :


Ensuite on peut sélectionner du texte dans form1.text1 et le couper, le copier ou le coller à l'aide des trois boutons.
Voir aussi "Couper, Copier, coller dans une TextBox".

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.