VB扫雷源代码

bsp;           What(mX - 1, mY) = -What(mX - 1, mY)
                    OpenFlag = OpenFlag + 1
                 End If
              End If
              ''打开左上的点
              If mX - 1 >= 1 And mY - 1 >= 1 Then
                    If What(mX - 1, mY - 1) = 0 Then
                       What(mX - 1, mY - 1) = 11
                       Picture1.PaintPicture image1(0).Picture, mX - 2, mY - 2
                       OpenFlag = OpenFlag + 1
                    ElseIf What(mX - 1, mY - 1) >= 1 And What(mX - 1, mY - 1)
<= 9 Then
                       Picture1.PaintPicture image1(What(mX - 1, mY -
1)).Picture, mX - 2, mY - 2
                       What(mX - 1, mY - 1) = -What(mX - 1, mY - 1)
                       OpenFlag = OpenFlag + 1
                    End If
              End If
              ''再打开上面的点
              If mY - 1 >= 1 Then
                 If What(mX, mY - 1) = 0 Then
                    What(mX, mY - 1) = 11
                    Picture1.PaintPicture image1(0).Picture, mX - 1, mY - 2
                    OpenFlag = OpenFlag + 1