; What(mX + 1, mY) = 11
Picture1.PaintPicture image1(0).Picture, mX, mY - 1
OpenFlag = OpenFlag + 1
ElseIf What(mX + 1, mY) >= 1 And What(mX + 1, mY) <= 9 Then
Picture1.PaintPicture image1(What(mX + 1, mY)).Picture, mX,
mY - 1
What(mX + 1, mY) = -What(mX + 1, mY)
OpenFlag = OpenFlag + 1
End If
End If
''再打开右下的点
If mY + 1 <= NowHeight And mX + 1 <= NowWidth Then
If What(mX + 1, mY + 1) = 0 Then
What(mX + 1, mY + 1) = 11
Picture1.PaintPicture image1(0).Picture, mX, mY
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, mY
What(mX + 1, mY + 1) = -What(mX + 1, mY + 1)
OpenFlag = OpenFlag + 1
End If
End If
&n