消去满行-vb.net开发游戏第11－15章
消去满行ClearLine ()根据行号消去满行。方法很简单，仅仅将上方的行依次下一，最后将首行（0行）清空即可。 Private Sub ClearLine(ByVal lineNumber As Integer) For j As Integer = lineNumber To 1 Step -1 For i As Integer = 0 To PlayingFieldWidth - 1 pile(i, j) = pile(i, (j - 1)) Next For i As Integer = 0 To PlayingFieldWidth - 1 pile(i, 0) = 0 Next End Sub
文件大小：1.31MB
评论区