1. 全栈程序员必看首页

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

全栈程序员-用户IM • • 未分类

[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]圖片透明化[通俗易懂]

 

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

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

【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛

【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

赞 (0)
全栈程序员-用户IM全栈程序员-用户IM
0 0
blank

相关推荐

  • JAVA8 Collectors.groupingBy[通俗易懂]

    JAVA8 Collectors.groupingBy[通俗易懂]

    JAVA8 Collectors.groupingBy[通俗易懂]1.按长度对字符串进行分组List<String>list=Arrays.asList(“a”,”bb”,”cc”,”ddd”);Map<Integer,List<String>>result=list.stream().collect(Collectors.groupingBy(String::length));System.ou…

    全栈程序员-用户IM 全栈程序员-用户IM
    2022年8月21日
  • ghost备份出错,原系统如何修复_电脑怎么做ghost备份

    ghost备份出错,原系统如何修复_电脑怎么做ghost备份

    ghost备份出错,原系统如何修复_电脑怎么做ghost备份  系统装好了,资料也弄好了.自然想到的就是备份.  一键GHOST备份.结果卡在启动项选择那里.停在BACKUPSYSTEM然后下面显示磁盘I/O出错.死机…..  本来以为挂了.后来查了下,只要改变下默认启动项顺序即可.操作如下:  右键我的电脑->属性->高级->启动和故障恢复(设置) 在里面把默认的操作系统backupsystem改为xp就OK.其他的什么等待时间之

    全栈程序员-用户IM 全栈程序员-用户IM
    2022年9月6日
  • backtrack3(BT3) usb版 激活成功教程WIFI无线网络密码详细步骤

    backtrack3(BT3) usb版 激活成功教程WIFI无线网络密码详细步骤

    backtrack3(BT3) usb版 激活成功教程WIFI无线网络密码详细步骤好像很多朋友都在找这东西,我来发上来吧!软件BAIDU一下就有得下了!一、先开始制作启动U盘：将下载好的backtrack3(BT3)usb版(下载地址在文章末尾)文件bt3b141207.rar直接解压到U盘（1G以上容量）。把Boot和BT3两个文件夹放到U盘的根目录，打开BOOT文件夹双击运行”bootinst.bat”批处理文件。U盘里就会多出4个文件.”isolinux.b…

    全栈程序员-用户IM 全栈程序员-用户IM
    2022年10月1日
  • 搜索引擎looka_Alook浏览器使用方法教程[通俗易懂]

    搜索引擎looka_Alook浏览器使用方法教程[通俗易懂]

    Alook极简且强大，致力成为iOS最佳浏览器。具有着与iCloud同步、内置14种语言翻译、自定义搜索引擎等多种功能，很多新用户还不知道如何使用这款APP，下面小编就和大家分享下Alook浏览器的使用教程。Alook浏览器使用方法：1、下载并打开ALOOK浏览器，会出现引导菜单该浏览器是没有广告的，要是没有会员看视频比在APP看还要给力。2、看视频的时候卡其开启视频悬窗功能，还有全屏模式和无图模…

    全栈程序员-用户IM 全栈程序员-用户IM
    2022年4月7日
  • linux中.sh文件是什么？怎么执行？

    linux中.sh文件是什么？怎么执行？

    linux中.sh文件是什么？怎么执行？一、linux中.sh文件是什么？linux中.sh文件是脚本文件，一般都是bash脚本。二、linux中的.sh文件怎么执行？1、直接./加上文件名.sh，如运行hello.sh为./hello.sh【绝对路径下也可以，但hello.sh必须有x权限】使用绝对路径执行：对于文件是否具有x权限，可以目录文件夹下（…

    全栈程序员-用户IM 全栈程序员-用户IM
    2022年10月24日
  • 并发系列（3）之 CLH、MCS 队列锁简介

    并发系列（3）之 CLH、MCS 队列锁简介

    并发系列（3）之 CLH、MCS 队列锁简介这篇博客主要是作为AbstractQueuedSynchronizer的背景知识介绍；平时接触也非常的少，如果你不感兴趣可以跳过；但是了解一下能更加的清楚AQS的设计思路；一、自旋锁简介通

    全栈程序员-用户IM 全栈程序员-用户IM
    2022年8月2日

发表回复

您的电子邮箱地址不会被公开。

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