[已解决]怎样做个“忙碌”或者说“请等待”的提示窗？

hnfeng

初学AU3，请教了：
有时需要处理的数据较多时，或者类似从网上下载内容需要花费较长（十几秒、几十秒），或者刚开始运行程序需要初始化时，想有一个弹出的提示框，提示“请稍等”之类并置顶的信息，等待需要的代码运行结束后，会用一条命令关闭提示。我一直没找到。请高手指教。

下面是我在其他软件中抓的图，类似这样的：

afan

真是难为你截这么多图了…
SplashTextOn("标题", "文本" [, 宽度 [, 高度 [, X 坐标 [, Y 坐标 [, 选项 [, "字体名" [, 字体大小 [, fontwt ]]]]]]]])
启动闪屏，处理完再
SplashOff()关闭闪屏就行了。

hnfeng

多谢版主。

ckmxtk

XP 不显示等待条。。 也没有字 。。

hnfeng

SplashTextOn("请稍等", @LF & "正在...，请稍等……", 300, 100)
sleep(3000)
SplashOff()

没有“条”的，只有字。AU3没“条”功能，用这个也凑合了。

afan

SplashTextOn("请稍等", @LF & "正在...，请稍等……", 300, 100)
sleep(3000)
SplashOff()

没有“条” ...
hnfeng 发表于 2014-1-25 16:52

    你关键是要进度条，而不是“想有一个弹出的提示框，提示“请稍等”之类并置顶的信息”吗？
那你需要创建一个置顶窗口，GUICtrlCreateProgress 添加进度条控件，再添加Label文本信息。

sdlyfjx

撸主还不如直接写一个GUI来！   而且你看看帮助文档的 oneventmode 可控下载

hnfeng

#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