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


相关推荐

  • python进阶（21）typing模块–类型提示支持[通俗易懂]

    python进阶（21）typing模块–类型提示支持[通俗易懂]

    python进阶（21）typing模块–类型提示支持[通俗易懂]typing介绍Python是一门弱类型的语言，很多时候我们可能不清楚函数参数的类型或者返回值的类型，这样会导致我们在写完代码一段时间后回过头再看代码，忘记了自己写的函数需要传什么类型的参数，返回什

    全栈程序员-用户IM 全栈程序员-用户IM
    2022年7月31日
  • hadoop Secondary NameNode作用

    hadoop Secondary NameNode作用

    hadoop Secondary NameNode作用

    全栈程序员-用户IM 全栈程序员-用户IM
    2021年9月9日
  • centos 7.5 内核版本_内核版本多少算好手机

    centos 7.5 内核版本_内核版本多少算好手机

    centos 7.5 内核版本_内核版本多少算好手机实验环境CentOS-7-x86_64-Minimal-1708.isoCentOSLinuxrelease7.4.1708(Core)Kernel3.10.0-693.el7.x86_64方案一：小版本升级连接并同步CentOS自带yum源，更新内核版本。此方法适用于更新内核补丁。具体实验步骤：sudoyumlistkernelsudoyumupdate-yke…

    全栈程序员-用户IM 全栈程序员-用户IM
    2022年8月23日
  • QT 播放器之列表隐藏

    QT 播放器之列表隐藏

    QT 播放器之列表隐藏首先需要有一个按钮用来显示和隐藏列表m_button=newQPushButton(QStringLiteral(“隐藏”),parent);m_button->resize(35,35);当点击按钮的时候隐藏或显示列表connect(m_button,&QPushButton::clicked,this,&HideShowListVi…

    全栈程序员-用户IM 全栈程序员-用户IM
    2022年6月2日
  • jrtplib学习

    jrtplib学习

    jrtplib学习这是JRTPLIB@Conference系列的第三编《JRTPLIB的几个重要类说明》，本系列的主要工作是实现一个基于JRTPLIB的，建立在RTP组播基础上的多媒体视频会议系统。这只是一个实验系统，用于学习JRTPLIB、RTP、和多媒体相关的编程，不是一个完善的软件工程。而且，我只会在业余的时间出于兴趣写一写。有志同道合的朋友可以通过tinnal@136.com这个邮箱或博客回复（推荐）和我交

    全栈程序员-用户IM 全栈程序员-用户IM
    2022年7月28日
  • 递归函数[通俗易懂]

    递归函数[通俗易懂]

    递归函数[通俗易懂]如果一个函数在内部调用自身，这个函数就叫做递归函数递归函数的简单定义如下：这只是一个简单的定义，什么也做不了。当然，你可以尝试会发生什么结果，理论上会永远运行下去，但实际操作时发现不一会儿程序就

    全栈程序员-用户IM 全栈程序员-用户IM
    2022年7月1日

发表回复

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

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