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

breakPointがないと、ピクチャーボックスは空のように見えます。

黒のピクセルを透明なピクセルに置き換えるにはどうすればよいですか？

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 に答える