UC知道VB 国际象棋源代码
来源：百度知道 编辑：UC知道 时间：2024/06/17 04:25:52
刚才已经提问了要中国象棋的源代码，现在需要国际象棋的源代码！~~
Private Sub ChessInit()
Dim i As Integer
For i = 0 To 31
Chess(i).Visible = False
Next
For i = 0 To 63
If a(i) > 0 Then Chess(a(i)).Move (gw - qw) / 2 + (i Mod 8) * gw, (gh - qh) / 2 + (i \ 8) * gh: Chess(a(i)).Visible = True
Next
End Sub
这段怎么改？提示有错误
Private Sub ChessInit()
Dim i As Integer
For i = 0 To 31
Chess(i).Visible = False
Next
For i = 0 To 63
If a(i) > 0 Then Chess(a(i)).Move (gw - qw) / 2 + (i Mod 8) * gw, (gh - qh) / 2 + (i \ 8) * gh: Chess(a(i)).Visible = True
Next
End Sub
这段怎么改？提示有错误
这。。。代码不全啊，但我注意到一个细节，chess控件数组和数组a是不是存在一个映射关系？十有八九是这里出了问题。让我看一下你的源代码吧，也许我可以照着这段代码把全部代码写全
中国象棋的代码在哪啊，怎么也需要先看看全部的才能给你回答啊
中国象棋的代码在哪啊？