Option Explicit
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = 2 Then '若单击鼠标右键
PopupMenu mnuformcolor '在窗体上创建弹出式菜单
End If
End Sub
Private Sub mnucolor_Click(index As Integer) '出错点错把mnucolor打成mnuformcolor 运行不了
Select Case index '以子菜单的索引作为变量
Case 0 '若索引为0
Me.BackColor = vbRed '窗体的背景色为红色
Case 1
Me.BackColor = vbGreen
Case 2
Me.BackColor = vbBlue
End Select
End Sub
原文地址：https://www.jb51.cc/vb/260368.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
