主题：[讨论] FB如何让头像变灰?

Dim SImage As Image = Image.FromFile("C:\Users\foxtable1\Desktop\70b70d98-1228-4487-93a5-6f7056628d00.jpg")

Dim Height As Integer = SImage.Height

Dim Width  As Integer = SImage.Width

Dim bitmap As Bitmap = new Bitmap(Width, Height)

Dim MyBitmap As Bitmap= SImage

Dim pixel As Color

For  x As Integer = 0 To Width-1

    For  y As Integer = 0 To Height-1

        pixel = MyBitmap.GetPixel(x, y)

        Dim r As Integer = 0

        Dim g As Integer = 0

        Dim b As Integer = 0

        Dim Result As Integer = 0

        r = pixel.R

        g = pixel.G

        b = pixel.B

        Dim iType As Integer = 2

        Select Case iType

            Case 0 '平均值法

                Result = ((r + g + b) / 3)

            Case 1 '最大值法

                Result = IIF(r > g ,r , g)

                Result = IIF(Result > b,Result,b)

            Case 2 '加权平均值法

                Result = ((0.7 * r) + (0.2 * g) + (0.1 * b))

        End Select

        bitmap.SetPixel(x, y, Color.FromArgb(Result, Result, Result))

    Next

Next

bitmap.Save("C:\Users\foxtable1\Desktop\28d00.jpg")