在按钮的鼠标事件中输入代码:Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 2 Then Exit Sub '如果是右键,则退出End Sub
如果这个按钮,是指定的模块代码,怎么做到不能对按钮鼠标右键呢