VB扫雷源代码

p;       End If
       Next
   Next
   ''如果标记数大于等于雷数则不处理
   If T >= -(What(mX + 1, mY + 1)) Then Exit Sub
   ''如果标记数等于雷数则打开
   If T = -What(mX + 1, mY + 1) Then
   For X1 = mX To mX + 2
       For Y1 = mY To mY + 2
           If X1 = mX + 1 And Y1 = mY + 1 Then
           Else
              If X1 >= 1 And X1 <= NowWidth Then
                 If Y1 >= 1 And Y1 <= NowHeight Then
                    x2 = X1: y2 = Y1
                    Picture1_MouseUp vbLeftButton, 0, x2, y2
                 End If
              End If
             
           End If
       Next
   Next
      Exit Sub
   End If
   ''如果标记数小于雷数则按下余下的
   For X1 = mX To mX + 2
       For Y1 = mY To mY + 2
           If X1 = mX + 1 And Y1 = mY + 1 Then
           Else
              If X1 >= 1 And X1 <= NowWidth Then
                 If Y1 >= 1 And Y1 <= NowHeight Then
                    If What(X1, Y1) >= 0 And What(X1, Y1) <= 10 Then
''                       Picture1.PaintPicture image1(14).Picture, X1 - 1, Y1 -
1
''                       Picture1.PaintPicture image1(9).Picture, X1 - 1, Y1 - 1
                    End If
                 End If
              End If
       &nbs