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

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

本文简介:

           test = 1

       

goback:

       

       If test = 0 Then

            CanMoveNext = 0

        Else

            CanMoveNext = 1

        End If

 

End Function

 

'这里要干什么呢?

Public Sub VisibleBackImg()

    Dim m

    Dim n

    Dim tem

    For m = 1 To 19

        For n = 1 To 12

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

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

go top