1. 全栈程序员必看首页

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

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

[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


相关推荐

  • Scripting.FileSystemObject 的文件复制，删除，移动操作

    Scripting.FileSystemObject 的文件复制，删除，移动操作

    Scripting.FileSystemObject 的文件复制，删除，移动操作<%’创建一个FileSystemObject的事例SetMyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)’创建一个要进行操作的文件SetMyFile=MyFileObject.CreateTextFile(“c:\test.txt”)MyFile.WriteLine(“Hello”)MyFile.Close’复…

    全栈程序员-站长的头像 全栈程序员-站长
    2022年7月14日
    68
  • 自动化测试平台(八)：列表组件公共化封装和用例项目管理功能开发

    自动化测试平台(八)：列表组件公共化封装和用例项目管理功能开发

    自动化测试平台(八)：列表组件公共化封装和用例项目管理功能开发上一章我们完成了整个用户管理模块的功能，能够正确的增、删、改、查用户。但其中有很多判断实际上是其他类似的模块也会有的，例如：1.创建用户后回到首页刷新列表；2.删除次页最后一条数据，回到前一页刷新列表；3.查询条件的格式化；—难道我们每写一个类似的模块，都要去写一遍这些重复的逻辑代码吗？显然是没必要的，所以我们需要将其抽离成公共列表组件提供给其他模块使用，避免大量的做重复的事情，并让代码更容易维护。本章还将完成用例项目管理功能，它主要用于管理不同类型（API、UI），不同项目

    全栈程序员-站长的头像 全栈程序员-站长
    2022年6月25日
    21
  • 新visio2019专业版最新功能和激活密钥![通俗易懂]

    新visio2019专业版最新功能和激活密钥![通俗易懂]

    新visio2019专业版最新功能和激活密钥![通俗易懂]visio2019作为目前最流行的流程图和图标制作软件，它在包含所有Visio2016版本中的所有功能之外，还添加了下面几个新变化：1.组织结构图，头脑风暴和SDL模板具有新的入门图，可帮助您快速启动和运行。2.添加了新的数据库模型图模板准确地将数据库建模为Visio图。无需加载项。3.可以为网站创建线框图。4.添加了一些新的UML工具。很多同学找不到visio2019专业版的官网下…

    全栈程序员-站长的头像 全栈程序员-站长
    2022年6月24日
    80
  • PyCharm 2022.01.13 永久激活码(JetBrains全家桶) idea

    PyCharm 2022.01.13 永久激活码(JetBrains全家桶)

    (PyCharm 2022.01.13 永久激活码)2021最新分享一个能用的的激活码出来，希望能帮到需要激活的朋友。目前这个是能用的，但是用的人多了之后也会失效，会不定时更新的，大家持续关注此网站~IntelliJ2021最新激活注册码，破解教程可免费永久激活，亲测有效，下面是详细链接哦~https://javaforall.net/100143.html…

    全栈程序员-站长的头像 全栈程序员-站长
    2022年4月1日
    223
  • vue常用命令[通俗易懂]

    vue常用命令[通俗易懂]

    vue常用命令[通俗易懂]vue常用命令

    全栈程序员-站长的头像 全栈程序员-站长
    2022年4月22日
    39
  • JAVA String 截取字符串的方法（含 substring 索引截取示例）

    JAVA String 截取字符串的方法（含 substring 索引截取示例）

    String.substring()：用于返回一个字符串的子串用法如下：string.substring(from,to)其中from指代要抽去的子串第一个字符在原字符串中的位置to指代所要抽去的子字符串最后一个字符的后一位（这个参数可以不加）下面就对String.substring()做举例：1、string.substring(from)：此时相当于从from位置截取到原字…

    全栈程序员-站长的头像 全栈程序员-站长
    2022年4月3日
    1.4K

发表回复

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

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