vb6.0做一个半透明窗体(全透)
来源:互联网 发布:淘宝怎么截图发给别人 编辑:程序博客网 时间:2024/06/06 12:59
步骤一:打开VB建立一个窗体Form
步骤二:将窗体背景颜色设为:&HFF0000
步骤三:将下面代码粘贴到程序中:
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" () Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" () Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Declare Function SetLayeredWindowAttributes Lib "user32" () 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 Const GWL_EXSTYLE = () Const GWL_EXSTYLE = (-20) Private Const LWA_ALPHA = &H2 Private Const LWA_COLORKEY = &H1 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
运行结果如下:
- vb6.0做一个半透明窗体(全透)
- 半透明窗体
- 半透明窗体
- VB6做一个自动登录路由器
- [vb6.0] 模拟鼠标操作, 一个自用多次单击类,可单击窗体或屏幕
- 揭开半透明窗体的秘密(转)
- 一个VB6.0学习网站
- 做一个Windows窗体版的DOS分析器(收藏)
- vb6 字符串调用窗体
- VB6.0做特别版网马
- vb6.0做LCD电子时钟
- 用VB6.0做的自动更新程序
- 用VB6.0做的自动更新程序
- vb6.0 做的ocx 安全接口
- 半透明窗体的制作
- 制作半透明窗体
- 半透明的窗体
- 透明,半透明窗体
- java 自学日志【九】---多线程
- ubuntu11.10开机使用root账户启动terminal
- Android之将logcat信息保存本地
- NSIS查找和杀进程详解
- 阿里巴巴2013实习生笔试题精选2道算法题
- vb6.0做一个半透明窗体(全透)
- Windows API一日一练(70)GetSystemTime和GetLocalTime函数
- 视频流中的DTS/PTS
- IPV6 路由设置
- ubuntu mysql-5.1.62源码安装
- Uva 11300 By ACReaper
- php对文件的操作
- 创建Handler时,绑定到(指定线程的)消息循环
- 通过对系统分派表的直接还原,防御内核本地API钩子(翻译) 分享