Discussion :

[Bob Langlade]

Dans toutes les applications il y a un menu Edition qui comprend les fonctions Couper/Copier/Coller/... qui s'appliquent non seulement aux contrôles de la Form parente mais aussi à toutes à toutes les Forms enfants.




J'ai essayé d'implémenter 'Coller' en limitant l'essai aux TextBoxes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
PrivateSub PasteToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As EventArgs) Handles PasteToolStripMenuItem.Click
If TypeOf (sender) Is TextBox Then
Dim TB As TextBox = CType(sender, TextBox)
TB.Paste()

 
 
EndIf
'Utilisez My.Computer.Clipboard.GetText() ou My.Computer.Clipboard.GetData pour extraire les informations du Presse-papiers.
EndSub

Et j'obtiens

Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.ToolStripMenuItem' en type 'System.Windows.Forms.Control'.

Puisque qu'il considère que l'objet à l'origine de l'appel est le toolstrip. Il faudrait pouvoir remonter à l'objet précédent cet appel.

Le plus bête c'est que si je ne mets pas mon propre menu Edition, toutes les commandes d'édition de Windows fonctionnent.

[Bob Langlade]

Finalement grâce à l'excellent cours de Monsieur Lasserre , j'ai utilisé la fonction sendkeys qui simplifie grandement l'implémentation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SendKeys.Send("^V")