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

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

本文简介:

   

    FKTypeX = gFKTypeX

    FKTypeY = gFKTypeY

    FKtypePicType = gFKTypePicType

 

    CleanFK

    DisVisibleFK

    For temX = 1 To 4

        For temY = 1 To 4

         

            If FKArray(FKTypeX, FKTypeY).Info(temX, temY) = 1 Then

                TTT = (temX - 1) * 12 + temY + 4

                Form1!ImageFK(TTT).Visible = True

                ImageFKArray(TTT) = 1

            End If

           

        Next temY

    Next temX

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

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

go top