ContextMenu cree dynamiquement

Version imprimable

Bonsoir,

Voila, je cree une serie de Boutons sur un Panel en cliquant sur un Bouton "Add".
En meme temps, j'ai cree un ContextMenu dynamiquement avec une seule option "Delete". Soit:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub btn_Click(...
        aButton = New Button
        aButton.Location = New Point(20, 20)
        aButton.Size = New Size(sideB, sideA)
        aButton.Font = New Font("Arial", 10, FontStyle.Bold)
        AddHandler aButton.MouseDown, AddressOf aButton_MouseDown
        AddHandler aButton.MouseUp, AddressOf aButton_MouseUp
        AddHandler aButton.MouseMove, AddressOf aButton_MouseMove
        '-----------------------------------------------------
        ' ContextMenu to Delete a Button
        '-----------------------------------------------------
        Dim cms As New ContextMenuStrip
        Dim item As ToolStripItem = cms.Items.Add("Delete")
        AddHandler item.Click, AddressOf cmsDelete_Click
        aButton.ContextMenuStrip = cms
        '-----------------------------------------------------
        myPanel.Controls.Add(aButton)
End Sub

Et l'adresse de cmsDelete_Click:

Code:

1
2
3
4
Private Sub cmsDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim selectedButton As Button = (From c In myPanel.Controls Select c).FirstOrDefault
        myPanel.Controls.Remove(selectedButton)
End Sub

J'ai donc essaye du LINQ, mais ce n'est pas tout a fait bon.
Dans ce cas j'enleve toujours le dernier Boutons crees dynamiquement et pas le Bouton selectionne.
Je comprends pourquoi, mais je ne vois pas comment resoudre ce probleme. Cela devrait pourtant pas etre tres complique (excepte pour moi apparement!)

Un petit coup de pouce serait le bienvenu.
Merci,
A+
JLuc01

04/07/2013, 23h50
azstar

essaie

Code:

contextMenuStrip1.Show(Button1, Button1.PointToClient(Cursor.Position));

Bonjour,

Il est toujours intéressant de nommer les contrôles, cela peut permettre de les retrouver. (en donnant le focus au bouton sur clic droit, ensuite on peut le rechercher)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Private IndiceNom As Integer = 0 'uniquement pour donner un nom différent à chaque bouton créé dynamiquement.
    Private Sub btnCMDyn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCMDyn.Click
        Dim aButton As Button = New Button
        IndiceNom += 1
        aButton.Name = IndiceNom.ToString 'juste pour des noms différents
'...
    End Sub
 
    Private Sub cmsDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        MyPanel.Controls.RemoveByKey(ActiveControl.Name) 'retrouve le controle par son nom
    End Sub
 
    Private Sub aButton_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
        If e.Button = MouseButtons.Right Then sender.focus() ' Définit le focus d'entrée sur le contrôle. 
        ' ou ...     sender.select() 'Active un contrôle. 
        ' ou ...     ActiveControl = sender
    End Sub

définir le focus sur un contrôle, Control.Focus, Control.Select.

Il existe peut-être d'autres solutions.

bonjour

Cela releve de l'utilisation accoutume des contextmenus...
Tu n'as pas besoin de linq dans ce cas d'espece ,puisque ContextMenuStrip dispose de l'infrastructure approprie:sourcecontrol simplement ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Public Class Form1
    Private aButton As New Button
    Private rnd As Random = New Random
    Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
        Dim cms As New ContextMenuStrip
        For i As Integer = 1 To 5
            aButton = New Button
            aButton.Text = "btn" + i.ToString
            aButton.Location = New Point(rnd.Next(50, 600), rnd.Next(50, 400))
            aButton.Size = New Size(75, 25)
            aButton.Font = New Font("Arial", 10, FontStyle.Bold)
            Panel1.Controls.Add(aButton)
            aButton.ContextMenuStrip = cms
 
        Next
 
 
 
        '-----------------------------------------------------
        ' ContextMenu to Delete a Button
        '-----------------------------------------------------
        Dim item As ToolStripItem = cms.Items.Add("Delete")
 
        AddHandler item.Click, AddressOf cmsDelete_Click
 
        '-----------------------------------------------------
 
    End Sub
 
 
 
 
 
    Private Sub cmsDelete_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim item As ToolStripItem = CType(sender, ToolStripItem)
        Dim cms As ContextMenuStrip = item.Owner
        Dim selectedButton As Button = cms.SourceControl
        Panel1.Controls.Remove(selectedButton)
 
    End Sub
 
 
End Class

Linq n'est utile que si tu veux faire des traitements sur un groupe de boutons selectionne suivant un critere....
bon code........

06/07/2013, 10h13
JLuc01
Re-bonjour,

Tres interessant tout ca.

Aztar, interessant, mais je ne vois pas comment faire pour l'adapter a mon cas.

rv26t,
En fait ,dans mon code, j'avais aussi les lignes suivantes dans l'evenement "btnCMDyn.Click":
Code:

1 2 iCounter = iCounter + 1 aButton.Text = iCounter.ToString
Je sais ce n'est pas la propriete "Name", mais j'ai essaye d'adapter comme ceci:

Code:

myPanel.Controls.RemoveByKey(CInt(SplitContainer1.ActiveControl.Text))

Cependant, cela ne marche pas. Pourtant en "Debug", j'ai SplitContainer1.ActiveControl.Text = "2".
Mais, l'idee est certainement a retenir.

MABROUKI,
Rien a dire: ca marche impeccable.
En fait, il suffit de chercher un peu plus les proprietes/methodes dans les controles, sauf si on connait tres bien le controle en question.

Merci a tous,
A+
JLuc01
06/07/2013, 22h47
rv26t
Citation:
Envoyé par JLuc01

En fait ,dans mon code, j'avais aussi les lignes suivantes dans l'evenement "btnCMDyn.Click":

Code:

1 2 iCounter = iCounter + 1 aButton.Text = iCounter.ToString

Je sais ce n'est pas la propriete "Name", mais j'ai essaye d'adapter comme ceci:

Code:

myPanel.Controls.RemoveByKey(CInt(SplitContainer1.ActiveControl.Text))

Cependant, cela ne marche pas. Pourtant en "Debug", j'ai SplitContainer1.ActiveControl.Text = "2".
Mais, l'idee est certainement a retenir.
La méthode RemoveByKey (Control.ControlCollection.RemoveByKey, méthode) prend comme paramètre le nom (Name) du contrôle enfant à supprimer de la collection du contrôle conteneur (MyPanel). (explication pour info, puisque la méthode de Mabrouki est la solution a utiliser)
Sinon cela ne peut pas fonctionner.
07/07/2013, 00h08
JLuc01

rv26t, merci pour les precisions!

A+
JLuc01