VB工程--百例74--窗体变色

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!