For i = 0 To PicMain.Height

MaskLine = False 初始化MaskLine变量

For j = 0 To PicMain.Width

CurrentColor = GetPixel(PicMain.hdc, j, i) 取得当前所在点的颜色值

If j < PicMain.Width Then

TwoColor = GetPixel(PicMain.hdc, j + 1, i) 取得当前所在点前面一点的值, 用途是当是一条很宽的线条把图象围起来时不会误判

End If

If CurrentColor = RGB(A, B, C) And TwoColor <> CurrentColor Then 当遇到一条线条时

MaskLine = True MaskLine变量赋值为True

LineCounts = 0 LineCounts作用是计算剩余线条的数量

For k = j + 1 To PicMain.Width 开始向后循环, 计算线条的数量

OtherColor = GetPixel(PicMain.hdc, k, i) 取得颜色值

If k < PicMain.Width Then

OtherTwoColor = GetPixel(PicMain.hdc, k + 1, i) 取得前面一点的值, 用途是当是一条很宽的线条把图象围起来时不会误判-For i = 0 To PicMain.Height MaskLine = False For variable initialization MaskLine j = 0 To PicMain.Width NR98117 tColor = GetPixel (PicMain.hdc, j, i) made the current locations of the color value If j