Copier/Coller et RichTextBox

Bonjour à tous,
Je cherche à ajouter des fonctions de copier/coller sur un contrôle RichTextBox.
A la lecture de la page msdn ci-dessous, il semble qu'il soit possible d'obtenir un menu copier/coller mais je n'ai pas réussi à l'activer. Quant est t'il exactement ? Le controle est t'il vraiment pourvu de cette fonction ou faut t'il l’implémenter ?
http://msdn.microsoft.com/fr-fr/library/aa970779.aspx
Le copier/coller devrait pouvoir fonctionner à l'intérieur du RichTextBox mais également vers une application de traitement de texte du type Word pour ne pas le citer.
merci d'avance si vous pouvez me donner quelques éléments de réponse ou me dire comment je doit m'y prendre.

Normalement c'est de base. Et ctrl-c ctrl-v, ça marche ?

Merci de me répondre GuruuMeditation,
En effet ctrl-c et ctrl-v fonctionne mais à une condition : il faut que la fenêtre ne soit pas une fenêtre fille.
J'ai testé avec ces 2 boutons pour être sure :

Code:

---

1 2 3 4 5 6 7

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click MaFormFille.MdiParent = Me End Sub   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click MaFormFille.MdiParent = Nothing End Sub

---

Comme ma fenêtre dans laquelle je fait un copier/coller doit être une fenêtre fille, cela ne fonctionne donc pas. Comment puis-je faire ?

Ensuite le menu Copier/coller comme montré dans l'exemple msdn ne s'affiche pas, ça serait mieux si je pouvais aussi afficher ce menu.
Il y certaine bizarerie de vb.net que je ne comprends vraiment pas.:(

Rectification : j'ai testé en partant d'un nouveau projet et ça fonctionne dans une fenêtre fille avec ctrl-c, ctrl-v. Il va falloir que je procède par élimination pour voir d'ou viens le problème dans mon autre projet.

Cela dit j'aimerais bien savoir si on peux faire apparaître le menu contextuel Copier/Coller à l’intérieur d'un RichTextBox;

pour le ctrl+c et v il y a la propriété shortcutsenabled à vérifier, mise à false ca les désactive

pour le context menu :
http://social.msdn.microsoft.com/for...5-3a83e04266b0
avec un lien qui pointe sur comment le créer

J'ai trouver l'erreur dans mon programme. les raccourcis CTRL-C et CTRL-V était déja utilisé dans le menu de ma fenêtre parente, et comme je n'ai pas codé les éléments de ce menu ça ne fonctionnais pas. En modifiant les raccourci par CTRL-G et CTRL-H (par exemple) je retrouve les fonctionnalités du Copier/Coller de base.
Voilà une première étape de résolu, il me reste maintenant a faire apparaître le menu contextuel comme le suggéré Pol63.

Merci pour votre aide, j'ai pas bien compris la raison pour laquelle le Richtextbox ne se comporte pas comme le TextBox (une histoire de controle Win32), mais peu importe. Ce qui est important c'est de savoir qu'il faut implémenter le menu et le code qui va avec.
J'ai trouvé un code qui fonctionne bien au niveau des copier/coller entre mon programme et différentes applications, le seul soucis est que je n'arrive pas à coller le texte dans mon programme à l'emplacement de la position actuel du curseur.

Pour Copier :

Code:

---

1 2 3 4

Private Sub Copier_Click(sender As System.Object, e As System.EventArgs) Handles Copier.Click Clipboard.SetText(RichTextBox1.SelectedText, TextDataFormat.Text) Clipboard.SetText(RichTextBox1.SelectedRtf, TextDataFormat.Rtf) End Sub

---

Pour Coller :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Coller_Click(sender As System.Object, e As System.EventArgs) Handles Coller.Click Dim iData As IDataObject = Clipboard.GetDataObject()   If iData.GetDataPresent(DataFormats.Rtf) Then 'RichTextBox1.Rtf.Insert(RichTextBox1.SelectionStart, iData.GetData(DataFormats.Rtf)) ' -> Ne fonctionne pas. RichTextBox1.Rtf = iData.GetData(DataFormats.Rtf) ' Fonctionne mais ecrase le texte existant ElseIf iData.GetDataPresent(DataFormats.Text) Then RichTextBox1.Text.Insert(RichTextBox1.SelectionStart, iData.GetData(DataFormats.Text)) ' -> Ne fonctionne pas End If End Sub

---

je crois qu'il y a une méthode paste sur le ricthtextbox

si ca ne fonctionne pas mieux tu peux tenter de tricher via sendkeys(ctrl or v) :D

Merci Pol63, ca fonctionne impec :ccool:

Pour Copier :

Code:

---

1 2 3

Private Sub Copier_Click(sender As System.Object, e As System.EventArgs) Handles Copier.Click RichTextBox1.Copy() End Sub

---

Pour Coller :

Code:

---

1 2 3

Private Sub Coller_Click(sender As System.Object, e As System.EventArgs) Handles Coller.Click RichTextBox1.Paste() End Sub

---