vb透明控件窗体不透明函数

最新推荐文章于 2021-01-31 00:50:55 发布
最新推荐文章于 2021-01-31 00:50:55 发布
阅读量3.5k 收藏 2
点赞数 2
文章标签： vb function user
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xiaoyao961/article/details/6843667
版权

 vb透明控件

Public Declare Function SetWindowRgn Lib "user32 " (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
主要用以上2个函数，可以做到窗体上全部控件透明或指定控件透明

也可以做到任意形状的透明。

具体需要进行深度处理开发才能让任意控件透明，有需要的可以找我

 

原图如下：

专注VB编程开发20年
关注
开源，VB Tab控件(控件背景透明) 及 拔动开关 !
05-15
原tab控件，仿360开关控件版权归原作者! VB控件背景透明代码来自：新浪 “玄雨清风”的博客 感谢以上两位源代码作者 链接:http://pan.baidu.com/s/1hrAEXqG 密码:nfhc '-----------------------以下是转自博客的控件透明源代码(可透明至父窗体或桌面)------------- '添加一个用户控件UserControl,代如下： Option Explicit '实现用户控件UserControl的"伪透明" Private Type POINTAPI X As Long Y As Long End Type Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_ERASEBKGND = &H14 Private Const WM_PAINT = &HF Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source Public Event MouseDown(Button As Integer, Shift As Integer, X A
vb 窗体透明效果（控件不透明）
热门推荐
passport_daizi的博客
02-06 1万+
'窗体透明，控件不透明的代码： Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias
作vb 制作的透明控件
08-25
vb 实现控件透明'设置Text为透明 若想设置其它控件透明，可自选更改
【VB】窗体透明一：窗体透明，控件不透明
林毅洋
02-11 2077
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
VB6.0控件透明,TEXT透明
09-20
VB6.0控件透明,TEXT透明,通过颜色透明所有控件的背景。
vb.net2005窗体透明控件不透明
05-20
在VB.NET 2005中，开发人员可能会遇到一个常见的问题，那就是窗体透明设置后，窗体上的控件却依然保持不透明。这个问题在创建具有独特视觉效果的应用程序时尤为突出，因为透明窗体可以增加应用的美观度和用户体验。...
用vb简单实现窗体透明（控件不透明）
08-29
在VB（Visual Basic）编程环境中，我们可以利用API函数来实现窗体的透明效果，而让窗体上的控件保持不透明。这个功能在创建具有视觉吸引力的用户界面时非常有用，比如制作弹出式提示或者半透明背景的效果。下面我们...
vb6.0实现透明窗体
03-24
总的来说，VB6虽然没有内置的透明窗体支持，但通过巧妙地利用属性、事件和API函数，我们可以实现各种透明效果，使应用程序的用户界面更加生动有趣。在实际项目中，可以结合这些技术，根据设计需求创造出独特的透明...
VB 控件随窗体自动调整大小.rar
07-10
VB 控件随窗体自动调整大小，像窗口中的ListBox、Image、FileListBox、VB.Frame控件等，都可以随窗口的大小变化而变化，当用户拖动改变窗口大小时，这些控件的大小也会随之改变，这个功能的实现得益于自定义函数Form...
VB判断并列举窗体中控件的类型
05-18
在VB（Visual Basic）编程中，开发者经常需要处理窗体中的各种控件，例如检查控件的类型，以便根据不同的控件执行特定的操作。本文将详细介绍如何在VB中判断并列举窗体中控件的类型，以及如何自定义处理未包含的控件...
半透明窗口 vb6
12-07
vb6 实现透明窗口，重叠窗口时需要，调用API函数完成，可以实现半透明或全透明
vb实现窗体半透明（源码）
09-08
计算机编程，学习交流 vb实现窗体半透明（源码）
半透明,全透明设置(VB6.0源代码编写)
12-11
半透明,全透明设置(VB6.0源代码编写) 半透明设置代码：SetLayeredWindowAttributes Me.hwnd, 0, 255, LWA_ALPHA '注释:把窗体设置成半透明样式,第二个参数表示透明程度' '注释:取值范围0 --255, 为0时就是一个全透明的窗体了
VB窗体透明实现方法
hehui211的专栏
12-04 725
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★透明定义 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare
VB窗体透明的实现
键盘上的舞指
01-31 2099
'添加一个标准模块，代码如下： Option Explicit Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As L.
vb6.0做一个半透明窗体（全透）
ZXL工作室
05-06 4532
步骤一：打开VB建立一个窗体Form 步骤二：将窗体背景颜色设为：&HFF0000 步骤三：将下面代码粘贴到程序中： Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" () Declare Function GetWindowLong Lib "user32" Alias "GetWi
VB窗体半透明的方法
weixin_30813225的博客
02-08 119
'----------------------------- '使用说明： '1.新建一个标准exe工程 '2.放置1个CommandButton 控件(使用默认名) '3.把下面的代码复制进去就可以了 '----------------------------- Option Explicit 'Transparancy API's Private Declar...
透明窗体、控件
09-06 632
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
VB通过windows API实现窗口透明，部分透明，CreateRectRgn，CombineRgn
wf824284257的博客
12-06 2870
VB通过windows API实现窗口透明，部分透明1 效果图展示 2 相关API函数介绍Public Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long 创建一个由点（x1，y1）到（x2,y2）的矩形
评论 12
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

专注VB编程开发20年

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值