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

📄 mainlarge.frm

📁 我刚找到的撞球游戏原代码.rar是一个横好玩的游戏不知道你玩过没有
💻 FRM
📖 第 1 页 / 共 3 页
字号:
      Top             =   0
      Width           =   7590
      Begin QuadBall_Story.ArviScroll Scroll 
         Height          =   330
         Left            =   225
         TabIndex        =   46
         Top             =   8550
         Width           =   11490
         _ExtentX        =   20267
         _ExtentY        =   582
         BackColor       =   16777215
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Terminal"
            Size            =   13.5
            Charset         =   255
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Start 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Start Game"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   27.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00008000&
         Height          =   585
         Left            =   6840
         TabIndex        =   51
         Top             =   5040
         Width           =   3225
      End
      Begin VB.Label Quit 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Quit Game"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   27.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00008000&
         Height          =   585
         Left            =   6885
         TabIndex        =   50
         Top             =   6705
         Width           =   2955
      End
      Begin VB.Label Story 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Show Story"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   27.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00008000&
         Height          =   585
         Left            =   6885
         TabIndex        =   49
         Top             =   5580
         Width           =   3075
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Quad-Ball Story Mode."
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   26.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   555
         Left            =   225
         TabIndex        =   48
         Top             =   7830
         Width           =   11490
      End
      Begin VB.Label TrainingMode 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Play In Training Mode"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   27.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00008000&
         Height          =   630
         Left            =   5940
         TabIndex        =   47
         Top             =   6165
         Width           =   4965
      End
   End
   Begin VB.PictureBox Area 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFFF&
      BorderStyle     =   0  'None
      DrawWidth       =   2
      ForeColor       =   &H000000FF&
      Height          =   9075
      Left            =   0
      MouseIcon       =   "MainLarge.frx":09BA
      MousePointer    =   99  'Custom
      ScaleHeight     =   9075
      ScaleWidth      =   10320
      TabIndex        =   34
      Top             =   0
      Visible         =   0   'False
      Width           =   10320
      Begin VB.PictureBox Ball 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         BackColor       =   &H00000000&
         BorderStyle     =   0  'None
         DrawStyle       =   1  'Dash
         Enabled         =   0   'False
         FillColor       =   &H0000FFFF&
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   5085
         ScaleHeight     =   375
         ScaleWidth      =   375
         TabIndex        =   39
         Top             =   4455
         Width           =   375
      End
      Begin VB.PictureBox TPad 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00000000&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   330
         Left            =   0
         ScaleHeight     =   330
         ScaleWidth      =   2085
         TabIndex        =   38
         Tag             =   "Top"
         Top             =   0
         Width           =   2085
      End
      Begin VB.PictureBox BPad 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00000000&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   330
         Left            =   0
         ScaleHeight     =   330
         ScaleWidth      =   2085
         TabIndex        =   37
         Tag             =   "Top"
         Top             =   8685
         Width           =   2085
      End
      Begin VB.PictureBox LPad 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00000000&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   2085
         Left            =   0
         ScaleHeight     =   2085
         ScaleWidth      =   330
         TabIndex        =   36
         Tag             =   "Side"
         Top             =   0
         Width           =   330
      End
      Begin VB.PictureBox RPad 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00000000&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   2085
         Left            =   9990
         ScaleHeight     =   2085
         ScaleWidth      =   330
         TabIndex        =   35
         Tag             =   "Side"
         Top             =   45
         Width           =   330
      End
      Begin PicClip.PictureClip AniBall 
         Left            =   2160
         Top             =   2205
         _ExtentX        =   2646
         _ExtentY        =   1323
         _Version        =   393216
         Rows            =   2
         Cols            =   4
      End
      Begin PicClip.PictureClip BallBlow 
         Left            =   2025
         Top             =   3375
         _ExtentX        =   5292
         _ExtentY        =   5080
         _Version        =   393216
         Rows            =   4
         Cols            =   4
      End
      Begin VB.Shape Limit 
         BackColor       =   &H00000000&
         BorderColor     =   &H0000FF00&
         Height          =   8370
         Left            =   360
         Top             =   315
         Visible         =   0   'False
         Width           =   9675
      End
      Begin VB.Label GameStory 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   2085
         Left            =   2895
         TabIndex        =   40
         Top             =   3555
         Width           =   5970
         WordWrap        =   -1  'True
      End
   End
   Begin VB.PictureBox Info 
      Align           =   4  'Align Right
      Appearance      =   0  'Flat
      BackColor       =   &H0000C0C0&
      ForeColor       =   &H80000008&
      Height          =   8985
      Left            =   10320
      ScaleHeight     =   8955
      ScaleWidth      =   1650
      TabIndex        =   17
      Top             =   0
      Width           =   1680
      Begin VB.Timer TimeKeeper 
         Enabled         =   0   'False
         Interval        =   900
         Left            =   1260
         Top             =   3690
      End
      Begin VB.Label Reset 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Reset"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   20.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00008000&
         Height          =   435
         Left            =   225
         TabIndex        =   29
         Tag             =   "no"
         Top             =   5895
         Width           =   1185
      End
      Begin VB.Image InfoArea 
         Height          =   9075
         Left            =   -45
         Stretch         =   -1  'True
         Top             =   -45
         Width           =   1770
      End
      Begin VB.Image Life 
         Height          =   375
         Index           =   2
         Left            =   630
         Top             =   2610
         Width           =   375
      End
      Begin VB.Shape Shape2 
         BorderColor     =   &H00FF80FF&
         Height          =   960
         Left            =   90
         Top             =   3240
         Width           =   1410
      End
      Begin VB.Label LYLabel 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "LY"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFF00&
         Height          =   330
         Left            =   1080
         TabIndex        =   33
         Top             =   3870
         Width           =   375
      End
      Begin VB.Label CommetSpeed 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   330
         Left            =   45
         TabIndex        =   32
         Top             =   3870
         Width           =   1005
      End
      Begin VB.Label CometSpeedLab 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "Comet Speed"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   14.25

⌨️ 快捷键说明

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