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

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