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

📄 batnball.frm

📁 用VB写编的游戏: 打砖块 在此程序中包含了音乐和一些常用的控件
💻 FRM
📖 第 1 页 / 共 4 页
字号:
      Width           =   7815
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   52
      Left            =   8160
      Top             =   2040
      Width           =   855
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   53
      Left            =   7320
      Top             =   2040
      Width           =   855
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   54
      Left            =   6360
      Top             =   2040
      Width           =   975
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   55
      Left            =   5400
      Top             =   2040
      Width           =   975
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   56
      Left            =   4440
      Top             =   2040
      Width           =   975
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   57
      Left            =   3480
      Top             =   2040
      Width           =   975
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   58
      Left            =   2520
      Top             =   2040
      Width           =   975
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   59
      Left            =   1560
      Top             =   2040
      Width           =   975
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   60
      Left            =   600
      Top             =   2040
      Width           =   975
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   51
      Left            =   6600
      Top             =   960
      Width           =   615
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   50
      Left            =   6000
      Top             =   960
      Width           =   615
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   49
      Left            =   5400
      Top             =   960
      Width           =   615
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   48
      Left            =   4800
      Top             =   960
      Width           =   615
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   47
      Left            =   4200
      Top             =   960
      Width           =   615
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   46
      Left            =   3600
      Top             =   960
      Width           =   615
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   45
      Left            =   3000
      Top             =   960
      Width           =   615
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   44
      Left            =   2400
      Top             =   960
      Width           =   615
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   43
      Left            =   1800
      Top             =   960
      Width           =   615
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   42
      Left            =   1200
      Top             =   960
      Width           =   615
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   41
      Left            =   600
      Top             =   960
      Width           =   615
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   40
      Left            =   8160
      Top             =   1680
      Width           =   855
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   37
      Left            =   7320
      Top             =   1680
      Width           =   855
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   39
      Left            =   8280
      Top             =   1320
      Width           =   735
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   38
      Left            =   7560
      Top             =   1320
      Width           =   735
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   36
      Left            =   6840
      Top             =   1320
      Width           =   735
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   35
      Left            =   6120
      Top             =   1320
      Width           =   735
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   34
      Left            =   7800
      Top             =   3120
      Width           =   1215
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   33
      Left            =   6600
      Top             =   3120
      Width           =   1215
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   24
      Left            =   5400
      Top             =   3120
      Width           =   1215
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   23
      Left            =   4200
      Top             =   3120
      Width           =   1215
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   22
      Left            =   3000
      Top             =   3120
      Width           =   1215
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   21
      Left            =   1800
      Top             =   3120
      Width           =   1215
   End
   Begin VB.Shape shpBlock 
      BackColor       =   &H00000000&
      BorderColor     =   &H00000000&
      BorderWidth     =   3
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   20

⌨️ 快捷键说明

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