Discussion :

[veens777]

Bonjour,

afin de créer un type de label personnalisé, j'ai créé une classe "LBL_Custom" dérivée de la classe label.

dans mon programme, l'utilisateur doit ajouter des "LBL_Custom" dans un flowlayoutpanel.

je voudrais que lorsque l'utilisateur clic droit sur un LBL_Custom un contextmenustrip s'affiche avec l'item "supprimer". Le code suivant m'a permis de le faire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Public Class Preco_LBL
    Inherits Label   
 
    Sub New()
        Dim CTMS1 As New ContextMenuStrip
        Dim sup, As New ToolStripMenuItem
        sup.Text = "Supprimer"
        CTMS1.Items.Add(sup)
        AddHandler sup.Click, AddressOf CTMS1_Sup_Click
        Me.ContextMenuStrip = CTMS1
    End Sub
 
    Private Sub CTMS1_Sup_Click(ByVal sender As ToolStripMenuItem, ByVal e As System.EventArgs)
        ...
    End Sub
End Class

MON PROBLEME : : je voudrais que lorsque l'utilisateur clic gauche sur l'item "supprimer" cela provoque la suppression du LBL_Custom concerné (c.a.d celui sur lequel l'utilisateur à cliquer droit) ; je me doute qu'il faille utiliser le sender dans la procédure "CTMS1_Sup_Click" mais je ne vois pas du tout comment.

Merci pour votre aide.

[rv26t]

Bonjour,

dans le new, rajouter

Code :

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

        sup.Tag = Me

Code :

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

1
2
3
    Private Sub CTMS1_Sup_Click(ByVal sender As ToolStripMenuItem, ByVal e As System.EventArgs)
        DirectCast(sender.Tag, CustTextBox).Parent().Controls.RemoveByKey(Me.Name)
    End Sub

A+, Herve

[veens777]

Nikel ça marche !!

merci beaucoup pour ton aide.