f1.frm

这是一个VB 俄罗斯方块 1.0.0 一个好玩的游戏

VERSION 5.00
Begin VB.Form f1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "俄罗斯方块"
   ClientHeight    =   5040
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7440
   Icon            =   "f1.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MousePointer    =   99  'Custom
   Picture         =   "f1.frx":08CA
   ScaleHeight     =   5040
   ScaleWidth      =   7440
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   5640
      Top             =   3600
   End
   Begin VB.CommandButton Command2 
      Height          =   855
      Left            =   1920
      MouseIcon       =   "f1.frx":9215
      MousePointer    =   99  'Custom
      Picture         =   "f1.frx":951F
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   2040
      Width           =   855
   End
   Begin VB.CommandButton Command3 
      Height          =   855
      Left            =   1920
      MouseIcon       =   "f1.frx":A2AC
      MousePointer    =   99  'Custom
      Picture         =   "f1.frx":A5B6
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   3240
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Height          =   855
      Left            =   1920
      MouseIcon       =   "f1.frx":B343
      MousePointer    =   99  'Custom
      Picture         =   "f1.frx":B64D
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   960
      Width           =   855
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "开始游戏  START GAME"
      BeginProperty Font 
         Name            =   "方正舒体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   735
      Left            =   3240
      TabIndex        =   5
      Top             =   1080
      Width           =   2535
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "游戏帮助        HOW TO PLAY"
      BeginProperty Font 
         Name            =   "方正舒体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   735
      Left            =   3240
      TabIndex        =   4
      Top             =   2160
      Width           =   2415
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "退出游戏  EXIT GAME"
      BeginProperty Font 
         Name            =   "方正舒体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   735
      Left            =   3240
      TabIndex        =   3
      Top             =   3360
      Width           =   2055
   End
   Begin VB.Image Image8 
      Height          =   465
      Left            =   2880
      Picture         =   "f1.frx":C3DA
      Top             =   0
      Width           =   1815
   End
   Begin VB.Image Image7 
      Height          =   465
      Left            =   2880
      Picture         =   "f1.frx":D143
      Top             =   4560
      Width           =   1815
   End
   Begin VB.Image Image6 
      Height          =   1365
      Left            =   6480
      Picture         =   "f1.frx":DEC1
      Top             =   1560
      Width           =   930
   End
   Begin VB.Image Image5 
      Height          =   1365
      Left            =   0
      Picture         =   "f1.frx":ECB1
      Top             =   1560
      Width           =   930
   End
   Begin VB.Image Image4 
      Height          =   930
      Left            =   6000
      Picture         =   "f1.frx":FA8C
      Top             =   0
      Width           =   1410
   End
   Begin VB.Image Image3 
      Height          =   930
      Left            =   0
      Picture         =   "f1.frx":1090E
      Top             =   0
      Width           =   1410
   End
   Begin VB.Image Image2 
      Height          =   1410
      Left            =   6480
      Picture         =   "f1.frx":11783
      Top             =   3600
      Width           =   945
   End
   Begin VB.Image Image1 
      Height          =   1410
      Left            =   0
      Picture         =   "f1.frx":12613
      Top             =   3600
      Width           =   945
   End
End
Attribute VB_Name = "f1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
f1.Hide
Form1.Show
'Unload f1
End Sub

Private Sub Command2_Click()
f1.Hide
f2.Show
'Unload f1
End Sub

Private Sub Command3_Click()
Unload f1
Unload f2
Unload Form1
    IsMusicOn = False
    RetValue = mciSendString("CLOSE BackgroundMusic", "", 0, 0)


End
End Sub

Private Sub Form_Unload(Cancel As Integer)
    IsMusicOn = False
    RetValue = mciSendString("CLOSE BackgroundMusic", "", 0, 0)

End Sub

Private Sub Timer1_Timer()
    Dim MCIStatusLen As Integer
    Dim MCIStatus As String
    If IsMusicOn = True Then
        MCIStatusLen = 15
        MCIStatus = String(MCIStatusLen + 1, " ")
        RetValue = mciSendString("STATUS BackgroundMusic MODE", MCIStatus, MCIStatusLen, 0)
        If UCase(Left$(MCIStatus, 7)) = "STOPPED" Then
            RetValue = mciSendString("PLAY BackgroundMusic FROM 0", "", 0, 0)
        End If
    End If

End Sub