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

📄 rjsoftchess.frm

📁 关于国际象棋的VB示例
💻 FRM
📖 第 1 页 / 共 5 页
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form RJSoftChess 
   BackColor       =   &H00000000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "RJ SOFT CHESS"
   ClientHeight    =   7755
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9900
   Icon            =   "RJSoftChess.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7755
   ScaleWidth      =   9900
   StartUpPosition =   2  '屏幕中心
   Begin VB.OptionButton PlayingOption 
      BackColor       =   &H00000000&
      Caption         =   "White"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080C0FF&
      Height          =   345
      Index           =   0
      Left            =   7830
      TabIndex        =   47
      Top             =   30
      Value           =   -1  'True
      Width           =   1005
   End
   Begin VB.OptionButton PlayingOption 
      BackColor       =   &H00000000&
      Caption         =   "Black"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080C0FF&
      Height          =   345
      Index           =   1
      Left            =   8880
      TabIndex        =   46
      Top             =   30
      Width           =   1005
   End
   Begin VB.TextBox tHost 
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080C0FF&
      Height          =   375
      Left            =   6240
      TabIndex        =   36
      Text            =   "192.168.0.3"
      Top             =   7320
      Width           =   1785
   End
   Begin VB.TextBox LocalIP 
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080C0FF&
      Height          =   375
      Left            =   3390
      TabIndex        =   35
      Text            =   "192.168.0.3"
      Top             =   7320
      Width           =   1785
   End
   Begin VB.Timer GameTimer 
      Left            =   450
      Top             =   7290
   End
   Begin VB.TextBox txtMaxGameTime 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080C0FF&
      Height          =   330
      Left            =   7980
      TabIndex        =   34
      Text            =   "5"
      Top             =   3560
      Width           =   375
   End
   Begin VB.TextBox tMain 
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0E0FF&
      Height          =   1305
      Left            =   6780
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   23
      Top             =   1830
      Width           =   3045
   End
   Begin VB.TextBox tSend 
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0E0FF&
      Height          =   1305
      Left            =   6780
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Tag             =   "6"
      Top             =   4290
      Width           =   3045
   End
   Begin VB.ListBox lName 
      Appearance      =   0  'Flat
      BackColor       =   &H000000C0&
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1290
      IntegralHeight  =   0   'False
      Left            =   6750
      Sorted          =   -1  'True
      TabIndex        =   22
      Top             =   5640
      Width           =   3100
   End
   Begin MSWinsockLib.Winsock Wsck 
      Left            =   30
      Top             =   7290
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.ListBox MoveList 
      Appearance      =   0  'Flat
      BackColor       =   &H000000C0&
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1290
      IntegralHeight  =   0   'False
      Left            =   6750
      TabIndex        =   24
      Top             =   5640
      Width           =   3100
   End
   Begin VB.ListBox ConnectedList 
      Appearance      =   0  'Flat
      BackColor       =   &H000000C0&
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1260
      IntegralHeight  =   0   'False
      Left            =   6780
      Sorted          =   -1  'True
      TabIndex        =   28
      Top             =   5640
      Visible         =   0   'False
      Width           =   3045
   End
   Begin VB.Label CommandMenu 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "BOARD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   330
      Index           =   4
      Left            =   8610
      TabIndex        =   48
      Top             =   1365
      Width           =   840
   End
   Begin VB.Image CommandImage 
      Height          =   420
      Index           =   4
      Left            =   8370
      Top             =   1320
      Width           =   1305
   End
   Begin VB.Shape Shape5 
      BorderColor     =   &H00C0C0C0&
      Height          =   1365
      Left            =   6750
      Top             =   4260
      Width           =   3105
   End
   Begin VB.Shape Shape4 
      BorderColor     =   &H00C0C0C0&
      Height          =   1365
      Left            =   6750
      Top             =   1800
      Width           =   3105
   End
   Begin VB.Shape Shape3 
      BorderColor     =   &H00C0C0C0&
      Height          =   405
      Left            =   7945
      Top             =   3510
      Width           =   435
   End
   Begin VB.Shape Shape2 
      BorderColor     =   &H00808080&
      Height          =   435
      Index           =   1
      Left            =   6210
      Top             =   7290
      Width           =   1845
   End
   Begin VB.Shape Shape2 
      BorderColor     =   &H00808080&
      Height          =   435
      Index           =   0
      Left            =   3360
      Top             =   7290
      Width           =   1845
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "STATUS:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080C0FF&
      Height          =   345
      Left            =   570
      TabIndex        =   44
      Top             =   30
      Width           =   765
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "-"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080C0FF&
      Height          =   345
      Left            =   6960
      TabIndex        =   43
      Top             =   30
      Width           =   705
   End
   Begin VB.Label ToLabel 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "XX"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080C0FF&
      Height          =   345
      Left            =   7410
      TabIndex        =   42
      Top             =   30
      Width           =   435
   End
   Begin VB.Label FromLabel 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "XX"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080C0FF&
      Height          =   345
      Left            =   6810
      TabIndex        =   41
      Top             =   30
      Width           =   435
   End
   Begin VB.Label lblMoving 
      BackStyle       =   0  'Transparent
      Caption         =   "RECEIVING MOVE.  PLEASE STANDBY..."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   345
      Left            =   1380
      TabIndex        =   40
      Top             =   30
      Visible         =   0   'False
      Width           =   5445
   End
   Begin VB.Label ConnectLabel 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "NOT CONNECTED"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   20.25
         Charset         =   0

⌨️ 快捷键说明

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