Bitmap - Hintergrund ersetzen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Wulf.

    Bitmap - Hintergrund ersetzen

    Hallo,
    ich möchte von einem Bitmap den grauen Hintergrund weiß machen.

    Das Bitmap hat so ein Grau:



    Mein Codeversuch:

    VB.NET-Quellcode

    1. Public Function RemoveBackground(ByVal Pic As Bitmap) As Bitmap
    2. For x As Integer = 0 To Pic.Width - 1
    3. For y As Integer = 0 To Pic.Height - 1
    4. Dim col As Color = Pic.GetPixel(x, y)
    5. Dim Dark As Integer = (col.R + col.G + col.B) \ 3
    6. If Dark < 128 Then : Pic.SetPixel(x, y, Color.Black) : Else : Pic.SetPixel(x, y, Color.White) : End If
    7. Next
    8. Next
    9. Return Pic
    10. End Function


    Ich bekomme immer den Fehler:

    VB.NET-Quellcode

    1. Die arithmetische Operation hat einen Überlauf verursacht.


    in der Codezeile:

    VB.NET-Quellcode

    1. Dim Dark As Integer = (col.R + col.G + col.B) \ 3



    Kann mir jemand sagen woran das liegt?

Facebook
Telefonspende