俄罗斯方块代码.docx

Public Class Form1 Private ShowBitMap As New Bitmap(20, 20), BackBitMap As New Bitmap(20, 20), PreviewBitmap As Bitmap, PreviewGraphics As Graphics Private BlockType As Integer, BlockState As Integer, NextType As Integer = 3, Blocks(,) As Integer 0 隐藏U，C1显示|，C2 静A止~ Private DrawRectangle As Rectangle = New Rectangle(2, 2, 15, 25), DrawLocation As Point = New Point(5, 0), Score As Long Private WithEvents MyTimer As New Timer Private Function GetPreviewPoints(ByVal nType As Integer, ByVal nState As Integer) As Point() Dim nPoints As Point(), i As Integer, m As Integer, n As Integer If nType = 1