VB 窗口透明度设置-WindowsAPI-SetLayeredWindowAttributes

最新推荐文章于 2024-06-19 19:41:57 发布

Fanstorm丶

最新推荐文章于 2024-06-19 19:41:57 发布

阅读量2.8k

点赞数

分类专栏： VB6 文章标签： VB winAPI SetLayered 透明度窗体透明

本文链接：https://blog.csdn.net/wf824284257/article/details/53504225

版权

这篇博客介绍了如何使用VB结合WindowsAPI函数SetLayeredWindowAttributes来设置窗口的透明度，包括效果图展示和具体的VB代码实现。

摘要由CSDN通过智能技术生成

VB 窗口透明度设置-WindowsAPI-SetLayeredWindowAttributes

1效果图

这里写图片描述

2VB代码

模块代码

Option Explicit
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Public Const WS_EX_LAYERED = &H80000
 Public Const GWL_EXSTYLE = -20
P