0

我想用透明像素替换“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

没有断点,图片框看起来像空的。

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

4

1 回答 1

0

如果它是位图,您可以使用 LockBits ,操作像素,然后使用 UnlockBits。见这里a sample where it sets every third value to 255。24bpp 位图看起来是红色的。- http://msdn.microsoft.com/en-us/library/5ey6h79d.aspx#Y1085

于 2012-06-23T19:59:00.447 回答