展开全部
先编辑一个菜单栏 例如编辑一个菜单栏“ 设置”
Private Sub Form_Load()
设置.Visible = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu 设置
End If
End Sub
主要写这几句代码就可以实现右键弹出了、、、如有什么疑问可以追问
Private Sub Form_Load()
设置.Visible = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu 设置
End If
End Sub
主要写这几句代码就可以实现右键弹出了、、、如有什么疑问可以追问
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询