Question

我想用透明像素

替换“file.bmp”中的每个黑色像素

 Dim b As Bitmap = New Bitmap(64, 64)

    b = image.fromfile("c:/file.bmp")

        For y = 0 To 63
            For x = 0 To 63
             Dim c As New Color
              c = Color.Transparent
               If b.Getpixel(x,y) = color.Black Then
                b.SetPixel(x, y, c)
               End if
            Next

     Next
        PictureBox1.Image = b

异常：

因为这种评估可能会引起副作用，所以不会执行直到用户启用。的System.Drawing.Color

没有breakPoint，图片框看起来就像是空的。

如何用透明像素替换黑色像素？

Answer 1

如果是位图，您可以使用LockBits，操纵像素，然后使用UnlockBits。请参阅此处a sample where it sets every third value to 255。 24bpp位图将显示为红色。 - http://msdn.microsoft.com/en-us/library/5ey6h79d.aspx#Y1085

Vb.net将像素颜色更改为透明

1 个答案: