Copier/coller pour toutes les RTBox d'une form [Résolu]

Signaler
Messages postés
86
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
2 avril 2014
-
Messages postés
86
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
2 avril 2014
-
Bonjour,


J'ai un menu "edition" avec en sous menu copier, coller, couper, annuler
J'ai par ailleurs 5 RTB.

Je souhaite creer une procédure pour couper ou copier dans une RTB et coller dans une autre.

En utilisant clipboard, je dois nommer une RTB
ex : Clipboard.SetText(TextBox1.Text) pour copier ou TextBox1.Text = Clipboard.GetText pour coller

Comment faire pour que textbox1.text soit n'importe quelle RTB dont je souhaite sélectionner un texte our le copier ou coller .....

Suis je obliger de crééer un menu contextuel pour chacune des RTB, ce qui est fastidieux ! Je suis sur qu'il y a moins fastidieux !

merci de vos réponses

2 réponses

Messages postés
86
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
2 avril 2014

J'ai essayé de vérifier le focus avec le code suivant :

si le focus est sur cette RTB alors couper le texte de cette RTB
if textbox1.focus = true then ..

mais cela ne fonctionne pas, il ne reconnait pas le focus.
Messages postés
86
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
2 avril 2014

J'ai trouvé avec activecontrol

Dim gg = Me.ActiveControl
If gg Is rtbTexte Then
TexteColler(rtbTexte)
end if