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)

*****************************************************************************************