📄 rjsoftchess.frm
字号:
EndProperty
ForeColor = &H000080FF&
Height = 375
Index = 3
Left = 45
TabIndex = 4
Top = 3165
Width = 225
End
Begin VB.Label LabelY
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "3"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 375
Index = 2
Left = 45
TabIndex = 3
Top = 2430
Width = 225
End
Begin VB.Label LabelY
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "2"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 375
Index = 1
Left = 45
TabIndex = 2
Top = 1695
Width = 225
End
Begin VB.Label LabelX
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "A"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 375
Index = 0
Left = 5925
TabIndex = 16
Top = 6975
Width = 345
End
Begin VB.Label LabelX
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "B"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 375
Index = 1
Left = 5190
TabIndex = 15
Top = 6975
Width = 345
End
Begin VB.Label LabelX
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "C"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 375
Index = 2
Left = 4455
TabIndex = 14
Top = 6975
Width = 345
End
Begin VB.Label LabelX
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "D"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 375
Index = 3
Left = 3720
TabIndex = 13
Top = 6975
Width = 345
End
Begin VB.Label LabelX
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "E"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 375
Index = 4
Left = 2985
TabIndex = 12
Top = 6975
Width = 345
End
Begin VB.Label LabelX
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "F"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 375
Index = 5
Left = 2250
TabIndex = 11
Top = 6975
Width = 345
End
Begin VB.Label LabelX
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "G"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 375
Index = 6
Left = 1515
TabIndex = 10
Top = 6975
Width = 345
End
Begin VB.Label LabelX
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "H"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 375
Index = 7
Left = 780
TabIndex = 9
Top = 6975
Width = 345
End
Begin VB.Image ChessBoard
Height = 6405
Left = 360
MouseIcon = "RJSoftChess.frx":8EA44
MousePointer = 99 'Custom
Top = 510
Width = 6360
End
Begin VB.Label lblStatus
BackStyle = 0 'Transparent
Caption = "READY FOR NEW GAME."
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 = 45
Top = 30
Width = 5445
End
Begin VB.Line Line1
BorderColor = &H000080FF&
BorderWidth = 3
Index = 0
X1 = 6720
X2 = 7920
Y1 = 3705
Y2 = 3690
End
End
Attribute VB_Name = "RJSoftChess"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub Board_Setup(XA As Boolean)
Dim X As Integer, Y As Integer, Z As Integer, ZBoardTempA_H As String, ZBoardTemp1_8 As String
'Set Board and Labels
If ZRotated = True Then
For X = 0 To 7
LabelY(X).Caption = CStr(X + 1)
Next X
For X = 0 To 7
LabelX(X).Caption = Chr(65 + X)
Next X
Y = 0: Z = 0
For X = 0 To 63
Board(X).MouseIcon = MouseImage(0).Picture
ZBoardTempA_H = Chr(Y + 65)
ZBoardTemp1_8 = CStr(Z + 1)
Board(X).DataField = ZBoardTempA_H & ZBoardTemp1_8
Y = Y + 1
If Y >= 8 Then
Y = 0
Z = Z + 1
If Z >= 8 Then Z = 0
End If
Next X
Else
For X = 0 To 7
LabelY(X).Caption = CStr(7 - X + 1)
Next X
For X = 0 To 7
LabelX(X).Caption = Chr(72 - X)
Next X
Y = 0: Z = 0
For X = 0 To 63
Board(X).MouseIcon = MouseImage(0).Picture
ZBoardTempA_H = Chr(72 - Y)
ZBoardTemp1_8 = CStr(7 - Z + 1)
Board(X).DataField = ZBoardTempA_H & ZBoardTemp1_8
Y = Y + 1
If Y >= 8 Then
Y = 0
Z = Z + 1
If Z >= 8 Then Z = 0
End If
Next X
End If
For X = 16 To 47
Board(X).Picture = Master_Blank.Picture
Board(X).Tag = ""
Next X
If XA Then
'White on top
Board(7).Picture = Master_White(2).Picture
Board(7).Tag = "WRK"
Board(0).Picture = Master_White(2).Picture
Board(0).Tag = "WRK"
Board(6).Picture = Master_White(3).Picture
Board(6).Tag = "WKN"
Board(1).Picture = Master_White(3).Picture
Board(1).Tag = "WKN"
Board(5).Picture = Master_White(4).Picture
Board(5).Tag = "WBP"
Board(2).Picture = Master_White(4).Picture
Board(2).Tag = "WBP"
Board(3).Picture = Master_White(1).Picture
Board(3).Tag = "WQU"
Board(4).Picture = Master_White(0).Picture
Board(4).Tag = "WKK"
For X = 8 To 15
Board(X).Picture = Master_White(5).Picture
Board(X).Tag = "WPN"
Next X
'Black on bottom
Board(63).Picture = Master_Black(2).Picture
Board(63).Tag = "BRK"
Board(56).Picture = Master_Black(2).Picture
Board(56).Tag = "BRK"
Board(62).Picture = Master_Black(3).Picture
Board(62).Tag = "BKN"
Board(57).Picture = Master_Black(3).Picture
Board(57).Tag = "BKN"
Board(61).Picture = Master_Black(4).Picture
Board(61).Tag = "BBP"
Board(58).Picture = Master_Black(4).Picture
Board(58).Tag = "BBP"
Board(59).Picture = Master_Black(1).Picture
Board(59).Tag = "BQU"
Board(60).Picture = Master_Black(0).Picture
Board(60).Tag = "BKK"
For X = 48 To 55
Board(X).Picture = Master_Black(5).Picture
Board(X).Tag = "BPN"
Next X
Else
'White on bottom
Board(7).Picture = Master_Black(2).Picture
Board(7).Tag = "BRK"
Board(0).Picture = Master_Black(2).Picture
Board(0).Tag = "BRK"
Board(6).Picture = Master_Black(3).Picture
Board(6).Tag = "BKN"
Board(1).Picture = Master_Black(3).Picture
Board(1).Tag = "BKN"
Board(5).Picture = Master_Black(4).Picture
Board(5).Tag = "BBP"
Board(2).Picture = Master_Black(4).Picture
Board(2).Tag = "BBP"
Board(4).Picture = Master_Black(1).Picture
Board(4).Tag = "BQU"
Board(3).Picture = Master_Black(0).Picture
Board(3).Tag = "BKK"
For X = 8 To 15
Board(X).Picture = Master_Black(5).Picture
Board(X).Tag = "BPN"
Next X
'Black on top
Board(63).Picture = Master_White(2).Picture
Board(63).Tag = "WRK"
Board(56).Picture = Master_White(2).Picture
Board(56).Tag = "WRK"
Board(62).Picture = Master_White(3).Picture
Board(62).Tag = "WKN"
Board(57).Picture = Master_White(3).Picture
Board(57).Tag = "WKN"
Board(61).Picture = Master_White(4).Picture
Board(61).Tag = "WBP"
Board(58).Picture = Master_White(4).Picture
Board(58).Tag = "WBP"
Board(60).Picture = Master_White(1).Picture
Board(60).Tag = "WQU"
Board(⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -