[VB.NET]圖片透明化

原URL:http://www.dotblogs.com.tw/chou/archive/2009/02/12/7120.aspx

有沒有辦法做到圖片的透明化，我們可以透過 MakeTransparent 達成

MSDN : Bitmap.MakeTransparent 方法 : 為這個 Bitmap 將預設的透明色彩變為透明。

 

而在此程式中，加上了讓使用者點選顏色的功能，並且讓點選的顏色透明化

以下為程式碼

VB.NET

view source

print ?

01	Public Class Form1

02	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

03	PictureBox1.ImageLocation = "Test.bmp"

04

End Sub

05

06

07	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

08	Dim bmp As Bitmap

09	bmp = PictureBox1.Image

10	bmp.MakeTransparent(Color.White)   'Color白色的部份透明

11	bmp.Save("Result.bmp")

12	PictureBox2.ImageLocation = "Result.bmp"

13

End Sub

14

15	Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

16	Dim bmp As Bitmap

17	bmp = PictureBox1.Image

18	bmp.GetPixel(e.X, e.Y)

19	bmp.MakeTransparent(bmp.GetPixel(e.X, e.Y))

20	bmp.Save("Result.bmp")

21	PictureBox2.Image = bmp

22

End Sub

23

End Class

 

執行結果

滑鼠點選白色，使白色成為透明

 

滑鼠點選藍色，使藍色成為透明