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

来源：互联网发布：php 虚拟主机ip配置编辑：程序博客网时间：2024/06/06 09:37

菜单改变背景色

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)    If Button = 2 Then        PopupMenu MyMenu    End IfEnd SubPrivate Sub red_click()    Form1.BackColor = vbRedEnd SubPrivate Sub black_click()    Form1.BackColor = vbBlackEnd SubPrivate Sub green_click()    Form1.BackColor = vbGreenEnd SubPrivate Sub white_click()    Form1.BackColor = vbWhiteEnd SubPrivate Sub blue_click()    Form1.BackColor = vbBlueEnd 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 SelectMyErr:    MsgBox "该程序为演示程序，不能调用对应窗体！", vbInformation, "信息提示"End Sub

0 0