1. 全栈程序员必看首页

[VB.NET]圖片透明化[通俗易懂]

全栈程序员-站长 • • 未分类 • 阅读 28

[VB.NET]圖片透明化[通俗易懂]原URL:http://www.dotblogs.com.tw/chou/archive/2009/02/12/7120.aspx有沒有辦法做到圖片的透明化，我們可以透過MakeTransparent達成MSDN:Bitmap.MakeTransparent方法:為這個Bitmap將預設的透明色彩變為透明。 而在此程式中，加上了讓使用者點選顏色的功能，並且讓點

大家好，又见面了，我是你们的朋友全栈君。

原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

 

執行結果

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

[VB.NET]圖片透明化[通俗易懂]

 

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

[VB.NET]圖片透明化[通俗易懂]

 

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请联系我们举报，一经查实，本站将立刻删除。

发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/162702.html原文链接：https://javaforall.net

赞 (0)
全栈程序员-站长的头像全栈程序员-站长
0 0


相关推荐

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

关注全栈程序员社区公众号