百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 技术分析 > 正文

vb.net透明窗体和不规则窗体 vb.net picturebox 透明

liebian365 2024-10-26 13:00 5 浏览 0 评论

在vb.net的窗体属性中,有个属性叫TransparencyKey,它能决定在窗体上,哪种颜色所在的区域透明。

注意:TransparencyKey属性对窗体标题栏和外框无效。

如果我们想让窗体透明,如果你的窗体背景颜色是默认的,只要在窗体的Load事件加入一句代码就行:

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.TransparencyKey = SystemColors.Control
    End Sub

运行后,你会发现窗体除标题栏和外框都透明了。

如果你的窗体背景色是别的颜色,比如是红色,就将代码

Me.TransparencyKey = SystemColors.Control

改成:

Me.TransparencyKey = Color.Red

这么看来,建立一个透明窗体看来是很容易的一件事。但窗体透明有什么用呢?我首先想到就是做一个不规则的窗体。

我是这样设想的:

  1. 设置好窗体样式属性,去除窗体标题栏和外框
  2. 在窗体建立一个Picture控件并导入图片,这个图片需要透明的部分的RBG值为(255, 0, 255)
  3. 窗体的TransparencyKey设置为Color.FromArgb(255, 0, 255)
  4. 设置Picture的SizeMode属性 = PictureBoxSizeMode.AutoSiz
  5. 设置Picture的位置为(0,0),设置窗体的宽度和高度分别是图片的宽度和高度

我准备的图片是一个小黑狗,狗周围的颜色值=Color.FromArgb(255, 0, 255) 。如下图。

我这个黑狗图片在我的电脑路径是: d:\test\1.png

代码如下:

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

        PictureBox1.ImageLocation = "d:\test\1.png"  '设置图片
        Me.FormBorderStyle = FormBorderStyle.None '设置窗体的无标题栏,无边框样式
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize '让图片控件尺寸随图片大小自动变化
        PictureBox1.Location = New Point(0, 0)

        Me.TransparencyKey = Color.FromArgb(255, 0, 255) '设置窗体需要透明的颜色

    End Sub

    Private Sub PictureBox1_SizeChanged(sender As Object, e As EventArgs) Handles PictureBox1.SizeChanged
        '让窗体跟图片框尺寸一样大小
        Me.Width = PictureBox1.Width
        Me.Height = PictureBox1.Height
    End Sub

    Private Sub PictureBox1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1.DoubleClick
        Close()
    End Sub

按F5测试运行,窗体上就会出现一条小黑狗,一个不规则的窗体就根据这个黑狗的图片就成功生成了。鼠标双击这个黑狗就可以关闭程序,只可惜不能用鼠标移动这只黑狗。

我们再导入相应API,再加上PictureBox1的鼠标移动事件,就可以实现用鼠标移动这条小狗,全部代码如下:

Public Class Form1
    '以下是移动无标题栏窗体
    Declare Auto Function ReleaseCapture Lib "user32.dll" Alias "ReleaseCapture" () As Boolean
    'API ReleaseCapture函数是用来释放鼠标捕获的
    Declare Auto Function SendMessage Lib "user32.dll" Alias "SendMessage" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr
    '向windows发送消息
    Public Const WM_SYSCOMMAND As Integer = &H112&
    Public Const SC_MOVE As Integer = &HF010&
    Public Const HTCAPTION As Integer = &H2&
    '以上是移动无标题栏窗体

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

        PictureBox1.ImageLocation = "d:\test\1.png"  '设置图片
        Me.FormBorderStyle = FormBorderStyle.None '设置窗体的无标题栏,无边框样式
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize '让图片控件尺寸随图片大小自动变化
        PictureBox1.Location = New Point(0, 0)

        Me.TransparencyKey = Color.FromArgb(255, 0, 255) '设置窗体需要透明的颜色

    End Sub

    Private Sub PictureBox1_SizeChanged(sender As Object, e As EventArgs) Handles PictureBox1.SizeChanged
        '让窗体跟图片框尺寸一样大小
        Me.Width = PictureBox1.Width
        Me.Height = PictureBox1.Height
    End Sub

    Private Sub PictureBox1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1.DoubleClick
        Close()
    End Sub

    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
        If e.Button = MouseButtons.Left Then '移动无标题栏窗体
            ReleaseCapture()
            SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)
        End If
    End Sub
End Class

以上代码在 visual studio 2022 测试成功。运行结果就是出现下面这只小黑狗。

相关推荐

快递查询教程,批量查询物流,一键管理快递

作为商家,每天需要查询许许多多的快递单号,面对不同的快递公司,有没有简单一点的物流查询方法呢?小编的回答当然是有的,下面随小编一起来试试这个新技巧。需要哪些工具?安装一个快递批量查询高手快递单号怎么快...

一键自动查询所有快递的物流信息 支持圆通、韵达等多家快递

对于各位商家来说拥有一个好的快递软件,能够有效的提高自己的工作效率,在管理快递单号的时候都需要对单号进行表格整理,那怎么样能够快速的查询所有单号信息,并自动生成表格呢?1、其实方法很简单,我们不需要一...

快递查询单号查询,怎么查物流到哪了

输入单号怎么查快递到哪里去了呢?今天小编给大家分享一个新的技巧,它支持多家快递,一次能查询多个单号物流,还可对查询到的物流进行分析、筛选以及导出,下面一起来试试。需要哪些工具?安装一个快递批量查询高手...

3分钟查询物流,教你一键批量查询全部物流信息

很多朋友在问,如何在短时间内把单号的物流信息查询出来,查询完成后筛选已签收件、筛选未签收件,今天小编就分享一款物流查询神器,感兴趣的朋友接着往下看。第一步,运行【快递批量查询高手】在主界面中点击【添...

快递单号查询,一次性查询全部物流信息

现在各种快递的查询方式,各有各的好,各有各的劣,总的来说,还是有比较方便的。今天小编就给大家分享一个新的技巧,支持多家快递,一次能查询多个单号的物流,还能对查询到的物流进行分析、筛选以及导出,下面一起...

快递查询工具,批量查询多个快递快递单号的物流状态、签收时间

最近有朋友在问,怎么快速查询单号的物流信息呢?除了官网,还有没有更简单的方法呢?小编的回答当然是有的,下面一起来看看。需要哪些工具?安装一个快递批量查询高手多个京东的快递单号怎么快速查询?进入快递批量...

快递查询软件,自动识别查询快递单号查询方法

当你拥有多个快递单号的时候,该如何快速查询物流信息?比如单号没有快递公司时,又该如何自动识别再去查询呢?不知道如何操作的宝贝们,下面随小编一起来试试。需要哪些工具?安装一个快递批量查询高手快递单号若干...

教你怎样查询快递查询单号并保存物流信息

商家发货,快递揽收后,一般会直接手动复制到官网上一个个查询物流,那么久而久之,就会觉得查询变得特别繁琐,今天小编给大家分享一个新的技巧,下面一起来试试。教程之前,我们来预览一下用快递批量查询高手...

简单几步骤查询所有快递物流信息

在高峰期订单量大的时候,可能需要一双手当十双手去查询快递物流,但是由于逐一去查询,效率极低,追踪困难。那么今天小编给大家分享一个新的技巧,一次能查询多个快递单号的物流,下面一起来学习一下,希望能给大家...

物流单号查询,如何查询快递信息,按最后更新时间搜索需要的单号

最近有很多朋友在问,如何通过快递单号查询物流信息,并按最后更新时间搜索出需要的单号呢?下面随小编一起来试试吧。需要哪些工具?安装一个快递批量查询高手快递单号若干怎么快速查询?运行【快递批量查询高手】...

连续保存新单号功能解析,导入单号查询并自动识别批量查快递信息

快递查询已经成为我们日常生活中不可或缺的一部分。然而,面对海量的快递单号,如何高效、准确地查询每一个快递的物流信息,成为了许多人头疼的问题。幸运的是,随着科技的进步,一款名为“快递批量查询高手”的软件...

快递查询教程,快递单号查询,筛选更新量为1的单号

最近有很多朋友在问,怎么快速查询快递单号的物流,并筛选出更新量为1的单号呢?今天小编给大家分享一个新方法,一起来试试吧。需要哪些工具?安装一个快递批量查询高手多个快递单号怎么快速查询?运行【快递批量查...

掌握批量查询快递动态的技巧,一键查找无信息记录的两种方法解析

在快节奏的商业环境中,高效的物流查询是确保业务顺畅运行的关键。作为快递查询达人,我深知时间的宝贵,因此,今天我将向大家介绍一款强大的工具——快递批量查询高手软件。这款软件能够帮助你批量查询快递动态,一...

从复杂到简单的单号查询,一键清除单号中的符号并批量查快递信息

在繁忙的商务与日常生活中,快递查询已成为不可或缺的一环。然而,面对海量的单号,逐一查询不仅耗时费力,还容易出错。现在,有了快递批量查询高手软件,一切变得简单明了。只需一键,即可搞定单号查询,一键处理单...

物流单号查询,在哪里查询快递

如果在快递单号多的情况,你还在一个个复制粘贴到官网上手动查询,是一件非常麻烦的事情。于是乎今天小编给大家分享一个新的技巧,下面一起来试试。需要哪些工具?安装一个快递批量查询高手快递单号怎么快速查询?...

取消回复欢迎 发表评论: