📄 main.frm
字号:
Height = 480
Index = 17
Left = 1995
Picture = "main.frx":74693
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 18
Top = 5200
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 16
Left = 2595
Picture = "main.frx":74AB1
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 17
Top = 5200
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 15
Left = 5040
Picture = "main.frx":74EE1
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 16
Top = 1800
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 14
Left = 3795
Picture = "main.frx":75302
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 15
Top = 1870
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 13
Left = 2520
Picture = "main.frx":75723
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 14
Top = 1800
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 12
Left = 1395
Picture = "main.frx":75B44
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 13
Top = 1870
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 11
Left = 240
Picture = "main.frx":75F65
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 12
Top = 1920
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 10
Left = 4395
Picture = "main.frx":76386
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 11
Top = 1320
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 9
Left = 795
Picture = "main.frx":767B6
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 10
Top = 1320
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 8
Left = 4995
Picture = "main.frx":76BE6
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 9
Top = 0
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 7
Left = 195
Picture = "main.frx":77008
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 8
Top = 0
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 6
Left = 4395
Picture = "main.frx":7742A
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 7
Top = 0
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 5
Left = 840
Picture = "main.frx":7784F
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 6
Top = 0
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 4
Left = 3795
Picture = "main.frx":77C74
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 5
Top = 0
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 3
Left = 1395
Picture = "main.frx":7809D
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 4
Top = 0
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 2
Left = 3195
Picture = "main.frx":784C6
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 3
Top = 0
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 1
Left = 1995
Picture = "main.frx":788DE
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 2
Top = 70
Width = 480
End
Begin VB.PictureBox c_chess
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Index = 0
Left = 2640
Picture = "main.frx":78CF6
ScaleHeight = 465.455
ScaleMode = 0 'User
ScaleWidth = 480
TabIndex = 1
Top = 120
Width = 480
End
Begin VB.Shape c_spChessOn
BorderColor = &H00000000&
BorderWidth = 4
FillStyle = 6 'Cross
Height = 615
Left = 3120
Shape = 3 'Circle
Top = 1080
Visible = 0 'False
Width = 615
End
End
Begin VB.Shape c_sColor
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 240
Left = 1200
Shape = 1 'Square
Top = 6240
Width = 240
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "Your Color"
Height = 255
Left = 120
TabIndex = 46
Top = 6240
Width = 975
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "Can Do?"
Height = 255
Left = 2880
TabIndex = 45
Top = 6240
Width = 975
End
Begin VB.Menu c_MunFile
Caption = "&File"
Begin VB.Menu c_MunNew
Caption = "New"
End
Begin VB.Menu c_MunSave
Caption = "Save"
End
Begin VB.Menu c_MunLoad
Caption = "Load"
End
End
Begin VB.Menu c_munView
Caption = "&View"
Begin VB.Menu c_MunShow
Caption = "Show Net"
Checked = -1 'True
End
End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public bIsNet As Boolean
Const FF_EMP = -1
'Private m_board(72) As CBoard
'Private m_chess(32) As CBoard
Const FF_SIDE1 = 0
Const FF_SIDE2 = 1
Dim local_side As Integer
Dim pos_side As Integer
Dim Chess_On As Integer
Const FF_US_INITALL = 0
Const FF_US_INITNET = 1
Const FF_US_INITLOCAL = 2
Const FF_US_NET_CON = 3
Const FF_US_USE_CON = 4
Dim b_Server As Boolean
Dim b_isCon As Boolean
Public m_Set As String
Dim m_BeSet As String
'USER STATE
Enum FF_UA_STATE
FF_UA_INIT
FF_UA_WAITING
FF_UA_USE
FF_UA_INVALID
End Enum
Dim m_State As FF_UA_STATE
'CPoint
'Private Type CPoint
' X As Integer
' Y As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -