VB鼠标触发显示下拉菜单

End Sub
''控件本身就可以使用，没增加一个ToolstripMenuitem，都类似于一个控件包含自己的名称，可在程序中使用。
End Sub
'方式
ContextMenuStrip1.Show(button,x,y);
’显示带复选框的下拉菜单
Private Sub bTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bTN.Click
cms.Items.Add(tsmi2)
cms.Items.Add(tsmi3)
cms.Items(1).Select()
cms.Show(sender, sender.PointToClient(Windows.Forms.Cursor.Position), ToolStripDropDownDirection.BelowLeft)
cms.Items(2).Select()
End Select
cms.Show(sender, sender.PointToClient(Windows.Forms.Cursor.Position), ToolStripDropDownDirection.BelowLeft)
Case "D"
tsmi2.Checked = True
cms.Items(1).Select()
Case "B"
tsmi3.Che34;
Dim tsmi3 As ToolStripMenuItem = New ToolStripMenuItem()
tsmi3.Text = "Bin"
cms.Items.Add(tsmi1)
cms.Items.Add(tsmi2)
cms.Items.Add(tsmi3)
'Dim t4 As ToolStripComboBox = New ToolStripComboBox
'Dim t5 As ToolStripSeparator = New ToolStripSeparator
’显示下拉菜单
Private Sub bTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bTN.Click
Dim cms As ContextMenuStrip = New ContextMenuStrip()
Dim tsmi1 As ToolStripMenuItem = New ToolStripMenuItem()
tsmi1.Text = "Hex"
Dim tsmi2 As ToolStripMenuItem = New ToolStripMenuItem()
'Dim t6 As ToolStripTextBox = New ToolStripTextBox
Select Case btnn.Text
Case "H"
tsmi1.Checked = True
cms.Items(0).Select()
End Sub
''
Public Sub Turn_H_D_B(ByVal sender As System.Object, ByVal btnn As Button)
Dim cms As ContextMenuStrip = New ContextMenuStrip()
Dim tsmi3 As ToolStripMenuItem = New ToolStripMenuItem()
tsmi3.Text = "Bin"
tsmi3.Checked = True
cms.Items.Add(tsmi1)
cms.Items.Add("Hex")
cms.Items.Add("Dec")
cms.Items.Add("Bin")
cms.Show(sender, sender.PointToClient(Windows.Forms.Cursor.Position), ToolStripDropDownDirection.BelowLeft)
tsmi1.Checked = False
Dim tsmi2 As ToolStripMenuItem = New ToolStripMenuItem()
tsmi2.Text = "Dec"
tsmi2.Checked = True
Dim cms As ContextMenuStrip = New ContextMenuStrip()
Dim tsmi1 As ToolStripMenuItem = New ToolStripMenuItem()
tsmi1.Text = "Hex"