298311657 发表于 2013-2-25 21:18:48

窗体透明效果（控件不透明）


;无意中看到了一份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

weeks1 发表于 2013-2-26 08:02:31

感谢分享，学习学习。

fangbaiyu 发表于 2013-3-4 15:33:59

这么委婉的分享谢谢了

fanan_666 发表于 2014-1-3 16:52:37

谢谢分享！

rogerabc 发表于 2014-1-4 19:19:40

学习一下多谢分享

joyran 发表于 2014-1-4 20:05:04

支持楼主！！！

fanan_666 发表于 2014-1-4 21:36:12

谢谢分享！

bingshen2014 发表于 2014-2-13 15:30:14

感谢楼主分享，辛苦了。

boliang 发表于 2014-2-22 23:10:52

回复 1# 298311657
辛苦了！
谢谢楼主的分享！

lorrell 发表于 2014-4-3 13:53:26

回复 1# 298311657 学习学习 多谢分享

shusanxi 发表于 2019-8-10 10:25:36

多谢分享,朕已阅

zmdzhxj 发表于 2019-8-17 21:45:14

值得思考，学习

yanchu1981 发表于 2020-3-3 19:49:17

学习学习，不错

zilongasd 发表于 2020-4-28 10:55:18

控件能透明处理吗

Xxkwwz 发表于 2020-7-28 20:29:53

感谢分享，学习学习
页: [1] 2
查看完整版本: 窗体透明效果（控件不透明）