使用自定義函數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你需要添加的項目