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