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

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

本文简介:

            If Form1!ImageFK(tem).Visible = True Then

                ImageBackFKArray(tem) = 1

            End If

        Next n

    Next m

    CleanFK

    GetNext

   

End Sub

 

'能下移吗? 返回1能下移,

'反回   2   到了最底行

 

Public Function CanMoveNext() As Integer

    Dim m

    Dim n

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

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

go top