窗体上显示时间（如何动态显示）的问题

feicuiboy

#Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_UseAnsi=y         ;编码
#AutoIt3Wrapper_Icon=           ;图标
#AutoIt3Wrapper_OutFile=         ;输出文件名
#AutoIt3Wrapper_OutFile_Type=exe       ;文件类型
#AutoIt3Wrapper_Compression=4        ;压缩等级
#AutoIt3Wrapper_UseUpx=y          ;使用压缩
#AutoIt3Wrapper_Res_Comment=         ;注释
#AutoIt3Wrapper_Res_Description=       ;详细信息
#AutoIt3Wrapper_Res_Fileversion=       ;文件版本
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p    ;自动更新版本  
#AutoIt3Wrapper_Res_LegalCopyright=       ;版权
;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%  ;自定义资源段
;#AutoIt3Wrapper_Run_Tidy=                       ;脚本整理
;#AutoIt3Wrapper_Run_Obfuscator=            ;代码迷惑
;#AutoIt3Wrapper_Run_AU3Check=         ;语法检查
;#AutoIt3Wrapper_Run_Before=         ;运行前
;#AutoIt3Wrapper_Run_After=         ;运行后
#EndRegion AutoIt3Wrapper 预编译参数设置完成
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
AutoIt 版本: 3.2.13.7 (第一版)
脚本作者:
Email:
QQ/TM:
脚本版本:
脚本功能:
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
#include <AVIConstants.au3>
#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <IPAddressConstants.au3>
#include <ListBoxConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
[email=$date77976727=@YEAR]$date77976727=@YEAR[/email]&"年 "[email=&@MON]&@MON[/email]&"月 "[email=&@MDAY]&@MDAY[/email]&"日 "
[email=$time77976727=@HOUR]$time77976727=@HOUR[/email]&"点"[email=&@MIN]&@MIN[/email]&"分"[email=&@SEC]&@SEC[/email]&"秒"
$hour77976727=$date77976727&$time77976727

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate($hour77976727, 633, 447, 193, 125, -1, $WS_EX_LAYERED)
GUISetIcon("D:\Document And Settings2\feicuiboy\Desktop\GoLive.ico")
$Edit1 = GUICtrlCreateEdit("", 0, 0, 185, 81, -1, 0)
GUICtrlSetData(-1, $hour77976727)
$Checkbox1 = GUICtrlCreateCheckbox($hour77976727, 368, 32, 97, 41)
$Radio1 = GUICtrlCreateRadio($hour77976727, 368, 88, 97, 57)
$List1 = GUICtrlCreateList($hour77976727, 296, 192, 81, 58)
$Date1 = GUICtrlCreateDate($hour77976727, 192, 216, 201, 65)
$Avi1 = GUICtrlCreateAvi("No File", -1, 88, 168, 65, 57)
$Pic1 = GUICtrlCreatePic("", 136, 336, 169, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
WEnd




我利用自带的宏写的如上命令，但是显示的时间不会变化（秒数不会变化），如何让窗体能动态的现实系统时间（秒数变化），求一个思路，谢谢

menfan1

要放循环里才行哦

afan

给你个例子：

#include <Date.au3>
#include <GUIConstantsEx.au3>

$Form1 = GUICreate("Form1", 300, 200)
$Label1 = GUICtrlCreateLabel(_Now(), 100, 80)
GUISetState()

While 1
        $LbR = GUICtrlRead($Label1)
        $Nw = _Now()
        If $Nw <> $LbR Then GUICtrlSetData($Label1, $Nw)
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd

顽固不化

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 535, 96, 260, 386)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Dim $WK[8]=[8,"星期日","星期一","星期二","星期三","星期四","星期五","星期六"]
AdlibRegister("_Timer")
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd
Func _Timer()
        $BT=@YEAR&"年"&@MON&"月"&@MDAY&"日("&$WK[@WDAY]&")  "&@HOUR&":"&@MIN&":"&@SEC
        WinSetTitle($Form1,"",$BT)
EndFunc

sxd

最好注明 3.3.1.1 因为我发现很多人不是新版本

feicuiboy

给你个例子：#include
#include

$Form1 = GUICreate("Form1", 300, 200)
$Label1 = GUICtrlCreateLabel(_Now(), 100, 80)
GUISetState()

While 1
        $LbR = GUICtrlRead($Label1)
        $Nw = _Now()
        If $Nw ...
afan 发表于 2009-8-31 13:35

很好的思路，学习了，现在才明白了以前人家说的程序，重要的是思路，而不在于程序本身

menfan

还有实现是一回事，效率是另一回事啦。。