我想用透明像素替换“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
没有断点,图片框看起来像空的。
如何用透明像素替换黑色像素?