已经编写一部分还差一部分。(msgbox重新游戏)
Option Base 1
Dim n%
Const bk As Integer = 240
Dim gridH%, gridW%
Dim flag As Integer
Dim nw%, nb%
Dim arr(7, 7) As Integer
Private Sub chess_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
row = CInt((Y - bk) / gridH)
col = CInt((X - bk) / gridW)
If row >= 1 And row <= 7 And col >= 1 And col <= 7 Then
flag = -flag
If arr(row, col) = 0 Then
If flag = 1 Then
nw = nw + 1
Load white(nw)
white(nw).Visible = True
white(nw).Left = (col * gridW + bk) - white(nw).Width / 2
white(nw).Top = (row * gridH + bk) - white(nw).Height / 2
white(nw).ZOrder
arr(row, col) = 1
If isWin() = True Then
Label1.Caption = "白棋胜出!"
Label1.Visible = True
Label1.ZOrder
End If
Else
nb = nb + 1
Load black(nb)
black(nb).Visible = True
black(nb).Left = (col * gridW + bk) - black(nb).Width / 2
black(nb).Top = (row * gridH + bk) - black(nb).Height / 2
black(nb).ZOrder
arr(row, col) = -1
If isWin() = True Then
Label1.Caption = "黑棋胜出!"
Label1.Visible = True
Label1.ZOrder
End If
End If
End If
End If
End Sub
Function isWin() As Boolean
isWin = False
For i = 1 To 7
For j = 1 To 3
s = 0
s = s + arr(i, j) + arr(i, j + 1) + arr(i, j + 2) + arr(i, j + 3) + arr(i, j + 4)
Next j
If s = 5 Or s = -5 Then
isWin = True
Exit Function
End If
Next i
End Function
Private Sub Form_Load()
gridH = (chess.Height - bk * 2) / 8
gridW = (chess.Width - bk * 2) / 8
flag = 1
End Sub