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

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

本文简介:

'游戏失败,玩家死掉了,处理这些东西吧

Public Sub Dead()

    Form1!Timer.Enabled = False

    MsgBox "游戏结束" & Chr(13) & "您的得分是" & getLine

    Form1!lblStart.Visible = True

    'do other things

    Dim m

    Dim n

    Dim tem

   

    For m = 1 To 19

        For n = 1 To 12

            tem = (m - 1) * 12 + n

            ImageBackFKArray(tem) = 1

           

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

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

go top