VB 半透明窗体
2015-12-09 11:55
721 查看
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 Private Sub Form_Load() Dim rtn As Long rtn = GetWindowLong(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, 0, 100, LWA_ALPHA End Sub
相关文章推荐
- 利用VBS脚本删除磁盘中的空文件和空文件夹
- VBA写excel宏
- powerdesigner导出字段信息的vba脚本
- 怎样用VB编写.DLL动态链接库文件
- 怎样用VB编写.DLL动态链接库文件
- 怎样用VB编写.DLL动态链接库文件
- Microsoft VBScript 运行时错误 错误 '800a0005'
- vb.net下打印清单示例(连续纸和固定纸张打印)
- Convert C# to VB.NET
- 关于VB选择打印机,并打印
- VB.NET多线程入门
- 用Visual Basic设计手机短信收发程序
- 用Visual Basic设计手机短信收发程序
- PSI_SI
- vbs版的音乐播放器
- VB6 正则表达式提取内容
- EXCEL VBA 导入图片自适应大小
- VB.NET读取Excel工作表信息
- 用Visual Basic设计手机短信收发程序
- 使用swoole进行消息推送通知,配合vb.net进行客户端开发一样爽[开发篇]