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

📄 skymain.frm

📁 一款飞机射击游戏的源代码
💻 FRM
📖 第 1 页 / 共 4 页
字号:
VERSION 5.00
Begin VB.Form FrmMain 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   ClientHeight    =   5730
   ClientLeft      =   180
   ClientTop       =   900
   ClientWidth     =   8460
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "SkyMain.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   382
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   564
   WindowState     =   2  'Maximized
   Begin VB.PictureBox PicCover 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      HasDC           =   0   'False
      Height          =   375
      Left            =   0
      ScaleHeight     =   25
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   113
      TabIndex        =   34
      TabStop         =   0   'False
      Top             =   4680
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.TextBox ZTxt 
      Height          =   270
      Left            =   -1740
      Locked          =   -1  'True
      MaxLength       =   1
      TabIndex        =   0
      Top             =   4920
      Width           =   735
   End
   Begin VB.PictureBox Picture4 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      CausesValidation=   0   'False
      Height          =   495
      Left            =   0
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   124
      TabIndex        =   32
      TabStop         =   0   'False
      Top             =   0
      Visible         =   0   'False
      Width           =   1860
   End
   Begin VB.PictureBox Picture3 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      CausesValidation=   0   'False
      Enabled         =   0   'False
      Height          =   495
      Left            =   2640
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   124
      TabIndex        =   31
      TabStop         =   0   'False
      Top             =   600
      Visible         =   0   'False
      Width           =   1860
   End
   Begin VB.PictureBox Picture2 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      CausesValidation=   0   'False
      Height          =   255
      Left            =   0
      ScaleHeight     =   17
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   100
      TabIndex        =   30
      TabStop         =   0   'False
      Top             =   0
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      CausesValidation=   0   'False
      Enabled         =   0   'False
      Height          =   585
      Left            =   0
      ScaleHeight     =   39
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   176
      TabIndex        =   29
      TabStop         =   0   'False
      Top             =   0
      Visible         =   0   'False
      Width           =   2640
   End
   Begin VB.Timer TimerMain 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   3960
      Top             =   2640
   End
   Begin VB.PictureBox PicShowScoreBuf 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00008000&
      BorderStyle     =   0  'None
      CausesValidation=   0   'False
      Enabled         =   0   'False
      Height          =   1695
      Left            =   0
      ScaleHeight     =   113
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   124
      TabIndex        =   28
      TabStop         =   0   'False
      Top             =   2760
      Visible         =   0   'False
      Width           =   1860
   End
   Begin VB.PictureBox PicShowScore 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00008000&
      BorderStyle     =   0  'None
      CausesValidation=   0   'False
      Enabled         =   0   'False
      Height          =   1695
      Left            =   0
      ScaleHeight     =   113
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   124
      TabIndex        =   26
      TabStop         =   0   'False
      Top             =   960
      Visible         =   0   'False
      Width           =   1860
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "玩家排行榜"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   21.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H008080FF&
         Height          =   435
         Left            =   1095
         TabIndex        =   27
         Top             =   240
         Width           =   2355
      End
   End
   Begin VB.PictureBox BackObjBac 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      Height          =   495
      Index           =   0
      Left            =   6360
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   81
      TabIndex        =   25
      TabStop         =   0   'False
      Top             =   5040
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.PictureBox BackObjBuf 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      Height          =   495
      Index           =   0
      Left            =   3600
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   81
      TabIndex        =   24
      TabStop         =   0   'False
      Top             =   5040
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.PictureBox PicLoadRnd 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H00C00000&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      Height          =   615
      Index           =   0
      Left            =   4920
      ScaleHeight     =   41
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   81
      TabIndex        =   23
      TabStop         =   0   'False
      Top             =   5040
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.PictureBox MapObj 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      Height          =   5295
      Left            =   7680
      ScaleHeight     =   353
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   81
      TabIndex        =   21
      TabStop         =   0   'False
      Top             =   240
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.PictureBox PacBac 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      Height          =   495
      Index           =   0
      Left            =   6360
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   81
      TabIndex        =   20
      TabStop         =   0   'False
      Top             =   4440
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.PictureBox CraBac 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      Height          =   495
      Index           =   0
      Left            =   6360
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   81
      TabIndex        =   19
      TabStop         =   0   'False
      Top             =   3840
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.PictureBox PlaBac 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      Height          =   495
      Index           =   0
      Left            =   6360
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   81
      TabIndex        =   18
      TabStop         =   0   'False
      Top             =   3240
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.PictureBox ExpBac 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      Height          =   495
      Index           =   0
      Left            =   6360
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   81
      TabIndex        =   17
      TabStop         =   0   'False
      Top             =   2640
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.PictureBox MyBulBac 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      Height          =   495
      Index           =   0
      Left            =   6360
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   81
      TabIndex        =   16
      TabStop         =   0   'False
      Top             =   2040
      Visible         =   0   'False
      Width           =   1215

⌨️ 快捷键说明

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