==Msgbox可以显示倒计时吗？==在线等！

kn007

回复  kn007


    我看了下，那个是自建的Gui，不是系统的Msgbox()，呵呵~
afan 发表于 2009-11-27 23:12

    呵呵，我知道，一直懒得写，也不会写。。。
想搞来玩玩那

asionwu

回复 29# kn007

原的没了 只有修改过的

871224

哈哈  不错

kn007

回复
asionwu 发表于 2009-11-27 23:22

    若只是汉化，那就没事。。。

asionwu

回复 34# kn007
汉化和修正了错误

kn007

回复  kn007
汉化和修正了错误
asionwu 发表于 2009-11-27 23:26

    修正了什么错误啊？！

catcher

好东东，等着发布

ajian55

哈哈，方法好多

ahkang

论坛上搜来稍微修改了一下下的，希望对楼主有点帮助：
效果如图所示：


代码如下：
#InClude <ButtonConstants.Au3>
#InClude <GUIConstantsEx.Au3>
#InClude <ProgressConstants.Au3>
#InClude <StaticConstants.Au3>
#InClude <WindowsConstants.Au3>

Global $Config = @TempDir & '\Config.InI'
If FileExists($Config)=False Then IniWrite($Config,'设置','倒计时','60')
Global $Time = IniRead($Config,'设置','倒计时','')
If $Time='' Then $Time=30
;----------------------------------------------------------------------------
$i=$Time
;----------------------------------------------------------------------------
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate('倒计时测试窗口', 350, 172, Default, Default)
$Label1 = GUICtrlCreateLabel($Time & ' 秒后将进入主程序!', 56, 32, 280, 28)
GUICtrlSetFont(-1, 18, 400, 0, '楷体_GB2312')
$Progress1 = GUICtrlCreateProgress(8, 88, 333, 17)
$Button1 = GUICtrlCreateButton('确定(&Y) → 还有 '& $Time & ' 秒', 53, 128, 158, 25, 0)
$Button2 = GUICtrlCreateButton('退出(&X)', 210, 128, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibRegister('_Time', 1000)
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE, $Button2
                        Exit
                Case $Button1
                        ExitLoop
        EndSwitch
        If $Time <= 0 Then ExitLoop
WEnd
Main()
Exit

Func _Time()
       $Time -= 1
        GUICtrlSetData($Label1, $Time & ' 秒后将进入主程序!')
                GUICtrlCreateButton('确定(&Y) → 还有 '& $Time & ' 秒', 53, 128, 158, 25, 0)
        GUICtrlSetData($Progress1, ($i - $Time) / $i * 100)
        If $Time <= 0 Then AdlibUnRegister('_Time')
EndFunc   ;==>_Time

Func Main()
        Run(@SystemDir&'\NotePad.eXe')
EndFunc   ;==>Main

改动说明：增加了位于系统临时目录的配置文件 Config.ini，从中读取预设值，增设变量 $i=$Time(预定时间值) 可意随意设定倒计时间值，对 GUI 界面作了一点点调整。

ahkang

同样也有修改成 UDF 了的，效果如图：


UDF 调用脚本如下：

#InClude "Count_Down.Au3"

$Time=30
$i=$Time
$Caption='倒计时的 UDF 函数测试窗口'
$Font='楷体_GB2312'
;$FontColor=0x008000 ;设置字体为绿色
$FontColor=0xFF0000 ;设置字体为红色
$Program=@WindowsDir&'\NotePad.eXe'

_CountDown()

UDF 文件内容如下（提示：UDF 文件名为“Count_Down.Au3”）：

#InClude <ButtonConstants.Au3>
#InClude <GUIConstantsEx.Au3>
#InClude <ProgressConstants.Au3>
#InClude <StaticConstants.Au3>
#InClude <WindowsConstants.Au3>

Global $Time
Global $i
Global $Program
Global $Form1
Global $Label1
Global $Progress1
Global $Button1
Global $Button2
;----------------------------------------------------------------------------
Global $Caption
Global $Font
Global $FontColor
Global $YES='确定(&Y)'
Global $Exit='退出(&X)'
Func _CountDown()
;----------------------------------------------------------------------------
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate($Caption, 350, 172, Default, Default)
$Label1 = GUICtrlCreateLabel($Time & ' 秒后将进入主程序!', 56, 32, 280, 28)
GUICtrlSetFont(-1, 18, 400, 0, $Font)
GUICtrlSetColor(-1, $FontColor)
$Progress1 = GUICtrlCreateProgress(8, 88, 333, 17)
$Button1 = GUICtrlCreateButton($YES&' → 还有 '& $Time & ' 秒', 53, 128, 158, 25, 0)
$Button2 = GUICtrlCreateButton($Exit, 220, 128, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;----------------------------------------------------------------------------
AdlibRegister('_Time', 1000)
;----------------------------------------------------------------------------
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE, $Button2
                        Exit
                Case $Button1
                        ExitLoop
        EndSwitch
        If $Time <= 0 Then ExitLoop
WEnd
Main()
Exit
EndFunc
;----------------------------------------------------------------------------
Func _Time()
                $Time -= 1
                $BtnText=' → 还有 '& $Time & ' 秒'
                $LabText=$Time & ' 秒后将进入主程序!'
        GUICtrlSetData($Label1, $LabText)
                GUICtrlSetData($Button1,$YES&$BtnText)
        GUICtrlSetData($Progress1, ($i - $Time) / $i * 100)
        If $Time <= 0 Then AdlibUnRegister('_Time')
EndFunc   ;==>_Time
;----------------------------------------------------------------------------
Func Main()
        Run($Program)
EndFunc   ;==>Main

ahkang

回复  menfan1


    已经写成UDF了，能在MsgBox()消息框窗口或标题栏动态显示倒计时，并在倒计时结束时 ...
afan 发表于 2009-11-27 21:24

这样确实可以达到在 MsgBox 对话框中显示倒计时的目的，只不过感觉窗口时间每变化一秒窗口就闪动一次，同时还会发出“咚…咚…”的提示音哩！个人认为还是 GUI 窗口要好些，还可以加进度条显示呢。

afan

回复 41# ahkang


    没有咚咚声（有的话像什么。。。），窗口也不闪。。。

afan

回复 25# menfan1


    已发布了此UDF，请移步：
http://www.autoitx.com/forum.php?mod=viewthread&tid=11196

xlcwxl

传送门：http://www.autoitx.com/forum.php?mod=viewthread&tid=11196
afan大哥专门为你开发的udf

xlcwxl

http://www.autoitx.com/forum.php?mod=viewthread&tid=11196
金钱交给afan
他专为你开发的一个udf