找回密码  加入

AUTOIT CN

搜索
查看: 5219|回复: 15

[原创] 窗体透明效果(控件不透明)

[复制链接]
发表于 2013-2-25 21:18:48 | 显示全部楼层 |阅读模式
[au3]
;无意中看到了一份vb实现这个的代码,转成au3来实现,备份到论坛,以防后用。
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("窗体透明效果(控件不透明)", 623, 442, -1, -1, -1, $WS_EX_LAYERED)
$Label1 = GUICtrlCreateLabel("Label1", 128, 56, 36, 17)
$Edit1 = GUICtrlCreateEdit("", 128, 88, 89, 81)
GUICtrlSetData(-1, "Edit1")
$Button1 = GUICtrlCreateButton("Button1", 128, 184, 89, 41)
$List1 = GUICtrlCreateList("", 248, 24, 137, 201)
GUISetBkColor(0xFF0000)
_winapi_SetLayeredWindowAttributes ($Form1, 0xFF0000, 0, $LWA_COLORKEY);这个函数实现的效果
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

[/au3]
发表于 2013-2-26 08:02:31 | 显示全部楼层
感谢分享,学习学习。
发表于 2013-3-4 15:33:59 | 显示全部楼层
这么委婉的分享  谢谢了
发表于 2014-1-3 16:52:37 | 显示全部楼层
谢谢分享!
发表于 2014-1-4 19:19:40 | 显示全部楼层
学习一下  多谢分享
发表于 2014-1-4 20:05:04 | 显示全部楼层
支持楼主!!!
发表于 2014-1-4 21:36:12 | 显示全部楼层
谢谢分享!
发表于 2014-2-13 15:30:14 | 显示全部楼层
感谢楼主分享,辛苦了。
发表于 2014-2-22 23:10:52 | 显示全部楼层
回复 1# 298311657
辛苦了!
谢谢楼主的分享!
发表于 2014-4-3 13:53:26 | 显示全部楼层
回复 1# 298311657 学习学习 多谢分享
发表于 2019-8-10 10:25:36 来自手机 | 显示全部楼层
  多谢分享,朕已阅
发表于 2019-8-17 21:45:14 | 显示全部楼层
值得思考,学习
yanchu1981 该用户已被删除
发表于 2020-3-3 19:49:17 | 显示全部楼层
学习学习,不错
发表于 2020-4-28 10:55:18 | 显示全部楼层
控件能透明处理吗
发表于 2020-7-28 20:29:53 | 显示全部楼层
感谢分享,学习学习
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2020-10-27 08:26 , Processed in 0.218750 second(s), 19 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表