pb 制作程序运行报错界面

一、运行程序时报错提示
1> 在应该程式里的systemerror[]returns(none)
如下代码：
if err_sys=1 then
err_sys=0
return
else
open(w_system_error)
end if
2> 新建一个窗口命名：w_system_error
在窗口上列出以下内容
st_1:error code sle_1:error_code
st_2:error sle_2:error_programe
st_3:error line sle_3:error_line
st_4:error text sle_4:error_message
在open[]returns long[]
如下代码：
error_code.text=string(error.number)
if error.object=error.windowmenu then
error_programe.text="object:"+error.windowmenu + "~r~nevent:"+error.objectevent
else
error_programe.text="object:"+error.windowmenu + "." + error.object+ "~r~nevent:"+error.objectevent
end if
error_line.text=string(error.line)
error_message.text=(error.text)
*****************************************************************************************