Couper, copier, coller dans une richtextbox

0/5 (6 avis)

Snippet vu 14 149 fois - Téléchargée 81 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

Ajouter un commentaire Commentaires
marquise04 Messages postés 2 Date d'inscription jeudi 1 mars 2007 Statut Membre Dernière intervention 24 mars 2007
19 mars 2007 à 23:16
merci bp
tres simple et claire
EdBsb Messages postés 6 Date d'inscription samedi 19 mars 2005 Statut Membre Dernière intervention 7 décembre 2007
26 avril 2006 à 23:15
Source simple et claire !!
Plutôt pour débutant qu'initié peut être !
Je note 10 car même 4 ans après, elle sert toujours !!!
Ed
ldx Messages postés 23 Date d'inscription jeudi 29 avril 2004 Statut Membre Dernière intervention 3 mai 2005
22 févr. 2005 à 13:43
Bonjour

Un clipboard.clear en deébut de prog est insuffisant.

Le "Coller" sur un SelText double bien. Je suppose qu'implicitement le contenu du presse-papier est mis à disposition de la RichTextBox (au point d'insertion).
Si vous vous amusez à calculer le LENGTH d'une richtextbox vide avant un copier ou couper, celui-ci sera égal à zéro. Copiez du texte dans un doc. extérieur à votre prog... si votre RichTextBox est "actif" et que vous revérifiez sa longueur avant le coller, vous vous apercevrez que celle-ci est égale au contenu du presse-papier. En un mot tout se passe comme si le contenu du presse-papier avait été inséré de manière invisible ...

Solution ? je ne l'ai pas encore trouvée. Je suis actuellement dessus ...
skaferadics Messages postés 21 Date d'inscription mercredi 23 janvier 2002 Statut Membre Dernière intervention 28 décembre 2002
2 avril 2002 à 22:39
be au debut de ton appli tu a cas vider le presse papier
apres si tu fait un copier coller tu devrai plus avoir d'erreur qui double tes mots
a+
skafer
skaferadics Messages postés 21 Date d'inscription mercredi 23 janvier 2002 Statut Membre Dernière intervention 28 décembre 2002
2 avril 2002 à 22:38
be au debut de ton appli tu a cas vider le presse papier
apres si tu fait un copier coller tu devrai plus avoir d'erreur qui double tes mots
a+
skafer
Afficher les 6 commentaires

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.