單擊按鈕時如何顯示加載對話框

Question

當我按下窗口中的按鈕時，需要顯示「加載...」。我怎麼做到的？如果它是流媒體，就像點綴在一起，它會更好。

我只是包含單詞.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

創建包含一個彈出窗口文本加載...當你按下按鈕打開窗口，並在過程結束時關閉。

Answer 2

全局變量：

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="";