俄罗斯方块--vb6实现[11]

[入库:2006年2月23日] [更新:2007年3月24日]

本文简介:

                Exit Sub

            End If

            If ImageFKArray(tem) = 1 Then

                BackImageFKArray(tem - 1) = 1

            End If

        Next n

    Next m

   

     '清空当前数组

    CleanFK

   

     '拷备备份数组到当前数组

    For m = 1 To 19

        For n = 1 To 12

            tem = (m - 1) * 12 + n

            ImageFKArray(tem) = BackImageFKArray(tem)

        Next n

本文关键:俄罗斯方块--vb6实现
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top