生成场景中所有的Block方块对象-vb.net开发游戏第6－10章
生成场景中所有的Block方块对象游戏场景类GameField中生成场景中所有的Block方块对象，即10*10个。调用reDraw()画在游戏面板中。 '生成场景中所有的方块对象Public Sub createAll() Dim rand As New Random() For i As Integer = 0 To 9 For j As Integer = 0 To 9 Dim b As New Block(rand.Next(8) + 1, j * 50, i * 50) blocks(i, j) = b rectan2(i, j) = b.ImageType Next reDraw() End Sub
文件大小：2.53MB
评论区