⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 wallball.frm

📁 利用Visual Basic编写敲冰块游戏源代码
💻 FRM
📖 第 1 页 / 共 3 页
字号:
VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00000000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Brix 2000 v2.0"
   ClientHeight    =   5775
   ClientLeft      =   2235
   ClientTop       =   495
   ClientWidth     =   8760
   ForeColor       =   &H8000000E&
   Icon            =   "WallBall.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "WallBall.frx":030A
   ScaleHeight     =   5775
   ScaleWidth      =   8760
   StartUpPosition =   2  'CenterScreen
   Visible         =   0   'False
   Begin VB.Timer Timer2 
      Interval        =   1
      Left            =   720
      Top             =   3960
   End
   Begin VB.PictureBox bouncer 
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   300
      Left            =   3840
      MouseIcon       =   "WallBall.frx":035C
      MousePointer    =   99  'Custom
      Picture         =   "WallBall.frx":04AE
      ScaleHeight     =   300
      ScaleMode       =   0  'User
      ScaleWidth      =   1000
      TabIndex        =   5
      Top             =   5450
      Width           =   1545
   End
   Begin VB.PictureBox ball 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   240
      Left            =   4560
      MouseIcon       =   "WallBall.frx":1D50
      MousePointer    =   99  'Custom
      Picture         =   "WallBall.frx":1EA2
      ScaleHeight     =   240
      ScaleMode       =   0  'User
      ScaleWidth      =   9440
      TabIndex        =   4
      Top             =   5160
      Width           =   240
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   240
      Top             =   3960
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   5775
      Left            =   -8520
      TabIndex        =   9
      Top             =   5760
      Width           =   8775
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         BackStyle       =   0  'Transparent
         Caption         =   "Loading Next Level..."
         BeginProperty Font 
            Name            =   "Comic Sans MS"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   495
         Left            =   2160
         TabIndex        =   10
         Top             =   2400
         Width           =   4335
      End
   End
   Begin VB.Image Image1 
      Height          =   5775
      Left            =   0
      MouseIcon       =   "WallBall.frx":22D3
      MousePointer    =   99  'Custom
      Top             =   0
      Width           =   8850
   End
   Begin VB.Label tempscores 
      BackColor       =   &H00000000&
      Caption         =   "Label6"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   7680
      TabIndex        =   21
      Top             =   5880
      Width           =   495
   End
   Begin VB.Label scores2 
      BackColor       =   &H00000000&
      Caption         =   "Label6"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   1080
      TabIndex        =   20
      Top             =   5880
      Width           =   495
   End
   Begin VB.Label scores3 
      BackColor       =   &H00000000&
      Caption         =   "Label6"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   1680
      TabIndex        =   19
      Top             =   5880
      Width           =   495
   End
   Begin VB.Label scores4 
      BackColor       =   &H00000000&
      Caption         =   "Label6"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   2280
      TabIndex        =   18
      Top             =   5880
      Width           =   495
   End
   Begin VB.Label scores5 
      BackColor       =   &H00000000&
      Caption         =   "Label6"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   2880
      TabIndex        =   17
      Top             =   5880
      Width           =   495
   End
   Begin VB.Label scores6 
      BackColor       =   &H00000000&
      Caption         =   "Label6"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   3480
      TabIndex        =   16
      Top             =   5880
      Width           =   495
   End
   Begin VB.Label scores7 
      BackColor       =   &H00000000&
      Caption         =   "Label6"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   4080
      TabIndex        =   15
      Top             =   5880
      Width           =   495
   End
   Begin VB.Label scores8 
      BackColor       =   &H00000000&
      Caption         =   "Label6"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   4680
      TabIndex        =   14
      Top             =   5880
      Width           =   495
   End
   Begin VB.Label scores9 
      BackColor       =   &H00000000&
      Caption         =   "Label6"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   5280
      TabIndex        =   13
      Top             =   5880
      Width           =   495
   End
   Begin VB.Label scores10 
      BackColor       =   &H00000000&
      Caption         =   "Label6"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   5880
      TabIndex        =   12
      Top             =   5880
      Width           =   495
   End
   Begin VB.Label scores1 
      BackColor       =   &H00000000&
      Caption         =   "Label6"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   480
      TabIndex        =   11
      Top             =   5880
      Width           =   495
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   62
      Left            =   480
      Picture         =   "WallBall.frx":2425
      Top             =   6960
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   61
      Left            =   7320
      Picture         =   "WallBall.frx":2BFE
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   60
      Left            =   8040
      Picture         =   "WallBall.frx":3337
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   59
      Left            =   5880
      Picture         =   "WallBall.frx":3A7D
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   58
      Left            =   6600
      Picture         =   "WallBall.frx":3FA5
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   57
      Left            =   4440
      Picture         =   "WallBall.frx":4706
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   56
      Left            =   5160
      Picture         =   "WallBall.frx":4F18
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   55
      Left            =   3000
      Picture         =   "WallBall.frx":56AF
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   54
      Left            =   3720
      Picture         =   "WallBall.frx":5D7A
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   53
      Left            =   1560
      Picture         =   "WallBall.frx":654C
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   52
      Left            =   2280
      Picture         =   "WallBall.frx":6D90
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   51
      Left            =   120
      Picture         =   "WallBall.frx":75D6
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   50
      Left            =   840
      Picture         =   "WallBall.frx":7DCE
      Top             =   6480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   49
      Left            =   8040
      Picture         =   "WallBall.frx":8582
      Top             =   1080
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   48
      Left            =   8040
      Picture         =   "WallBall.frx":8DC6
      Top             =   1800
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   47
      Left            =   8040
      Picture         =   "WallBall.frx":960A
      Top             =   2520
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   46
      Left            =   2400
      Picture         =   "WallBall.frx":9E4E
      Top             =   3120
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   45
      Left            =   4080
      Picture         =   "WallBall.frx":A692
      Top             =   3120
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   44
      Left            =   5640
      Picture         =   "WallBall.frx":AED6
      Top             =   3120
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   43
      Left            =   7200
      Picture         =   "WallBall.frx":B71A
      Top             =   3120
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   42
      Left            =   1080
      Picture         =   "WallBall.frx":BF5E
      Top             =   480
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   41
      Left            =   2400
      Picture         =   "WallBall.frx":C7A2
      Top             =   480
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   40
      Left            =   4080
      Picture         =   "WallBall.frx":CFE6
      Top             =   480
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   39
      Left            =   5640
      Picture         =   "WallBall.frx":D82A
      Top             =   480
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   38
      Left            =   7080
      Picture         =   "WallBall.frx":E06E
      Top             =   480
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   37
      Left            =   0
      Picture         =   "WallBall.frx":E8B2
      Top             =   1080
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   35
      Left            =   0
      Picture         =   "WallBall.frx":F0F6
      Top             =   1800
      Width           =   735
   End
   Begin VB.Image block 
      Height          =   360
      Index           =   34
      Left            =   0
      Picture         =   "WallBall.frx":F93A
      Top             =   2520
      Width           =   735
   End

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -