Private Sub Form _ Mouse Up(Button As Integer，Shift AS Integer，_
X As Single，Y As Single)
If Button=2 Then
PopupMenu mnuEdit，vbPopupMenuCenterAlign Or_
vbPopupMenuRightButton，X，Y，mnuEditOpen
End If
End Sub Private Sub Form _ MouseUp(Button AS Integer，Shift AS Integer，_
X As Single，Y As Single)
If Button=2 Then
PopupMenu mnuEdit，
End If
End Sub Private Sub Form _ MouseUp(Button AS Integer，Shift AS Integer，_
X As Single，Y As Single)
PopupMenu mnuEdit，vbPopupMenuCenterAlign Or_
vbPopupMenuRightButton
End Sub Private SUb Form _ MouseUp(Button AS Integer，_
Shift As Integer，X As Single，Y As Single)
If Button=2 Then
PopupMenu mnuEdit，2
End If
End Sub
湘公网安备 43130202000226号