急，图形转换问题

Question

For i = 0 To curX
        For j = 0 To curY
            tCOl = GetPixel(picMain.hdc, i, j)
            r = tCOl Mod 256
            g = (tCOl Mod 256) \ 256
            b = tCOl \ 256 \ 256
            
            If r < 200 And g < 200 And b < 200 Then
                tCOl = vbBlack
            Else
                tCOl = vbWhite
            End If
            SetPixel picMain.hdc, i, j, tCOl
        Next j
        ctlProgBar.Value = i * 100 \ (curX - 1)
    Next i

Answer 1

ocx和dll就让它见鬼去吧，呵呵！！！

Answer 2

For i = 0 To curX
        For j = 0 To curY
            tCOl = GetPixel(picMain.hdc, i, j)
            r = tCOl Mod 256
            g = (tCOl \ 256) Mod 256
            b = tCOl \ 256 \ 256
            c = r * 0.3 + g * 0.59 + b * 0.11
            SetPixel picMain.hdc, i, j, RGB(c, c, c)
        Next j
        ctlProgBar.Value = i * 100 \ (curX - 1)
    Next i

Answer 3

以下是亮化（增加亮度）的例子：    For i = 0 To curX
        For j = 0 To curY
            tCOl = GetPixel(picMain.hdc, i, j)
            r = tCOl Mod 256
            g = (tCOl \ 256) Mod 256
            b = tCOl \ 256 \ 256
            c = Abs((r + g + b) \ 3)
            r = Abs(r + c)
            g = Abs(g + c)
            b = Abs(b + c)
            SetPixel picMain.hdc, i, j, RGB(r, g, b)
        Next j
        ctlProgBar.Value = i * 100 \ (curX - 1)
    Next i