heroxianf 发表于 2017-2-10 10:52:30

闪烁 发帖备份一下

本帖最后由 heroxianf 于 2017-7-6 13:42 编辑

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $test = True

$hGui = GUICreate("闪烁测试", 615, 438, 676, 314)
$Label1 = GUICtrlCreateLabel("背景闪烁", 102, 96, 198, 17)
$Input1 = GUICtrlCreateInput("", 102, 141, 196, 21)
GUISetState(@SW_SHOW)

AdlibRegister("test", 500) ;定时清理内存

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        AdlibUnRegister("test")
                        Exit
        EndSwitch
WEnd

Func test()
        If GUICtrlRead($Input1) = "" Then ;检测输入框 空就闪烁 不空停止
               
                If $test Then
                        GUICtrlSetBkColor($Label1, 0xDF5D26)
                        $test = False
                Else
                        GUICtrlSetBkColor($Label1, 0x81C0C0)
                        $test = True
                EndIf
               
        Else
               
                GUICtrlSetBkColor($Label1, $GUI_BKCOLOR_TRANSPARENT) ;设置背景色为默认色
               
        EndIf
EndFunc

haijie1223 发表于 2017-2-10 20:16:46

这个应该用回调函数更好一些

heroxianf 发表于 2017-2-10 20:27:52

回复 2# haijie1223

发哥有更好的方法 求分享啊,我想我需要的时候才让它不停的检查,自己可以关闭这个检测。我那样不能自己关闭,只能一直检查。

haijie1223 发表于 2017-2-10 22:37:30

我啥也不懂,就是个打酱油的

heroxianf 发表于 2017-2-10 23:30:55

回复 4# haijie1223


   发哥,别啊!!!!!!!
页: [1]
查看完整版本: 闪烁 发帖备份一下