正在写一个拼图游戏,有一个空间数组可见顺序的问题
与你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