[原创]中国象棋

zhaodx · 发表于 2006-12-12 18:35

运行错误提示：ambiguous name detected!

chenhuafu · 发表于 2006-12-13 12:16

还是太慢了？？

彭希仁 · 发表于 2006-12-15 20:11

QUOTE:

以下是引用chenhuafu在2006-12-13 12:16:35的发言：
还是太慢了？？

现在是否满意？

york888 · 发表于 2006-12-18 15:59

做得非常好!支持!

york888 · 发表于 2006-12-18 16:02

不过我玩了几次,总是电脑输了,可否增加难道!?

chat163 · 发表于 2006-12-18 16:45

高手的作品,佩服

彭希仁 · 发表于 2006-12-18 17:47

QUOTE:

以下是引用york888在2006-12-18 16:02:12的发言：

不过我玩了几次,总是电脑输了,可否增加难道!?

近来认识到一位象棋专业棋手（拿过全省冠军），正在和他学下棋，有望提高象棋水平。

[此贴子已经被作者于2006-12-18 23:32:52编辑过]

彭希仁 · 发表于 2006-12-27 13:11

最新版象棋

sn7630558 · 发表于 2007-2-15 10:15

修改后还可以,但是有问题

sn7630558 · 发表于 2007-2-15 10:20

修改后还可以,但是有问题,Private Sub Mask_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    For i = 1 To 10
        For ii = 1 To 9
            If (X > arr(i, ii, 3) And X < arr(i, ii, 3) + 30) And (Y > arr(i, ii, 4) And Y < arr(i, ii, 4) + 30) Then
                If a <> 0 Then
                    If arr(i, ii, 1) <> a Then
                        Call gogo(i, ii)
                    Else
                        Me.Controls(a).SpecialEffect = fmSpecialEffectFlat
                        a = 0
                        Exit Sub
                    End If
                Else
                    a = arr(i, ii, 1)
                    Me.Controls(a).SpecialEffect = fmSpecialEffectBump
                End If
            End If
        Next ii
    Next i
End Sub

		自动登录	找回密码
密码			免费注册