VB窗体透明实现方法
来源:互联网 发布:mac a1181 编辑:程序博客网 时间:2024/04/27 21:00
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★透明定义
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" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
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" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
'透明定义的声明
'透明启动'''
'Dim rtn As Long
Me.BackColor = RGB(255, 255, 255)
BorderStyle = 0
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, RGB(255, 255, 255), 100, LWA_COLORKEY
'透明启动'''
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★透明定义
- VB窗体透明实现方法
- vb实现透明窗体
- C#实现按钮透明,窗体透明的方法
- vb.net简单实现透明窗体显示出背景透明的png
- mfc窗体透明方法
- 【VB】窗体透明一:窗体透明,控件不透明(穿过)
- 【VB】窗体透明三:窗体、控件变透明
- 透明窗体的实现
- 实现透明窗体
- VC++实现透明窗体
- Delphi实现透明窗体
- Qt 透明窗体实现
- 透明窗体的实现
- 透明窗体的实现
- C#实现透明窗体
- Qt 透明窗体实现
- 实现透明窗体
- Swing 透明窗体实现
- 解决中文乱码
- hdu 4473 Exam
- 各种编码的来历
- Linux rpm 命令参数
- style和currentStyle使用
- VB窗体透明实现方法
- VB中控制窗体位置方法
- servlet监听
- matlab
- Map基本用法
- Strcat,strcpy,strcmp,Strlen函数原型
- parted扩大ext4分区
- linux页面回收浅析
- VB中操作剪粘板方法