正在写一个拼图游戏,有一个空间数组可见顺序的问题

与你QQ联系,问题正在解决中。。。

只要在splitimage_MouseDown内增加一行代码即可:

Private Sub splitimage_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

splitimage(Index).Print Index

If DoesControlExist(splitimage(splitx * splity)) Then

Unload splitimage(splitx * splity)

End If

Load splitimage(splitx * splity)

splitimage(splitx * splity) = splitimage(Index)

splitimage(splitx * splity).Visible = True

splitimage(Index).ZOrder (0) '新增的代码!

End Sub