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

📄 form1.frm

📁 VB编的小游戏
💻 FRM
📖 第 1 页 / 共 5 页
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Form1 
   BackColor       =   &H00008000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Memory"
   ClientHeight    =   6180
   ClientLeft      =   2655
   ClientTop       =   1725
   ClientWidth     =   8055
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6180
   ScaleWidth      =   8055
   Begin VB.TextBox chatsend 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   -15
      MaxLength       =   1000
      TabIndex        =   207
      Top             =   5745
      Visible         =   0   'False
      Width           =   8115
   End
   Begin VB.TextBox chat 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   -15
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   206
      Top             =   4785
      Visible         =   0   'False
      Width           =   8100
   End
   Begin VB.Timer MainTimer 
      Interval        =   100
      Left            =   1605
      Top             =   345
   End
   Begin VB.Timer AI 
      Enabled         =   0   'False
      Interval        =   400
      Left            =   7560
      Top             =   2820
   End
   Begin VB.Timer Timer4 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   7620
      Top             =   2880
   End
   Begin VB.TextBox Text5 
      Height          =   375
      Left            =   6240
      MultiLine       =   -1  'True
      TabIndex        =   203
      Text            =   "Form1.frx":0000
      Top             =   1620
      Visible         =   0   'False
      Width           =   1755
   End
   Begin VB.TextBox Text4 
      Height          =   495
      Left            =   6180
      MultiLine       =   -1  'True
      TabIndex        =   202
      Text            =   "Form1.frx":0006
      Top             =   240
      Visible         =   0   'False
      Width           =   1755
   End
   Begin VB.ListBox CardsAvailable 
      Height          =   645
      Left            =   6240
      TabIndex        =   201
      Top             =   4140
      Visible         =   0   'False
      Width           =   1575
   End
   Begin VB.ListBox CardsLeft 
      Height          =   1035
      Left            =   6300
      TabIndex        =   200
      Top             =   840
      Visible         =   0   'False
      Width           =   1575
   End
   Begin VB.ListBox List3 
      Height          =   1230
      Left            =   6180
      TabIndex        =   198
      Top             =   360
      Visible         =   0   'False
      Width           =   1515
   End
   Begin VB.ListBox List2 
      Height          =   1620
      Left            =   6240
      TabIndex        =   197
      Top             =   60
      Visible         =   0   'False
      Width           =   1635
   End
   Begin VB.ListBox List1 
      Height          =   1620
      Left            =   6240
      Sorted          =   -1  'True
      TabIndex        =   196
      Top             =   600
      Visible         =   0   'False
      Width           =   1635
   End
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   7500
      Top             =   2760
   End
   Begin MSComctlLib.ImageList CardPics 
      Left            =   6060
      Top             =   3480
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   35
      ImageHeight     =   47
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   30
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":000C
            Key             =   "a0"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":125C
            Key             =   "a1"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":2485
            Key             =   "a2"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":358E
            Key             =   "a3"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":4625
            Key             =   "a4"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":56E4
            Key             =   "a5"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":682A
            Key             =   "a6"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":7986
            Key             =   "a7"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":8C11
            Key             =   "a8"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":9E24
            Key             =   "a9"
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":AF21
            Key             =   "a10"
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":C0C7
            Key             =   "a11"
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":D17B
            Key             =   "a12"
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":E1B0
            Key             =   "a13"
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":F181
            Key             =   "a14"
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":102D9
            Key             =   "a15"
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":1182B
            Key             =   "a16"
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":12DAE
            Key             =   "a17"
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":140BF
            Key             =   "a18"
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":1531C
            Key             =   "a19"
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":165D6
            Key             =   "a20"
         EndProperty
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":17970
            Key             =   "a21"
         EndProperty
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":18C9B
            Key             =   "a22"
         EndProperty
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":1A24F
            Key             =   "a23"
         EndProperty
         BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":1B712
            Key             =   "a24"
         EndProperty
         BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":1CA63
            Key             =   "a25"
         EndProperty
         BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":1DE4A
            Key             =   "a26"
         EndProperty
         BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":1F0FC
            Key             =   "a27"
         EndProperty
         BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":20303
            Key             =   "a28"
         EndProperty
         BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":21499
            Key             =   "a29"
         EndProperty
      EndProperty
   End
   Begin VB.Timer Timer1 
      Interval        =   10
      Left            =   6060
      Top             =   120
   End
   Begin VB.TextBox Text3 
      Height          =   285
      Left            =   6780
      TabIndex        =   184
      Text            =   "0"
      Top             =   3960
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   6780
      TabIndex        =   183
      Text            =   "0"
      Top             =   3600
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.TextBox CardsDown 
      Height          =   285
      Left            =   6780
      TabIndex        =   182
      Text            =   "0"
      Top             =   3240
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.TextBox Va 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   59
      Left            =   5580
      TabIndex        =   181
      Text            =   "0"
      Top             =   4200
      Width           =   375
   End
   Begin VB.TextBox Va 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   58
      Left            =   4980
      TabIndex        =   180
      Text            =   "0"
      Top             =   4200
      Width           =   375
   End
   Begin VB.TextBox Va 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   57
      Left            =   4380
      TabIndex        =   179
      Text            =   "0"
      Top             =   4200
      Width           =   375
   End
   Begin VB.TextBox Va 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   56
      Left            =   3780
      TabIndex        =   178
      Text            =   "0"
      Top             =   4200
      Width           =   375
   End
   Begin VB.TextBox Va 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   55
      Left            =   3180
      TabIndex        =   177
      Text            =   "0"
      Top             =   4200
      Width           =   375
   End
   Begin VB.TextBox Va 
      Appearance      =   0  'Flat
      BeginProperty Font 

⌨️ 快捷键说明

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