$PBExportHeader$uo_thread_ws.sru $PBExportComments$线程对象 forward global type uo_thread_ws from nonvisualobject end type end forward global type uo_thread_ws from nonvisualobject end type global uo_thread_ws uo_thread_ws type prototypes Subroutine Sleep (ulong dwMilliseconds) Library "KERNEL32.DLL" end prototypes type variables //powerobject inv_pbcomm powerobject inv_pbcomm int ins_stopflag=0 //1-stop end variables forward prototypes public subroutine of_start () public subroutine of_runue (string arg_uename) public subroutine of_setparent (powerobject arg_pbcomm) public subroutine of_runue (powerobject arg_powerobject, string arg_uename) end prototypes public subroutine of_start ();do while ins_stopflag=0 inv_pbcomm.triggerevent("ue_thread") sleep(100) loop end subroutine public subroutine of_runue (string arg_uename);inv_pbcomm.triggerevent(arg_uename) end subroutine public subroutine of_setparent (powerobject arg_pbcomm);inv_pbcomm = arg_pbcomm end subroutine public subroutine of_runue (powerobject arg_powerobject, string arg_uename);arg_powerobject.triggerevent(arg_uename) end subroutine on uo_thread_ws.create call super::create TriggerEvent( this, "constructor" ) end on on uo_thread_ws.destroy TriggerEvent( this, "destructor" ) call super::destroy end on