1，建一 popup! 型別的視窗，放上你的gif，儲存的名稱如 w_base_wait ；
2，將下面的**另存為 n_cst_thread_basewait.sru ，再在你的 pbl 上右鍵 import... 得到乙個名為n_cst_thread_basewait 的 custom class ；
$pbexportheader$n_cst_thread_basewait.sru
$pbexportcomments$開啟或關閉等待視窗的執行緒
forward
global type n_cst_thread_basewait from nonvisualobject
end type
end forward
global type n_cst_thread_basewait from nonvisualobject
end type
global n_cst_thread_basewait n_cst_thread_basewait
type prototypes
end prototypes
type variables
end variables
forward prototypes
public function integer of_close_wait ()
public function integer of_open_wait ()
end prototypes
public function integer of_close_wait ();if isvalid(w_base_wait) then close(w_base_wait)
return 0
end function
public function integer of_open_wait ();if not isvalid(w_base_wait) then open(w_base_wait)
return 0
end function
on n_cst_thread_basewait.create
call super::create
triggerevent( this, "constructor" )
end on
on n_cst_thread_basewait.destroy
triggerevent( this, "destructor" )
call super::destroy
end on
3，在應用裡定義乙個全域性變數 n_cst_thread_basewait gwait 並新增乙個名為 of_cthread_wait 的函式，返回integer：
errorreturn err
err = sharedobjectregister( "n_cst_thread_basewait", "nwait")
if err <> success! then
messagebox('', '註冊共享物件失敗！ ', stopsign!)
return -1
end if
err = sharedobjectget( "nwait", gwait)
if err <> success! then
messagebox('', '從註冊的共享物件生成執行緒失敗！ ', stopsign)
return -1
end if
sharedobjectunregister('nwait')
if isvalid(gwait) then
return 0
else
return -1
end if
5，在需要開啟等待視窗的地方寫：gwait.post of_open_wait()， 在需要關閉的地方寫：gwait.post of_close_wait()
如：在資料視窗的retrievestart事件中寫：gwait.post of_open_wait()，在retrieveend事件中寫gwait.post of_close_wait()
視窗載入時等待動畫
開始想要用gif格式的動畫作為視窗載入時的動畫，可是試了之後沒辦法去除的空白，所以網上搜了搜重寫的控制項，發現下面這個挺好用的，不過樣式只有一種但是具體資訊可以自己設定。首先要先建立乙個控制項類，這個類照搬就行，加點命名空間，沒有太大變化。namespace lodingcircle endregi...
動態建立資料視窗
動態建立資料視窗 string ls sql string ls syn,ls err ls sql select rybh,ryxm,ryjb from aaa ls syn sqlca.syntaxfromsql ls sql,style type grid ls err 生成資料視窗語法 if...
PB資料視窗
資料視窗小結 資料視窗進行刪除資料時 int zgxx id integer sle 3.text prepare sqlsa from delete from zgxx where id execute sqlsa using zg id2 messagebox 提示 刪除完畢 應用場景 主要注意...