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

Question

当我按下窗口中的按钮时，我需要显示“正在加载...”。我该怎么做？如果它是一个流媒体，就像点混合它会更好。

我只是尝试使用包含单词“Loading ...”的.txt文件作为FileOpenex()函数，但它不起作用..

integer li_FileNum
string ls_Emp_Input
li_FileNum = FileOpen("C:\Users\Exactus\Desktop\New.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 ...当您按下按钮打开窗口时，在该过程结束时关闭。