如何在单击按钮时显示加载对话框

Question

当我按下窗口中的按钮时，我需要显示"Loading…"我怎样才能做到呢?如果是流状的，像点一样混在一起会更好。

我只是尝试用一个.txt文件，其中包含单词"Loading…"作为FileOpenex()函数，但它不起作用…

---

integer li_FileNum
string ls_Emp_Input
li_FileNum = FileOpen("C:UsersExactusDesktopNew.txt", &
TextMode!)
FileReadEx(li_FileNum, ls_Emp_Input)

Answer 1

全局变量:

integer  gi_max_dots=7;
string  gs_dots;

您可以在窗口上使用预定义的timer()事件。当你想让它开始时，输入

timer(1); //This will trigger timer  after each second interval 
          //so try changing the loading text there.

在timer()事件中使用此代码应该可以工作:

if  gi_max_dots > len(gs_dots)  then 
    gs_dots=gs_dots+".";
else
    gs_dots="";
end if

我在这里假设了一个静态文本控件来显示这个状态。

st_1.text="Loading"+gs_dots;

当需要停止定时器事件

Timer(0);
st_1.text="";

Answer 2

创建一个包含文本Loading…当您按下按钮时，打开窗口，并在过程结束时关闭。