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
好厉害。。。又学习了!