Blurred image

[ron hunter]

Can anyone tell me how I can produce a blurred or out of focus effect on a VB form?

[JorgeLedo]

Put a picture (with Autoredraw:ON) in a form and put the following code to a button. It works like this:
Get a square tile of a picture (e.g 3x3). Get red, green, and blue value of each pixel in the square. Combine all red values and find the mean. Do the same with green and blue.
Then apply the new value in to the pixel in the center of the square.
Ex:
| 1 | 2 | 3 | Red(0) = (Red(1) + Red(2) + Red(3) + Red(4) + Red(5) + Red(6) + _
|---|---|---| Red(7) + Red(8) + Red(9)) / 9
| 4 | 5 | 6 | Green(0) = ..... (same as above)
|---|---|---| Blue(0) = ..... (same as above)
| 7 | 8 | 9 | Apply the RGB(Red(0), Green(0), Blue(0)) in to pixel 5.

    Dim X(10)
    Dim XX(10)
    Dim RedA(10) As Integer
    Dim GreenA(10) As Integer
    Dim BlueA(10) As Integer
    X1 = 1: Y1 = 1
    X2 = Picture1.ScaleWidth - 1: Y2 = Picture1.ScaleHeight - 1
    Y = 0
    L = 0
    For I = Y1 To Y2
        For J = X1 To X2
            RedB = 0: GreenB = 0: BlueB = 0
            X(0) = Picture1.Point(J, I)
            X(1) = Picture1.Point(J - 1, I - 1)
            X(2) = Picture1.Point(J - 1, I)
            X(3) = Picture1.Point(J - 1, I + 1)
            X(4) = Picture1.Point(J, I - 1)
            X(5) = Picture1.Point(J, I + 1)
            X(6) = Picture1.Point(J + 1, I - 1)
            X(7) = Picture1.Point(J + 1, I)
            X(8) = Picture1.Point(J + 1, I + 1)
            For D = 0 To 8
                MHB = X(D) + 1
                RedTemp = MHB Mod 256
                AX = Int(MHB / 256)
                GreenTemp = AX Mod 256
                BlueTemp = Int(AX / 256)
                RedA(D) = RedTemp - 1
                If RedTemp = 0 Then RedA(D) = 0
                GreenA(D) = GreenTemp
                BlueA(D) = BlueTemp
            Next D
            For D = 0 To 8
                RedB = RedB + RedA(D)
                GreenB = GreenB + GreenA(D)
                BlueB = BlueB + BlueA(D)
            Next D
            RedC = Int(RedB / 9)
            GreenC = Int(GreenB / 9)
            BlueC = Int(BlueB / 9)
            If RedC < 0 Then RedC = 0
            If GreenC < 0 Then GreenC = 0
            If BlueC < 0 Then BlueC = 0
            If RedC > 255 Then RedC = 255
            If GreenC > 255 Then GreenC = 255
            If BlueC > 255 Then BlueC = 255
            Picture1.PSet (J, I), RGB(RedC, GreenC, BlueC)
        Next J
    Next I

PS- I need to change the contrast in a B/W picture anybody know how ?