PB在查詢大資料等待時,彈出等待視窗,視窗里有個LOADING的GIF圖片,如何避免假死,GIF可以動起來,看帖子說用YIELD()函式,如何用請高數指點。謝謝
我在retrievestart()中open了這個表單,retrieveend()中close這個表單
uj5u.com熱心網友回復:
頂,也想有這個功能uj5u.com熱心網友回復:
把邏輯寫在資料視窗的RetrieveRow中試試。uj5u.com熱心網友回復:
大俠幫幫忙哈uj5u.com熱心網友回復:
我感覺只能用多執行緒或多行程實作, yield影響效率uj5u.com熱心網友回復:
這個功能 有沒有人可以提供一關念啊..uj5u.com熱心網友回復:
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
4,在應用的 open 事件 里寫上:of_cthread_wait()
5,在需要打開等待視窗的地方寫:gwait.post of_open_wait(), 在需要關閉的地方寫:gwait.post of_close_wait()
uj5u.com熱心網友回復:
學習了...uj5u.com熱心網友回復:
試過了,效果不理想uj5u.com熱心網友回復:
試過了,效果不理想,呵呵uj5u.com熱心網友回復:
想要最簡單的,找個播放AVI的控制元件。它不會吊死在那里。
uj5u.com熱心網友回復:
轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/31436.html
標籤:基礎類
