第9章菜单、工具栏和状态栏 弹出式菜单 Private Sub Form MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) 工 f Button=2Then 检查是否单击了鼠标右键 PopupMenu mnuFile 把文件菜单显示为一个弹出式菜单 End工f End Sub 2021/223第9章 菜单、工具栏和状态栏 2021/2/23 弹出式菜单 Private Sub Form_MouseUp (Button As Integer, Shift As _Integer, X As Single, Y As Single) If Button = 2 Then '检查是否单击了鼠标右键 PopupMenu mnuFile '把文件菜单显示为一个弹出式菜单 End If End Sub