picture数组
可以用坐标来完成
用数组来记录坐标
棋谱代码我想是靠自己写吧
比如
PrivateSubForm_Load()
Picture1(1).Picture=LoadPicture()'这图是兵
EndSub
PrivateSubPicture1_Click(IndexAsInteger)
IfIndex=1Then
IfPicture1(1).Top>=1000Then'没过河
Picture1(1).Left=500'保持不变意思就是不能左右移动,当用鼠标指定他的位子就可以上前一步
ElseIfPicture1(1).Top<=700Then'已经过河
'可以就解除限制
EndIf
EndIf
EndSub
'还要判断你指定位子的坐标，是否远远超过一步距离，或远远小于一步距离
'可以用所画的线来判断位子
实际代码不是这样写的
只是希望你明白这个道理
