Question

怎样动态触发ToolStripMenuItem菜单的点击事件

Answer 1

#Region "DataGridView右键菜单"

Public Sub SetContextMenuStrip()

Dim ToolStripMenuItem1 As New System.Windows.Forms.ToolStripMenuItem("查找数腊定位")

Dim ToolStripMenuItem2 As New System.Windows.Forms.ToolStripMenuItem("记录范围筛选"枣毕耐)

Dim ToolStripMenuItem3 As New System.Windows.Forms.ToolStripMenuItem("固定列")

Dim ToolStripMenuItem4 As New System.Windows.Forms.ToolStripMenuItem("凳春多列排序")

Dim ContextMenuStrip1 As New ContextMenuStrip

MyGrid.ContextMenuStrip = ContextMenuStrip1

With ContextMenuStrip1.Items

.Add(ToolStripMenuItem1)

.Add(ToolStripMenuItem2)

.Add(ToolStripMenuItem3)

End With

AddHandler ToolStripMenuItem1.Click, AddressOf ToolStripMenuItem_Click

AddHandler ToolStripMenuItem2.Click, AddressOf ToolStripMenuItem_Click

AddHandler ToolStripMenuItem3.Click, AddressOf ToolStripMenuItem_Click

End Sub

Private Sub ToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

Select Case sender.text

Case "查找定位"

Me.ShowGridFind()

Case "记录范围筛选"

Me.ShowGridFilter()

Case "固定列"

Me.ShowGridColumn(ColumnProperty.固定列)

End Select

End Sub

#End Region