先利用菜单编辑器编写弹出式菜单popup1 再利用mousedown事件 Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu popup1 End Sub
先利用菜单编辑器编写弹出式菜单popup1包括添加\删除 再利用mousedown事件 设置datagrid1属性allowupdate=true Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu popup1 If Button = 1 Then PopupMenu popup2 End Sub
再利用mousedown事件
Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu popup1
End Sub
再利用mousedown事件
设置datagrid1属性allowupdate=true
Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu popup1
If Button = 1 Then PopupMenu popup2
End Sub