vb.net 创建透明窗体

2014-07-29 11:01:20 739 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

设置背景透明的窗体，GDI+绘制异形WINFORM 在.Net环境下绘制矩形，椭圆形，三角形等形态的窗体是件很简单的事情，只要设置窗体的背景透明当你在窗体上绘制图形和控件时，是不会显示窗体的，这点MS的GDI+确实相比其他平台的实现方式更加方便和简单。设置方式也很简单,首先设置FORM的BackColor为一个程序中不常用的颜色，然后再设置FORM的TransparenceKey为这个颜色就OK了。参考VB.net代码Private Sub For 阅读详情

在网上找了很久，都没有合适的解决办法。。。
网上基本上都是直接改窗体的Opacity属性，但是这会带来一个问题，就是窗体上的控件同样会变得透明。
有没有什么办法能让窗体透明，但是控件却不透明的吗？

...全文

倍压整流电路设计倍压整流电路利用二极管和电容的充放电特性实现电压提升，可分为二倍压、三倍压及多倍压结构。其工作原理是通过交流电正负半周交替对电容充电并叠加电压，具有结构简单、成本低的优点，但带载能力差且纹波较大。典型应用包括示波器、电蚊拍等小电流高压场景。设计时需重点考虑电容耐压、二极管选型和负载匹配，高频驱动可优化性能。该电路在低功耗高压电源中具有独特优势，但需注意安全防护与电压稳定性问题。阅读详情

CK12332

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

tpxxn 2016-01-31

打赏
举报

引用 6 楼 dylike 的回复:

使用Updatelayeredwindow样式,并且所有要显示的控件绘制到一张图中,然后将这张图合成到桌面,当程序中有任何事件等导致画面上有变化时,需要重新绘制,这有点类似DX渲染原理. 示例图: 可选简化代码量配件: DSAPI.DLL
Dim F As New Form
        With F
            .FormBorderStyle = Windows.Forms.FormBorderStyle.None
            .ShowIcon = False
            .ShowInTaskbar = False
            Dim B As New Bitmap(30, 30)
            Using G As Graphics = Graphics.FromImage(B)
                G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
                G.DrawEllipse(New Pen(Brushes.Red, 5), New Rectangle(0, 0, 30, 30))
            End Using
            DSAPI.图形图像.透明窗体.窗体支持鼠标拖动(F, True)
            DSAPI.图形图像.透明窗体.显示图像(F, B, 255)
            F.Show()
        End With

请问如何调用这个dll啊

Tiger_Zhao 2014-07-30

打赏
举报

少打字了:
——实际上不限于窗体背景，窗体上只要同一个颜色就会透明，比如图片中的紫色。

Tiger_Zhao 2014-07-30

打赏
举报

两者透明方式中，Opactity 是整体透明，你需要的是按颜色透明：
窗体的 TransparencyKey 设一个特殊的颜色（比如不常用的紫色），BackColor 也设为相同的颜色。
控件的 BackColor 要显式指定为 ButtonFace 之类。
运行、就只有窗体背景透明。
——实际上不限于窗体上只要同一个颜色就会透明，比如图片中的紫色。

平头哥哥 2014-07-30

打赏
举报

近期也在研究这个问题！想了一个很戳的解决办法：假设 form1，背景色是灰色， shape1（直接依附在form1上）需要设置为透明，就将它的背景色设置的和form1一样即可。

Tiger_Zhao 2014-07-30

打赏
举报

多此一举，TransparencyKey 自动实现了该功能！

threenewbee 2014-07-30

打赏
举报

引用 6 楼 dylike 的回复:

使用Updatelayeredwindow样式,并且所有要显示的控件绘制到一张图中,然后将这张图合成到桌面,当程序中有任何事件等导致画面上有变化时,需要重新绘制,这有点类似DX渲染原理. 示例图: 可选简化代码量配件: DSAPI.DLL
Dim F As New Form
        With F
            .FormBorderStyle = Windows.Forms.FormBorderStyle.None
            .ShowIcon = False
            .ShowInTaskbar = False
            Dim B As New Bitmap(30, 30)
            Using G As Graphics = Graphics.FromImage(B)
                G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
                G.DrawEllipse(New Pen(Brushes.Red, 5), New Rectangle(0, 0, 30, 30))
            End Using
            DSAPI.图形图像.透明窗体.窗体支持鼠标拖动(F, True)
            DSAPI.图形图像.透明窗体.显示图像(F, B, 255)
            F.Show()
        End With

感谢分享。你的代码应该能帮助lz了。

dylike 2014-07-30

打赏
举报

使用Updatelayeredwindow样式,并且所有要显示的控件绘制到一张图中,然后将这张图合成到桌面,当程序中有任何事件等导致画面上有变化时,需要重新绘制,这有点类似DX渲染原理.

示例图:

可选简化代码量配件:
DSAPI.DLL

Dim F As New Form

        With F

            .FormBorderStyle = Windows.Forms.FormBorderStyle.None

            .ShowIcon = False

            .ShowInTaskbar = False

            Dim B As New Bitmap(30, 30)

            Using G As Graphics = Graphics.FromImage(B)

                G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

                G.DrawEllipse(New Pen(Brushes.Red, 5), New Rectangle(0, 0, 30, 30))

            End Using

            DSAPI.图形图像.透明窗体.窗体支持鼠标拖动(F, True)

            DSAPI.图形图像.透明窗体.显示图像(F, B, 255)

            F.Show()

        End With

CK12332 2014-07-29

打赏
举报

引用 1 楼 caozhy 的回复:

如果程序在vista以上运行，可以直接实现： http://msdn.microsoft.com/en-us/magazine/cc163435.aspx 要想在xp上创建这样的程序，比较复杂。核心是使用核心是使用UpdateLayeredWindow API函数。但是这样一来，控件就没法绘制了，有一些变通的方法，比如用多个窗体，或者自己绘制等等，有兴趣自己研究吧。参考：http://blog.csdn.net/CometNet/article/details/6561912 http://www.zystudios.cn/blog/post/26.Shtml

可惜了，我没有接触过C#，代码完全不懂啊

threenewbee 2014-07-29

打赏
举报

如果程序在vista以上运行，可以直接实现： http://msdn.microsoft.com/en-us/magazine/cc163435.aspx 要想在xp上创建这样的程序，比较复杂。核心是使用核心是使用UpdateLayeredWindow API函数。但是这样一来，控件就没法绘制了，有一些变通的方法，比如用多个窗体，或者自己绘制等等，有兴趣自己研究吧。参考：http://blog.csdn.net/CometNet/article/details/6561912 http://www.zystudios.cn/blog/post/26.Shtml

vb.net 创建透明窗体

相关推荐