找回密码
 加入
搜索
查看: 1521|回复: 7

au3能不能做异形窗口

[复制链接]
发表于 2008-8-29 08:32:41 | 显示全部楼层 |阅读模式
如题能不能把窗口做成这样子

[ 本帖最后由 xkbin 于 2008-8-29 17:18 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2008-8-29 09:19:11 | 显示全部楼层
以前在论坛上看过,好像调用API函数可以实现你的要求,但我是菜菜,给你写不出来!
发表于 2008-8-29 09:51:05 | 显示全部楼层
弹出式分层窗口,加背景图片,图片中白色部分自动透明掉。然后再在上面做控件应该就行了。

高级的可以用“设定层属性”那个api,那样可以指定透明色。

要注意的是:移动这样的窗口可能会很吃内存、cpu(au3自身毛病),而且写这样的窗口很烦。
发表于 2008-8-29 12:51:31 | 显示全部楼层
你可以看这里
http://www.autoitx.com/forum.php ... &extra=page%3D2

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2008-8-29 17:06:57 | 显示全部楼层

回复 4# gooker 的帖子

太谢谢了,
基于上面的效果,以下内容在我机子无效果(我的AU3版本是:3.2.13.7.1)
$Button1 = GUICtrlCreateButton("Select PNG Folder", ($PNG_GUI[2]-115)/2, $PNG_GUI[3]-20, 115, 25, 0)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                       
                Case $Button1
                        $var = FileSelectFolder("请选择一个包含PNG图片的文件夹:", "",1, @WorkingDir)
                        If $var<> "" Then
                                FileChangeDir($var)
                                $search = FileFindFirstFile("*.png")  
                                If $search = -1 Then
                                        MsgBox(0, "错误", "文件不存在!")
                                Else
                                        While 1
                                                $file = FileFindNextFile($search)
                                                If @error Then ExitLoop
                                                $pos = WinGetPos ($PNG_GUI[0],"")
                                                GUIDelete ($PNG_GUI[0])
                                               
                                                $PNG_GUI = CreateTransparentGUI("",$file,0,240,0,100,$pos[0],$pos[1])
                                                $Label1 = GUICtrlCreateLabel("File Name : "&$file, 0, $PNG_GUI[3]-20, $PNG_GUI[2], 25)
                                               
                                                GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
                                                GUICtrlSetColor(-1, 0xFF0000)
                                                GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
                                                Sleep(2000)
                                        WEnd
                                        GUICtrlDelete($Label1)
                                        $Button1 = GUICtrlCreateButton("Select PNG Folder", ($PNG_GUI[2]-115)/2, $PNG_GUI[3]-20, 115, 25, 0)
                                EndIf
                                FileClose($search)
                        EndIf
        EndSwitch
WEnd

[ 本帖最后由 xkbin 于 2008-8-29 18:02 编辑 ]
发表于 2008-8-29 23:00:56 | 显示全部楼层
我的3.2.11.1通过了,很好,比用pic控件好很多。
png的alpha通道不仅仅是比bmp的magicpink、gif的透明色好一点,而是
    alpha通道 = 王道
好!
发表于 2009-7-7 21:08:34 | 显示全部楼层
顶一下!感觉很强大!







摩托罗拉对讲机
发表于 2009-7-9 14:42:47 | 显示全部楼层
真好看,很强大啊
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-5-2 11:06 , Processed in 0.075794 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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