main_f.frm

自己做的俄罗斯方块游戏,vb开发

VERSION 5.00
Begin VB.Form Main_F 
   BackColor       =   &H00C0C000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "俄罗斯方块"
   ClientHeight    =   7125
   ClientLeft      =   45
   ClientTop       =   615
   ClientWidth     =   6435
   KeyPreview      =   -1  'True
   LinkTopic       =   "Main_F"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   475
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   429
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   4560
      Top             =   6480
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00C0C000&
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Height          =   6615
      Left            =   4560
      TabIndex        =   1
      Top             =   360
      Width           =   1695
      Begin VB.PictureBox Next_P 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         BackColor       =   &H0000FFFF&
         ForeColor       =   &H80000008&
         Height          =   1200
         Left            =   240
         ScaleHeight     =   1170
         ScaleWidth      =   1170
         TabIndex        =   3
         TabStop         =   0   'False
         Top             =   480
         Width           =   1200
      End
      Begin VB.Label Level_L 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H00000000&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   255
         Left            =   240
         TabIndex        =   7
         Top             =   2640
         Width           =   1215
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C000&
         Caption         =   "游戏等级"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   480
         TabIndex        =   6
         Top             =   2400
         Width           =   720
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C000&
         Caption         =   "下一个方块"
         BeginProperty Font 
            Name            =   "新宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   240
         TabIndex        =   5
         Top             =   240
         Width           =   1215
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C000&
         Caption         =   "游戏分数"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   480
         TabIndex        =   4
         Top             =   1800
         Width           =   720
      End
      Begin VB.Label Point_L 
         Alignment       =   1  'Right Justify
         Appearance      =   0  'Flat
         BackColor       =   &H80000006&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   255
         Left            =   240
         TabIndex        =   2
         Top             =   2040
         Width           =   1215
      End
   End
   Begin VB.Timer Timer 
      Enabled         =   0   'False
      Interval        =   300
      Left            =   3960
      Top             =   6480
   End
   Begin VB.PictureBox Main_P 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   6630
      Left            =   150
      ScaleHeight     =   442.493
      ScaleMode       =   0  'User
      ScaleWidth      =   282.213
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   300
      Width           =   4230
      Begin VB.Image Are 
         Appearance      =   0  'Flat
         Height          =   375
         Index           =   2
         Left            =   0
         Stretch         =   -1  'True
         Top             =   480
         Visible         =   0   'False
         Width           =   375
      End
      Begin VB.Image Are 
         Appearance      =   0  'Flat
         Height          =   375
         Index           =   1
         Left            =   0
         Stretch         =   -1  'True
         Top             =   0
         Visible         =   0   'False
         Width           =   375
      End
      Begin VB.Image Are 
         Appearance      =   0  'Flat
         Height          =   375
         Index           =   0
         Left            =   0
         Stretch         =   -1  'True
         Top             =   960
         Visible         =   0   'False
         Width           =   375
      End
   End
   Begin VB.Menu Game 
      Caption         =   "游戏(&G)"
      Begin VB.Menu Game_New 
         Caption         =   "新游戏"
         Shortcut        =   ^N
      End
      Begin VB.Menu Game_Stop 
         Caption         =   "暂停"
         Enabled         =   0   'False
         Shortcut        =   ^S
      End
      Begin VB.Menu null 
         Caption         =   "-"
         Index           =   0
      End
      Begin VB.Menu Game_Quit 
         Caption         =   "退出"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu GameConfig 
      Caption         =   "设置(&S)"
      Begin VB.Menu Game_level 
         Caption         =   "等级      "
         Begin VB.Menu Game_level_Num 
            Caption         =   "  菜鸟级  "
            Checked         =   -1  'True
            Index           =   1
         End
         Begin VB.Menu Game_level_Num 
            Caption         =   "  普通级  "
            Index           =   2
         End
         Begin VB.Menu Game_level_Num 
            Caption         =   "  高手级  "
            Index           =   3
         End
         Begin VB.Menu Game_level_Num 
            Caption         =   "  骨灰级  "
            Index           =   4
         End
         Begin VB.Menu Game_level_Num 
            Caption         =   "  变态级   "
            Index           =   5
         End
      End
      Begin VB.Menu null1 
         Caption         =   "-"
      End
      Begin VB.Menu MusicM 
         Caption         =   "音乐"
         Begin VB.Menu Game_Music 
            Caption         =   "  01  "
            Checked         =   -1  'True
            Index           =   1
         End
         Begin VB.Menu Game_Music 
            Caption         =   "  02  "
            Index           =   2
         End
         Begin VB.Menu Game_Music 
            Caption         =   "  03  "
            Index           =   3
         End
         Begin VB.Menu Game_Music 
            Caption         =   "  04  "
            Index           =   4
         End
         Begin VB.Menu Game_Music 
            Caption         =   "  05  "
            Index           =   5