[已解决]怎样做个“忙碌”或者说“请等待”的提示窗？
本帖最后由 hnfeng 于 2014-1-24 18:09 编辑初学AU3，请教了：
有时需要处理的数据较多时，或者类似从网上下载内容需要花费较长（十几秒、几十秒），或者刚开始运行程序需要初始化时，想有一个弹出的提示框，提示“请稍等”之类并置顶的信息，等待需要的代码运行结束后，会用一条命令关闭提示。我一直没找到。请高手指教。
下面是我在其他软件中抓的图，类似这样的：
真是难为你截这么多图了…
SplashTextOn("标题", "文本" [, 宽度 [, 高度 [, X 坐标 [, Y 坐标 [, 选项 [, "字体名" [, 字体大小 [, fontwt ]]]]]]]])
启动闪屏，处理完再
SplashOff()关闭闪屏就行了。 多谢版主。 XP 不显示等待条。。 也没有字 。。 SplashTextOn("请稍等", @LF & "正在...，请稍等……", 300, 100)
sleep(3000)
SplashOff()
没有“条”的，只有字。AU3没“条”功能，用这个也凑合了。 SplashTextOn("请稍等", @LF & "正在...，请稍等……", 300, 100)
sleep(3000)
SplashOff()
没有“条” ...
hnfeng 发表于 2014-1-25 16:52 http://www.autoitx.com/images/common/back.gif
你关键是要进度条，而不是“想有一个弹出的提示框，提示“请稍等”之类并置顶的信息”吗？
那你需要创建一个置顶窗口，GUICtrlCreateProgress 添加进度条控件，再添加Label文本信息。 撸主还不如直接写一个GUI来！ 而且你看看帮助文档的 oneventmode 可控下载 #include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
Example()
Func Example()
GUICreate("正在xxx，请稍等……", 290, 90, -1, -1)
Local $iProgress = GUICtrlCreateProgress(10, 10, 270, 20, $PBS_MARQUEE)
Local $iStart = GUICtrlCreateButton("开始 &S", 10, 60, 70, 25)
Local $iStop = GUICtrlCreateButton("停止 &t", 85, 60, 70, 25)
GUISetState(@SW_SHOW)
; Loop until the user exits.
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $iStart
GUICtrlSendMsg($iProgress, $PBM_SETMARQUEE, 1, 50)
Case $iStop
GUICtrlSendMsg($iProgress, $PBM_SETMARQUEE, 0, 50)
EndSwitch
WEnd
EndFunc ;==>Example
页:
[1]