Couper, copier, coller dans une richtextbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 421 fois - Téléchargée 79 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
-
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
-
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
-
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
-
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
-
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

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.