VB.NET如何快速批量替换图像中所有白色像素为粉色

你当前写的调色板修改逻辑仅对索引像素格式的低色深图片（比如256色GIF、8位PNG）有效，对绝大多数常见的24位RGB、32位ARGB真彩色图片完全不起作用——这类图片根本没有调色板条目集合，自然没法通过修改Palette属性替换像素颜色。
gr.ExcludeClip() 这类GDI裁剪方法不适合这个需求：它是按几何区域控制绘制范围的，做不到按像素颜色值精准筛选，就算绕路用绘图接口实现，不仅会出现抗锯齿导致的边缘误差，处理速度也满足不了1万张图的批量处理要求。

和Python里NumPy向量化操作的思路一致，VB.NET里最快的实现方式是直接锁定图像的内存块，跳过GDI+逐像素访问的性能损耗，直接遍历内存里的像素值做判断替换，处理速度比逐像素调用GetPixel/SetPixel快50到100倍，完全能支撑万级图片的批量处理。

可直接使用的实现代码 #

Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices

Public Function ReplaceWhiteWithPink(sourceImg As Image, targetPink As Color) As Bitmap
    Dim processedBmp As New Bitmap(sourceImg.Width, sourceImg.Height, sourceImg.PixelFormat)
    Using g As Graphics = Graphics.FromImage(processedBmp)
        g.DrawImage(sourceImg, Point.Empty)
    End Using

    Dim imgRect As New Rectangle(0, 0, processedBmp.Width, processedBmp.Height)
    Dim bmpData As BitmapData = processedBmp.LockBits(imgRect, ImageLockMode.ReadWrite, processedBmp.PixelFormat)
    Dim totalBytes As Integer = Math.Abs(bmpData.Stride) * processedBmp.Height
    Dim pixelBuffer(totalBytes - 1) As Byte
    Marshal.Copy(bmpData.Scan0, pixelBuffer, 0, totalBytes)

    ' 按不同像素格式分别处理，注意GDI+内存中像素是B/BG/BGA顺序存储，不是RGB顺序
    If processedBmp.PixelFormat = PixelFormat.Format24bppRgb Then
        ' 24位RGB：每像素占3字节，顺序为B、G、R
        For i As Integer = 0 To totalBytes - 1 Step 3
            ' 纯白色判断：三个通道值均为255
            If pixelBuffer(i) = 255 AndAlso pixelBuffer(i + 1) = 255 AndAlso pixelBuffer(i + 2) = 255 Then
                pixelBuffer(i) = targetPink.B
                pixelBuffer(i + 1) = targetPink.G
                pixelBuffer(i + 2) = targetPink.R
            End If
        Next
    ElseIf processedBmp.PixelFormat = PixelFormat.Format32bppArgb OrElse processedBmp.PixelFormat = PixelFormat.Format32bppRgb Then
        ' 32位格式：每像素占4字节，顺序为B、G、R、A
        For i As Integer = 0 To totalBytes - 1 Step 4
            If pixelBuffer(i) = 255 AndAlso pixelBuffer(i + 1) = 255 AndAlso pixelBuffer(i + 2) = 255 Then
                pixelBuffer(i) = targetPink.B
                pixelBuffer(i + 1) = targetPink.G
                pixelBuffer(i + 2) = targetPink.R
                ' Alpha通道无需修改，保留原值即可
            End If
        Next
    End If

    Marshal.Copy(pixelBuffer, 0, bmpData.Scan0, totalBytes)
    processedBmp.UnlockBits(bmpData)
    Return processedBmp
End Function

补充说明 #

• 如果你需要替换接近白色的像素（比如RGB值都在250-255区间的米白、亮白），直接修改判断条件的阈值即可，其他逻辑不用动。
• 如果你处理的文件全是索引色格式的低色深图，原来的调色板修改方案性能是最高的，不用换成内存操作逻辑，只要加个像素格式判断，不同格式走不同处理分支就行。
• 批量处理的时候记得及时Dispose用完的Image、Bitmap和Graphics对象，避免内存累积导致程序崩溃。

内容的提问来源于stack exchange，提问作者sharkyenergy