找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 请教如何做一个这样的窗口？[已解决]
返回列表 发新帖
查看: 4185|回复: 7

[GUI管理] 请教如何做一个这样的窗口？[已解决]

 火 [复制链接]
zysanjing1
发表于 2011-6-13 15:56:52 | 显示全部楼层 |阅读模式
本帖最后由 zysanjing1 于 2011-6-14 10:24 编辑

就像QQ一样的那种，窗口最小化时隐藏到右下角的图标，显示窗口时不显示右下角图标，
最小化时隐藏任务栏的窗口并且显示右下角图标，双击后还原窗口并隐藏右下角图标
感谢二楼

#include <GUIConstantsEx.au3>
#include <Constants.au3> 
Opt('TrayMenuMode', 1)  ;启用托盘菜单
TraySetState(2) 
$hForm = GUICreate('QQ缩小演示',200,500,@DesktopWidth - 210) ;创建界面
GUISetState() ;显示窗口
While 1
        $TrayMsg = TrayGetMsg() ;接收托盘消息
        Switch $TrayMsg
                Case $TRAY_EVENT_PRIMARYDOWN
            GUISetState(@SW_SHOW, $hForm) ;显示窗口
            TraySetState(2) ;隐藏托盘图标
        EndSwitch
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $GUI_EVENT_MINIMIZE
            GUISetState(@SW_HIDE, $hForm) ;显示窗口
            TraySetState(1) ;隐藏托盘图标
        EndSwitch
WEnd
任务栏

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
对太阳微笑
发表于 2011-6-14 00:39:16 | 显示全部楼层 
#include <GUIConstantsEx.au3>
#include <Constants.au3> 
Opt('TrayMenuMode', 1)  ;启用托盘菜单
TraySetState(2) 
$hForm = GUICreate('QQ缩小演示',200,500,@DesktopWidth - 210) ;创建界面
GUISetState() ;显示窗口
While 1
        $TrayMsg = TrayGetMsg() ;接收托盘消息
        Switch $TrayMsg
                Case $TRAY_EVENT_PRIMARYDOWN
            GUISetState(@SW_SHOW, $hForm) ;显示窗口
            TraySetState(2) ;隐藏托盘图标
        EndSwitch
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $GUI_EVENT_MINIMIZE
            GUISetState(@SW_HIDE, $hForm) ;显示窗口
            TraySetState(1) ;隐藏托盘图标
        EndSwitch
WEnd
应该是你要的那种！  你看看吧

评分

参与人数 1金钱 +30 收起 理由
zysanjing1 + 30

查看全部评分

回复

举报

love5173
发表于 2011-6-14 02:29:51 | 显示全部楼层
顶楼上一个，简单明了
回复

举报

zysanjing1
 楼主| 发表于 2011-6-14 10:37:46 | 显示全部楼层
回复 2# 对太阳微笑


    非常感谢

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Icon=未标题-1.ico
#AutoIt3Wrapper_OutFile=HuaTV2.9.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=华彩联盟 睿派克论坛共同设计
#AutoIt3Wrapper_Res_Description=华彩联盟网络电视超越版V2.9
#AutoIt3Wrapper_Res_FileVersion=2.9.690.2011
#AutoIt3Wrapper_Res_LegalCopyright=All Right Reserved roustar31设计
#AutoIt3Wrapper_Res_SaveSource=y
#AutoIt3Wrapper_Res_Field=CompanyName|http://www.huacolor.com
#AutoIt3Wrapper_Au3Check_Stop_OnWarning=y
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Region AutoIt3Wrapper 预编译参数(常用参数)
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <WinAPI.au3>
Global Const $SC_MOVE = 0xF010
If FileExists(@TempDir & "\huatv") = 1 Then
        DirRemove(@TempDir & "\huatv", 1)
        DirCreate(@TempDir & "\huatv")
Else
        DirCreate(@TempDir & "\huatv")
EndIf
$Form1 = GUICreate("华彩联盟网络电视超越版V2.9", 900, 548, -1, -1)
GUISetBkColor(0xFFFFFF)
FileInstall("ty.gif", @TempDir & "\huatv\ty.gif")
FileInstall("tl.jpg", @TempDir & "\huatv\tl.jpg")
FileInstall("tl1.jpg", @TempDir & "\huatv\tl1.jpg")
FileInstall("ws.jpg", @TempDir & "\huatv\ws.jpg")
FileInstall("ws1.jpg", @TempDir & "\huatv\ws1.jpg")
FileInstall("rp.jpg", @TempDir & "\huatv\rp.jpg")
FileInstall("rp1.jpg", @TempDir & "\huatv\rp1.jpg")
FileInstall("hd.jpg", @TempDir & "\huatv\hd.jpg")
FileInstall("hd1.jpg", @TempDir & "\huatv\hd1.jpg")
FileInstall("hc.jpg", @TempDir & "\huatv\hc.jpg")
FileInstall("hc1.jpg", @TempDir & "\huatv\hc1.jpg")
FileInstall("sf.jpg", @TempDir & "\huatv\sf.jpg")
FileInstall("sf1.jpg", @TempDir & "\huatv\sf1.jpg")
FileInstall("ty1.gif", @TempDir & "\huatv\ty1.gif")
$pic0 = GUICtrlCreatePic(@TempDir & "\huatv\tl.jpg", 0, 0, 900, 20)
GUICtrlSetCursor(-1, 0)
$Pic1 = GUICtrlCreatePic(@TempDir & "\huatv\ty.gif", 12, 28, 120, 31)
GUICtrlSetCursor(-1, 0)
$Pic2 = GUICtrlCreatePic(@TempDir & "\huatv\ws.jpg", 150, 26, 131, 34)
GUICtrlSetCursor(-1, 0)
$Pic3 = GUICtrlCreatePic(@TempDir & "\huatv\rp.jpg", 295, 26, 131, 34)
GUICtrlSetCursor(-1, 0)
$Pic4 = GUICtrlCreatePic(@TempDir & "\huatv\hd.jpg", 450, 28, 131, 34)
GUICtrlSetCursor(-1, 0)
$Pic5 = GUICtrlCreatePic(@TempDir & "\huatv\hc.jpg", 605, 28, 131, 34)
GUICtrlSetCursor(-1, 0)
$Pic6 = GUICtrlCreatePic(@TempDir & "\huatv\sf.jpg", 760, 28, 131, 34)
GUICtrlSetCursor(-1, 0)
$oIE = ObjCreate("Shell.Explorer.2")
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 66, 900, 485)
$oIE.navigate("http://tv.repaik.com")
GUISetState(@SW_SHOW, $Form1)

While 1
        $ID = GUIGetCursorInfo($Form1)
        If $ID[4] = $Pic1 Then
                GUICtrlSetImage($Pic1, @TempDir & "\huatv\ty1.gif")
        Else
                GUICtrlSetImage($Pic1, @TempDir & "\huatv\ty.gif")
        EndIf
        If $ID[4] = $pic0 Then
                GUICtrlSetImage($pic0, @TempDir & "\huatv\tl1.jpg")
        Else
                GUICtrlSetImage($pic0, @TempDir & "\huatv\tl.jpg")
        EndIf
        If $ID[4] = $Pic2 Then
                GUICtrlSetImage($Pic2, @TempDir & "\huatv\ws1.jpg")
        Else
                GUICtrlSetImage($Pic2, @TempDir & "\huatv\ws.jpg")
        EndIf
        If $ID[4] = $Pic3 Then
                GUICtrlSetImage($Pic3, @TempDir & "\huatv\rp1.jpg")
        Else
                GUICtrlSetImage($Pic3, @TempDir & "\huatv\rp.jpg")
        EndIf
        If $ID[4] = $Pic4 Then
                GUICtrlSetImage($Pic4, @TempDir & "\huatv\hd1.jpg")
        Else
                GUICtrlSetImage($Pic4, @TempDir & "\huatv\hd.jpg")
        EndIf
        If $ID[4] = $Pic5 Then
                GUICtrlSetImage($Pic5, @TempDir & "\huatv\hc1.jpg")
        Else
                GUICtrlSetImage($Pic5, @TempDir & "\huatv\hc.jpg")
        EndIf
        If $ID[4] = $Pic6 Then
                GUICtrlSetImage($Pic6, @TempDir & "\huatv\sf1.jpg")
        Else
                GUICtrlSetImage($Pic6, @TempDir & "\huatv\sf.jpg")
        EndIf
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        DirRemove(@TempDir & "\huatv", 1)
                        GUIDelete($GUIActiveX)
                        GUIDelete($Form1)
                        Exit
                Case $GUI_EVENT_PRIMARYDOWN
                        _SendMessage($Form1, $WM_SYSCOMMAND, $SC_MOVE + $HTCAPTION, 0)
                Case $Pic1
                        $oIE.navigate("http://www.netitv.com/a_flash/tysx_1_2/livelistTV/livePlayer.html")
                Case $Pic2
                        $oIE.navigate("http://www.topway.cn/livetv/livetv.jsp")
                Case $Pic3
                        $oIE.navigate("http://tv.repaik.com")
                Case $Pic4
                        $oIE.navigate("http://tv.zqredstar.com/kan")
                Case $Pic5
                        ShellExecute("http://www.huacolor.com")
                Case $Pic6
                        ShellExecute("http://www.repaik.com")
        EndSwitch
WEnd
回复

举报

yjw83523
发表于 2011-6-14 10:43:16 | 显示全部楼层
学学真的不错
回复

举报

yjw83523
发表于 2011-6-14 10:45:30 | 显示全部楼层
大家都学学我试了还可以没有想想的那样好
不过不错
回复

举报

学习一下
发表于 2011-6-14 14:27:20 | 显示全部楼层
很不错了，至于界面美化部分，要自己搞
回复

举报

fjvip
发表于 2012-7-9 21:51:53 | 显示全部楼层
请大家帮忙我修改一下以下代码，下面的代面只执行了一次“显示窗口时不显示右下角图标，
最小化时隐藏任务栏的窗口并且显示右下角图标，双击后还原窗口并隐藏右下角图标
”，再点最小化时，任务栏窗口仍然显示，请求帮助
; *** ACNWrapper开始添加 ***
#include <Constants.au3>
; *** ACNWrapper结束添加 ***
#NoTrayIcon
#region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Icon=D:\Program Files\autoit3\Aut2Exe\Icons\Build.ico
#PRE_Outfile=宽带智能提速.exe
#PRE_Compression=4
#PRE_Res_Comment=Http://www.fjzr.com
#PRE_Res_Description=智人网络
#PRE_Res_Fileversion=1.0.0.0
#PRE_Res_LegalCopyright=作 者:肖 斌
#PRE_Res_Field=说明|中国电信天翼宽带智能提速服务!
#PRE_Add_Constants=y
#PRE_AU3Check_Stop_OnWarning=y
#PRE_Run_Tidy=y
#endregion ;**** 参数创建于 ACNWrapper_GUI ****
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Opt('TrayMenuMode', 1) ;启用托盘菜单
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
TraySetState(2)
$hForm = GUICreate("中国电信天翼宽带智能提速服务", 680, 480, _
                (@DesktopWidth - 640) / 2, (@DesktopHeight - 480) / 2, _
                $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN) ;创建界面
GUICtrlCreateLabel("欢迎您使用由中国电信福建分公司为您提供的FTTH光纤到户 20M电信提速包智能提速服务！", 40, 15)

$GUIActiveX = GUICtrlCreateObj($oIE, 40, 40, 600, 330)
$GUI_Button_Back = GUICtrlCreateButton("后退", 10, 400, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("前进", 120, 400, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("主页", 230, 400, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("停止", 340, 400, 100, 30)
$GUI_Button_refresh = GUICtrlCreateButton("刷新", 450, 400, 100, 30)
$GUI_Button_quit = GUICtrlCreateButton("关闭", 560, 400, 100, 30)

GUICtrlCreateLabel("程序开发： 肖 斌", 565, 450)
GUISetState() ;显示窗口
_IENavigate($oIE, "http://ts.oooxm.com/speedup")

;最小化时隐藏任务栏的窗口并且显示右下角图标，双击后还原窗口并隐藏右下角图标
While 1
        $TrayMsg = TrayGetMsg() ;接收托盘消息
        Switch $TrayMsg
                Case $TRAY_EVENT_PRIMARYDOWN
                        GUISetState(@SW_SHOW, $hForm) ;显示窗口
                        nMsgmenu()
                        TraySetState(2) ;隐藏托盘图标
        EndSwitch
        
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $GUI_EVENT_MINIMIZE
                        GUISetState(@SW_HIDE, $hForm) ;显示窗口
                        TraySetState(1) ;隐藏托盘图标
        EndSwitch
WEnd

;中国电信天翼宽带智能提速服务
Func nMsgmenu()
        While 1
                
                $msg = GUIGetMsg()
                
                Select
                        Case $msg = $GUI_EVENT_CLOSE
                                ExitLoop
                        Case $msg = $GUI_Button_Home
                                _IENavigate($oIE, "http://ts.oooxm.com/")
                        Case $msg = $GUI_Button_Back
                                _IEAction($oIE, "Back")
                        Case $msg = $GUI_Button_Forward
                                _IEAction($oIE, "Forward")
                        Case $msg = $GUI_Button_Stop
                                _IEAction($oIE, "stop")
                        Case $msg = $GUI_Button_refresh
                                _IEAction($oIE, "refresh")
                        Case $msg = $GUI_Button_quit
                                _IEAction($oIE, "quit")
                                Exit
                EndSelect
                
        WEnd
        GUIDelete()
        Exit
EndFunc   ;==>nMsgmenu
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-11-18 21:28 , Processed in 0.084903 second(s), 27 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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