menu contextuel sur textboxRésolu

Question

Bonjour à tous.
Comment peut-on imaginer de programmer l'utilisation d'un seul et unique menu contextuel applicable à plusieurs textboxe.
Je m'explique :
mon menu contextuel contient couper, copier, coller.
J'ai trois textboxe ou plus et je ne veux pas être contraint de créer autant de menu contextuel que de textbox et d'économiser un maximum de lignes de programmation.
Je suppose qu'il existe une instruction permettant d'identifier le nom du contrôle lors du passage de la souris.
Qu'en pensez-vous.
D'avance merci de votre aide
 
--

cs_Le Pivert · Answer

Bonjour,

dans tes précédents post tu programmes en VB.Net. Donc le control  TextBox a les copier, coller et couper en menu contextuel.
Je ne comprends donc pas ta question, a moins que ce soit du vba, tu ne l'as pas spécifié!

cs_DAN1 · Answer

Bonjour Le Pivert .
Merci de ta réponse il s'agit bien là de programmation en VB. net.
Je veux pouvoir faire un clic droit sur mon textbox , ouvrir le menu contextuel avec mes menus copier couper coller.
Ça je sais le faire mais comme j'ai plusieurs textbox je ne veux pas avoir à créer autant de menu contextuel et pouvoir utiliser un seul menu contextuel pour plusieurs textbox.
Pour cela il faut selon moi que j'identifie et récupère le nom de ma textboxx me qu'en penses-tu ?
A+.
Dan
 
--

cs_Le Pivert · Answer

Je ne te comprends toujours pas!
Tu n'as pas besoin de créer de menu contextuel pour une Textbox, il y est nativement.
Explique alors ce que tu as crée en présentant ton code.
On pourra peut-être mieux comprendre ton besoin.

Pour ce qui est de parcourir tous les TextBox, une recherche sur Google te l'indique:

parcourir control en VB.NET

http://pise.info/vb-net/06.htm

par exemple
 
@+ Le Pivert

cs_Le Pivert · Answer

Regarde ceci

http://plasserre.developpez.com/cours/vb-net/?page=ui-winforms2#LVIII-E


Tu trouveras cela:

La propriété ShortCutsEnabled = True permet à l'utilisateur d'ouvrir un menu contextuel avec le click droit; ce menu permet les annuler, couper, copier, coller, supprimer, Sélectionner tout; ce qui peut aussi être fait avec les raccourcis clavier Shift/Inser Ctrl/Inser..

Whismeril · Answer

Bonsoir

la solution du Pivert (que je salue) est la meilleure => y'a rien à coder!

Cependant, si tu dois faire un autre menu, ou utiliser un évènement commun à plusieurs contrôles (même de type différents) voilà la démarche.

Admettons que je veuille gérer le click d'un bouton et d'un label dans la même méthode
J'ai déjà "créé" la méthode pour le label et ci-dessous j'associe le bouton


    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click, Button2.Click
        'sender contient l'objet qui a généré l'évènement

Dim leSender As Control = CType(sender, Control)
        'je caste sender en tant que Control, car comme tout objet dans .Net Control dérive d'Object, et que normalement sender est un controle....
        If leSender.Name = "Label1" Then
            Dim leLable As Label = CType(sender, Label) 'comme finalement c'est un label
            leLable.Text = "coucou"
        Else
            Dim leBouton As Button = CType(sender, Button) 'en fait c'est le bouton
            MessageBox.Show("Click sur le bouton")
        End If

End Sub

cs_DAN1 · Answer

Merci Le Pivert et merci Whismeril
 Je viens de m'apercevoir que j'utilisais du RichTextBox et non pas textbox ce qui explique mon problème.Je ne vois pas d'ailleurs la raison qui m'a fait utiliser cela.

Donc je vais tout remplacer par du textbox  pour avoir le menu contextuel le natif.

Par contre le code et les explications  m'intéresse beaucoup 

Je vous en remercie encore

 
--

cs_DAN1 · Answer

Bonjour.
Je reviens sur le sujet car si j'avais eu plusieurs contrôles du type RichTextBox  pour lesquels j'aurais voulu utiliser un seul et unique menu contextuel comment aurais-je pu procéder pour identifier le RichTextBox   sur lequel je suis afin d'effectuer un copier, un collé ou un coupé ?
Il faudrait probablement que par survol de la souris je puisse enregistrer le nom de mon contrôle et qu'ensuite en paramètre de mes copier coller ou couper je puisse agir sur ce contrôle.
Avez-vous une idée ?
D'avance merci de votre aide
 
--

cs_DAN1 · Answer

Bonjour Le Pivert et i Whismeril 

Avec tout ce que vous avez indiqué et les exemples juin j'ai fait un petit programme avec menu contextuel sur des labels ,picturebox .... voici un petit exemple j'aimerais avoir votre avis car je crois avoir fait une bonne économie en ligne de programmation.
J'ai d'ailleurs découvert que event contient le nom de l'événement sur lequel l'action a été déclenchée.
Cela m'ouvre d'ailleurs de nouvelles perspectives.
En tout cas merci de me donner votre avis.
A+.
Dan
pi
Imports VB = Microsoft.VisualBasic
 
Public Class Form1
    Dim leSender As Control
    Dim leLable As Label
    Dim RichTextBox As RichTextBox
    Dim send
    Dim labelc
    Dim labelv = ""
    Dim gen
    
    Private Sub RichTextBox1_MouseHover(sender As Object, e As System.EventArgs) Handles RichTextBox1.MouseHover
       RichTextBox)
        gen = sender
    End Sub
    Private Sub COLERToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles COLERToolStripMenuItem.Click
        gen.Text = labelv
    End Sub

Private Sub Label1_MouseHover(sender As Object, e As System.EventArgs) Handles Label1.MouseHover       
        gen = sender
    End Sub

Private Sub Label2_MouseHover(sender As Object, e As System.EventArgs) Handles Label2.MouseHover
        gen = sender
    End Sub
    Private Sub COPIERToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles COPIERToolStripMenuItem.Click
        labelv = gen.Text
    End Sub

Private Sub RichTextBox2_MouseHover(sender As Object, e As System.EventArgs) Handles RichTextBox2.MouseHover
        RichTextBox)
        gen = sender
    End Sub

Private Sub TextBox1_MouseHover(sender As Object, e As System.EventArgs) Handles TextBox1.MouseHover
              gen = sender
    End Sub
 
End Class

--

Whismeril · Answer

Bonjour

j'ai créé un menu qui s'appelle mnuContextMenu, avec 2 items, mnuCopier et mnuColler.
Je l'ai affecté à 2 textBox et un Label

Private Sub mnuCopier_Click(sender As Object, e As EventArgs) Handles mnuCopier.Click
        Dim monControle As Control = CType(mnuContextMenu.SourceControl, Control) 'recupère le controle qui a ouvert le menu
        Clipboard.SetData(DataFormats.Text, monControle.Text) 'charge le presse papier
    End Sub

Private Sub mnuColler_Click(sender As Object, e As EventArgs) Handles mnuColler.Click
        Dim monControle As Control = CType(mnuContextMenu.SourceControl, Control)
        monControle.Text = Clipboard.GetText() 'décharge le presse papier
        Clipboard.Clear() 'vide le presse papier pour bien vérifier que Coller n'est actif que s'il y a quelque chose dedans, toi tu feras comme tu veux
    End Sub

Private Sub mnuContextMenu_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles mnuContextMenu.Opening
        mnuColler.Enabled = Clipboard.ContainsText() 'le menu Coller est activé s'il y a du texte dans le presse papier
    End Sub

cs_DAN1 · Answer

Bonjour  Whismeril.

J'ai aussitôt testé ton code qui marche nickel à l'exception de la partie suivanteBonjour.
 Private Sub mnuContextMenu_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles mnuContextMenu.Opening
        mnuColler.Enabled = Clipboard.ContainsText() 'le menu Coller est activé s'il y a du texte dans le presse papier
    End Sub
 
--Je n'aurais donc pas à créer des contrôles moushover avec la solution que tu me proposes, c'est un net avantage si l'on a beaucoup de contrôle à inclure dans le menu.
Je te joins une copie d'écran d'erreur sur le contrôle mnuContextMenu_Opening Pour que tu me donnes ton avis.
En te remerciant encore du temps tu as tu as bien voulu me consacrer.
A+.
Dan

cs_DAN1 · Answer

J'avais oublié de joindre une copie d'écran d'erreur.

 
A+.
Dan
 
--

cs_DAN1 · Answer

Bonjour Whismeril
Non mon menu s'appelle
mnuContextMenu les copier et coller du menu me renvoie à :
COLERToolStripMenuItem
 et  COPIERToolStripMenuItem qu'en penses-tu ?
Merci de ton aide encore une fois.
Dan







 

 
--

Menu contextuel sur textbox

12 réponses

Votre réponse