ex8_3.frm

来自「本教材为“第2章”、“第4章”、“第7章”、“第8章”、“第10章”和“第12章」· FRM 代码 · 共 68 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu MenuColor 
      Caption         =   "颜色"
      Visible         =   0   'False
      Begin VB.Menu Menu 
         Caption         =   "白色"
         Index           =   1
      End
      Begin VB.Menu Menu 
         Caption         =   "黑色"
         Index           =   2
      End
      Begin VB.Menu Menu 
         Caption         =   "红色"
         Index           =   3
      End
      Begin VB.Menu Menu 
         Caption         =   "绿色"
         Index           =   4
      End
      Begin VB.Menu Menu 
         Caption         =   "蓝色"
         Index           =   5
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
   Form1.PopupMenu MenuColor
End If
End Sub

Private Sub Menu_Click(Index As Integer)
For i = 1 To 5
    Menu(i).Checked = False
Next i
Menu(Index).Checked = True
Select Case Index
       Case 1
       Form1.BackColor = vbWhite
       Case 2
       Form1.BackColor = vbBlack
       Case 3
       Form1.BackColor = vbRed
       Case 4
       Form1.BackColor = vbGreen
       Case 5
       Form1.BackColor = vbBlue
End Select
End Sub