newuser 发表于 2011-12-20 09:27:36

回复 1# xiaochuan
好久没学AU3了,支持!

pp648852 发表于 2011-12-27 19:45:36

感谢分享,先收藏,

49666684 发表于 2012-1-10 20:42:32

顶顶顶不错不错!

风行者 发表于 2012-1-15 17:34:24

这样效率会好点
#include <StaticConstants.au3>
Global $S
$Form1 = GUICreate('AU3 Good!!', 500, 400, -1, -1, $WS_POPUP)
GUISetBkColor(0x999999)
GUISetFont(11, 400, 0, 'Verdana')
$Label1 = GUICtrlCreateLabel('AU3 Good!!', 0, 0, 460, 40, $SS_CENTERIMAGE, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1, 0x666666)
GUICtrlSetColor(-1, 0xEFEFEF)
$Label2 = GUICtrlCreateLabel('×', 460, 0, 40, 40, $SS_CENTER)
GUICtrlSetBkColor(-1, 0x666666)
GUICtrlSetColor(-1, 0xEFEFEF)
GUICtrlSetFont(-1, 20, 400, 0, 'Verdana')
GUISetState(@SW_SHOW)
While 1
        $info = GUIGetCursorInfo()
        Switch $info
                Case $Label2
                        If $S = True Then
                                GUICtrlSetColor($Label2, 0xFF0000)
                                $S = False
                        EndIf
                Case Else
                        If $S = False Then
                                GUICtrlSetColor($Label2, 0xFFFFFF)
                                $S = True
                        EndIf
        EndSwitch
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Label2
                        Exit
        EndSwitch
WEnd

shuangsexing 发表于 2012-1-17 17:48:32

好东西~!!!

shuangsexing 发表于 2012-1-17 17:48:43

学习学习~!!!!!!!!!!!!!!1

shuangsexing 发表于 2012-1-17 17:49:30

{:face (317):}之前就没想过,这样还可以搞~!!

jtw 发表于 2012-2-12 20:11:15

路过,学习了

mjljy2012 发表于 2012-3-10 18:22:49

{:face (301):}

penguinl 发表于 2012-5-15 02:03:15

这个样式还真不错啊!学习一下!

syhw2222 发表于 2012-6-6 16:15:05

19#的东东,做的确实不错!

A3fan 发表于 2012-10-16 12:22:21

很好的代码

骗子 发表于 2013-3-11 21:54:16

照猫画虎的瞎改了一下

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
Global $S
$Form1 = GUICreate('AU3 Good!!', 500, 400, -1, -1, $WS_POPUP)
GUICtrlSetDefBkColor(0x666666) ;默认
GUICtrlSetDefColor(0xEFEFEF) ;默认
GUISetBkColor(0x999999)
GUISetFont(11, 400, 0, 'Verdana')
$Label1 = GUICtrlCreateLabel('AU3 Good!!', 0, 0, 460, 40, $SS_CENTERIMAGE, $GUI_WS_EX_PARENTDRAG)
$Label2 = GUICtrlCreateLabel('×', 460, 0, 40, 40, $SS_CENTER)
GUICtrlSetFont(-1, 20, 400, 0, 'Verdana')
GUISetState(@SW_SHOW)
While 1
        $info = GUIGetCursorInfo()
        If Not @error Then ;加个判断,否则窗口不激活的时候会报错
                Switch $info
                        Case $Label2
                                If $S = True Then
                                        GUICtrlSetColor($Label2, 0xFF0000)
                                        $S = False
                                EndIf
                        Case Else
                                If $S = False Then
                                        GUICtrlSetColor($Label2, 0xFFFFFF)
                                        $S = True
                                EndIf
                EndSwitch
        EndIf
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Label2
                        Exit
        EndSwitch
WEnd



fccfx8 发表于 2013-6-19 11:17:36

怎么没有最小化按钮呢?

old_snoopy 发表于 2013-10-2 21:53:54

好厉害。。。又学习了!
页: 1 [2] 3
查看完整版本: 去掉窗口标题栏,以前版主发过用图片做的。