VB程序学习代码记录20160723（2）

VB程序菜单背景色设置

原创于 2016-07-23 23:30:53 发布 · 498 阅读

0 ·

CC 4.0 BY-SA版权

学习专栏收录该内容

31 篇文章

订阅专栏

这篇博客记录了VB程序中如何实现菜单项背景颜色的改变，详细探讨了相关代码实现过程。

菜单改变背景色

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        PopupMenu MyMenu
    End If
End Sub
Private Sub red_click()
    Form1.BackColor = vbRed
End Sub
Private Sub black_click()
    Form1.BackColor = vbBlack
End Sub
Private Sub green_click()
    Form1.BackColor = vbGreen
End Sub
Private Sub white_click()
    Form1.BackColor = vbWhite
End Sub
Private Sub blue_click()
    Form1.BackColor = vbBlue
End Sub

菜单数组

Private Sub menu1_Click(Index As Integer)
    On Error GoTo MyErr
    Select Case Index
    Case 0
        Load frm_jcxxwh_qysz
        frm_jcxxwh_qysz.Show 1
    Case 2
        Load frm_jcxxwh_qyxz
        frm_jcxxwh_qyxz.Show 1
    Case 3
        Load frm_jcxxwh_qylx
        frm_jcxxwh_qylx.Show 1
    Case 4
        Load frm_jcxxwh_qyzx
        frm_jcxxwh_qyzx.Show 1
    End Select
MyErr:
    MsgBox "该程序为演示程序，不能调用对应窗体！", vbInformation, "信息提示"
End Sub