找回密码
 加入
搜索
查看: 1941|回复: 0

[GUI管理] 关于嵌入窗口 背景透明的问题, 哪位帮忙看看为什么嵌入窗口TitleForm 无法透明呢

[复制链接]
发表于 2014-3-10 23:26:40 | 显示全部楼层 |阅读模式
代码如下:TitleForm 嵌入到SubForm ,原意是想把TitleForm窗口透明,然后在title窗口中添加label实现滚动字幕,各位大侠帮忙看看啊

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
        $SubForm = GUICreate("Test Result",  @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
        GUISetBkColor ( 0xED74D8 )
        
        $ExpLabel = GUICtrlCreateLabel ("哈哈", 500, 150, 350, 400, 0x00000001)               ;分数说明
        GUICtrlSetFont(-1, 35, 900, 0, "华文新魏")
        GUICtrlSetColor(-1, 0x0000FF)
        
        $TitleForm = GUICreate("", 900, 150, 250,300, $WS_POPUPWINDOW)

        GUISetBkColor(0x0000FF)
        
        $Label1 = GUICtrlCreateLabel("Label1", 128, 56, 36, 17)
        GUICtrlSetFont(-1, 18, 200, 0, "华文新魏")
        GUISetState(@SW_SHOW, $SubForm)
        
        DllCall ( "user32.dll" , "int" , "SetParent" , "hwnd" ,  WinGetHandle($TitleForm), "hwnd" , WinGetHandle($SubForm))
        _winapi_SetLayeredWindowAttributes($TitleForm, 0x0000FF, 0, $LWA_COLORKEY) ;这个函数实现的效果,窗体透明
        GUISetState(@SW_SHOW, $TitleForm)
        
        
        While 1 ; 死循环,保证脚本不会退出
        ;GUISetBkColor ( RandomColor () ) ; 随机窗口背景颜色
        ; 修改窗口背景颜色
        Sleep (30000) ; 睡眠 3 秒

        WEnd
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-12-23 23:55 , Processed in 0.075387 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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