使用自定义函数dinamically添加context_menu项目

Question

我创建上下文菜单dinamically并希望将菜单项分配给我自己的函数（带参数）。不幸的是，不要按我的意愿去。

以下示例说明了我想要做的事情。

Private Sub dgv_sub_CellMouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgv_sub.CellMouseUp 

    If e.Button = Windows.Forms.MouseButtons.Right Then 
     dgv_sub.Rows(e.RowIndex).Selected = True 
     context_sub.Items.Clear() 
     context_sub.Items.Add("Delete row " + dgv_sub.CurrentRow.Index.ToString, Nothing) AddressOf delRow(dgv_sub.CurrentRow.Index)) 
     context_sub.Items.Add("Delete all rows", Nothing) , AddressOf delRow(-1)) 
     context_sub.Show(New Point(Cursor.Position.X, Cursor.Position.Y)) 
    End If 
End Sub 

Private Sub delRow(ByVal rowtodelete As Integer) 

End Sub 

如何正确设置并使其按照所述的方式工作？

Answer 1

这是怎么我通常做这几样东西：

1. 有一个预先填充ContextMenu

2. 分配ContextMenu我DataGridView

3. 添加活动的每一个ToolStripMenuItem

4. 在每一个事件中，首先我做一检查，以确保该行已选定

If dgv_sub.SelectedRows.Count > 0 Then

然后，我通过使用

SelectedRows(0)

得到正确的行

为了使事情更加简洁，您还可以使用DataGridView.MouseDown事件来确保当用户右键单击一行时，它将被选中。

Private Sub dgv_sub_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgv_sub.MouseDown 
    If e.Button = Windows.Forms.MouseButtons.Right Then 
     Dim hitTest As DataGridView.HitTestInfo 
     hitTest = dgv_sub.HitTest(e.X, e.Y) 

     If hitTest IsNot Nothing AndAlso hitTest.RowIndex > -1 Then 
      dgv_sub.CurrentCell = dgv_sub.Item(hitTest.ColumnIndex, hitTest.RowIndex) 
      dgv_sub.Rows(hitTest.RowIndex).Selected = True 
     End If 
    End If 
End Sub 

---

，因为你需要的环境项是动态的，你将不得不在MouseDown事件藏汉做这些。

为了正确地添加一个项目，你仍然需要一个正常的单击事件：

context_sub.Items.Add("Name of Item", Nothing, AddressOf item_Click) 

然后添加一个Sub这样的：

Private Sub item_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
    'Add any logic here, you can still use the dgv_sub.SelectedRows here 
End Sub 

理想情况下，你的每一个上下文菜单中创建一个不同的Sub你需要添加的项目