Copier/coller pour toutes les RTBox d'une formRésolu

Question

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

collargol123 · Answer

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.

collargol123 · Answer

J'ai trouvé avec activecontrol

Dim gg = Me.ActiveControl
            If gg Is rtbTexte Then
                TexteColler(rtbTexte)
end if

Copier/coller pour toutes les RTBox d'une form

2 réponses

Discussions similaires