frmmenu.frm

Animation菜单声称程序

VERSION 5.00
Begin VB.Form frmGame 
   BackColor       =   &H80000007&
   BorderStyle     =   0  'None
   ClientHeight    =   3675
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8745
   LinkTopic       =   "Form1"
   ScaleHeight     =   3675
   ScaleWidth      =   8745
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer3 
      Interval        =   200
      Left            =   720
      Top             =   2880
   End
   Begin VB.Timer Timer2 
      Interval        =   200
      Left            =   240
      Top             =   2880
   End
   Begin VB.Timer Timer1 
      Interval        =   400
      Left            =   120
      Top             =   2280
   End
   Begin VB.Image imgSmile 
      Height          =   480
      Index           =   0
      Left            =   120
      Picture         =   "frmMenu.frx":0000
      Top             =   1080
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgSmile 
      Height          =   480
      Index           =   1
      Left            =   720
      Picture         =   "frmMenu.frx":0442
      Top             =   1080
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image imgSmile 
      Height          =   480
      Index           =   2
      Left            =   1320
      Picture         =   "frmMenu.frx":0884
      Top             =   1080
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image Image2 
      Height          =   615
      Left            =   7440
      Top             =   120
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Left            =   720
      Top             =   120
      Width           =   615
   End
   Begin VB.Image imgPic 
      Height          =   615
      Left            =   2400
      Top             =   1680
      Width           =   615
   End
   Begin VB.Label lblOpt1 
      BackStyle       =   0  'Transparent
      Caption         =   "Option 1"
      BeginProperty Font 
         Name            =   "MS Serif"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   3097
      TabIndex        =   3
      Top             =   1680
      Width           =   2535
   End
   Begin VB.Label lblOpt2 
      BackStyle       =   0  'Transparent
      Caption         =   "Option 2"
      BeginProperty Font 
         Name            =   "MS Serif"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   3112
      TabIndex        =   2
      Top             =   2280
      Width           =   2535
   End
   Begin VB.Label lblQuit 
      BackStyle       =   0  'Transparent
      Caption         =   "Quit"
      BeginProperty Font 
         Name            =   "MS Serif"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   3112
      TabIndex        =   1
      Top             =   2880
      Width           =   2535
   End
   Begin VB.Label lblTitle 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Animation Menu"
      BeginProperty Font 
         Name            =   "Americana BT"
         Size            =   36
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000040C0&
      Height          =   855
      Left            =   1305
      TabIndex        =   0
      Top             =   0
      Width           =   6135
   End
End
Attribute VB_Name = "frmGame"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDown Then
        If imgPic.Top = lblOpt1.Top Then
            imgPic.Top = lblOpt2.Top
            lblOpt2.ForeColor = vbGreen
            lblOpt1.ForeColor = vbWhite
            lblQuit.ForeColor = vbWhite
        ElseIf imgPic.Top = lblOpt2.Top Then
            imgPic.Top = lblQuit.Top
            lblQuit.ForeColor = vbGreen
            lblOpt1.ForeColor = vbWhite
            lblOpt2.ForeColor = vbWhite
        ElseIf imgPic.Top = lblQuit.Top Then
            imgPic.Top = lblOpt1.Top
            lblOpt1.ForeColor = vbGreen
            lblOpt2.ForeColor = vbWhite
            lblQuit.ForeColor = vbWhite
        End If
    End If
    If KeyCode = vbKeyUp Then
        If imgPic.Top = lblOpt1.Top Then
            imgPic.Top = lblQuit.Top
            lblQuit.ForeColor = vbGreen
            lblOpt1.ForeColor = vbWhite
            lblOpt2.ForeColor = vbWhite
        ElseIf imgPic.Top = lblOpt2.Top Then
            imgPic.Top = lblOpt1.Top
            lblOpt1.ForeColor = vbGreen
            lblOpt2.ForeColor = vbWhite
            lblQuit.ForeColor = vbWhite
        ElseIf imgPic.Top = lblQuit.Top Then
            imgPic.Top = lblOpt2.Top
            lblOpt2.ForeColor = vbGreen
            lblOpt1.ForeColor = vbWhite
            lblQuit.ForeColor = vbWhite
        End If
    End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If imgPic.Top = lblOpt1.Top Then
            Call lblopt1_Click
        ElseIf imgPic.Top = lblQuit.Top Then
            Call lblQuit_Click
        ElseIf imgPic.Top = lblOpt2.Top Then
            Call lblOpt2_Click
        End If
    End If
End Sub

Private Sub Form_Load()
    lblOpt1.ForeColor = vbGreen
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    If imgPic.Top = lblOpt1.Top Then
        lblOpt1.ForeColor = vbGreen
        lblOpt2.ForeColor = vbWhite
        lblQuit.ForeColor = vbWhite
    ElseIf imgPic.Top = lblOpt2.Top Then
        lblOpt1.ForeColor = vbWhite
        lblOpt2.ForeColor = vbGreen
        lblQuit.ForeColor = vbWhite
    ElseIf imgPic.Top = lblQuit.Top Then
        lblOpt1.ForeColor = vbWhite
        lblOpt2.ForeColor = vbWhite
        lblQuit.ForeColor = vbGreen
    End If
End Sub

Private Sub lblopt1_Click()
    MsgBox "Option1 was clicked", vbOKOnly, "OPTION1"
End Sub

Private Sub lblopt1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    lblOpt1.ForeColor = vbRed
End Sub

Private Sub lblopt1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    lblOpt1.ForeColor = vbGreen
    imgPic.Top = lblOpt1.Top
    lblOpt2.ForeColor = vbWhite
    lblQuit.ForeColor = vbWhite
End Sub

Private Sub lblopt1_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
    lblOpt1.ForeColor = vbGreen
End Sub

Private Sub lblOpt2_Click()
    MsgBox "Option2 was clicked", vbOKOnly, "OPTION2"
End Sub

Private Sub lblOpt2_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    lblOpt2.ForeColor = vbRed
End Sub

Private Sub lblOpt2_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    lblOpt2.ForeColor = vbGreen
    imgPic.Top = lblOpt2.Top
    lblOpt1.ForeColor = vbWhite
    lblQuit.ForeColor = vbWhite
End Sub

Private Sub lblOpt2_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
    lblOpt2.ForeColor = vbGreen
End Sub

Private Sub lblQuit_Click()
    End
End Sub

Private Sub lblQuit_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    lblQuit.ForeColor = vbRed
End Sub

Private Sub lblQuit_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    lblQuit.ForeColor = vbGreen
    imgPic.Top = lblQuit.Top
    lblOpt1.ForeColor = vbWhite
    lblOpt2.ForeColor = vbWhite
End Sub

Private Sub lblQuit_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
    lblQuit.ForeColor = vbGreen
End Sub

Private Sub Timer1_Timer()
    Static x As Integer
    If x = 2 Then x = -1
    x = x + 1
    imgPic.Picture = imgSmile(x).Picture
End Sub

Private Sub Timer2_Timer()
    Static x As Integer
    If x = 2 Then x = -1
    x = x + 1
    Image1.Picture = imgSmile(x).Picture
End Sub

Private Sub Timer3_Timer()
    Static x As Integer
    If x = 2 Then x = -1
    x = x + 1
    Image2.Picture = imgSmile(x).Picture
End Sub