PB窗口之间传递多参数的方法

PB 窗口之间传递多参数的方法 （深圳：独孤求败 2003-05-19） 在 PowerBuilder 中函数 OpenWithParm， CloseWithReturn， OpenSheetWithParm， windowname.OpenUserObjectWithParm 等都有一个在进行窗口操作 （打开或者关 闭）时存入 Message 消息对象的参数 parameter 或 returnvalue。 消息对象 Message 有三个属性用于存储这些函数传递给窗口的数据 （依赖于窗 口操作时参数赋予的类型）。根据 parameter / returnvalue 参数数据类型的不同， 该参数的值保存在 Message 对象的不同属性中。parameter / returnvalue 参数的 类型与使用的 Message 对象属性的对应关系如下表： 参数类型 Message 对象属性 Numeric(数值) Message.DoubleParm PowerObject(PB 对象，包括用户自定义的结构数据类 型) Message.PowerObjectParm String(字符串) Message.StringParm 应用程序根据 OpenWithParm()等函数的 parameter / returnvalue 参数类型，从 Message 消息对象的不同属性中提取该函数并传送给被打开窗口的值。 在 PB 中如果是传递一个参数，是很容易实现的。在调用脚本中，可以使用 如下代码： openwithparm(w_wantparm,parmtotrans) 接着在打开窗口 w_wantparm 的 open 事件中键入： string ls_getparm ls_getparm=message.stringparm … 如果需要传递多个参数，可以使用如下两种方法： 方法一 定义结构变量：lstr_declaredstr，其中包含你想传递的各种参数： 变量名变量类型 ID Unsignedlong Name Character Email Character Homepage Character …… 在调用脚本中，使用如下代码： lstr_declaredstr lstr_parmtotrans lstr_parmtotrans.id=1 lstr_paramtotrans.name=“panya“ lstr_paramtotrans.email=“panya@ “ lstr_paramtotrans.homepage=“ … openwithparm(w_wantparm,parmtotrans) 接下来在打开窗口 w_wantparm 的 open 事件中，获取结构信息： lstr_declaredstr lstr_getparm “; integer li_getid string ls_getname string ls_getemail string ls_gethomepage lstr_getparm = message.powerobjectparm li_getid = lstr_getparm.id ls_getname = lstr_getparm.name ls_geemail = lstr_getparm.email ls_gethomepage = lstr_getparm.homepage … 其中，lstr_declaredstr 为用户自定义结构数据类型，是值传送的。 方法二 首先创建一个类用户对象 u_n_parmtostore 在该用户对象中将你需要传递的各种参数申明成实例变量，例如： Public: Integer ID String Name String Email String Homepage . 打开窗口 w_wantparm，并传递多个参数： u_n_parmtostore lnv_paramtotrans lnv_paramtotrans.id=1 lnv_paramtotrans.name=“panya“ lnv_paramtotrans.email=“panya@ “ lnv_paramtotrans.homepage=“ … OpenWithParm ( w_wantparm, lnv_paramtotrans ) 在 w_wantparm 的 open 事件中访问传来的参数： u_n_parmtostore lnv_getparam integer li_getid string ls_getname string ls_getemail string ls_gethomepage lnv_getparam = Message.PowerObjectParm li_getid=lnv_getparam.id “; ls_getname=lnv_getparam.name ls_gethomepage=lnv_getparam.homepage ls_getemail=lnv_getparam.email … 以上两种方法比较而言， 第一种方法虽然比较简单实用，但是如果遇上较复 杂的数据时，便不能在一个结构数据中充分描述了；第二种方法不但方便灵活， 而且可以传送复杂的数据。当然，参数的传送不止以上的几种方法，你也可以使 用全局变量或是公共可访问的窗口实例变量来传送参数， 或者在窗口中调用一个 函数，并传递所需的参数，在此就不再赘述了。 另外，用 Message 传递参数必须注意以下几点： 1. 最好执行完窗口操作 （打开或关闭） 后马上将 Message 消息对象的值传给 变量， 这是因为 Message 是全局使用的对象， 每一次事件被触发或传送时都会被 使用，其他 Script 也有可能用到 Message 消息对象，因此它有被覆盖的危险。 2.避免传送 NULL 对象，以免程序出错。 Close() 功能关闭窗口并释放窗口以及窗口上的控件所占据的内存。 语法 Close(windowname) 参数 windowname：要关闭窗口的名称返回值 Integer。函数执行成功时返回 1， 发生错误时返回-1。如果参数 windowname 的值为 NULL，Close()函数返回 NULL。 用法应用程序使用 Open()或其它 Open 簇函数打开窗口后，不需要窗口时，可以 使用 Close()关闭窗口并释放窗口以及窗口上所有控件占据的内存。Close()函数的 执行过程为：如果要关闭窗口的 CloseQuery 和/或 Close 事件已经编写了事件处 理程序，那么执行这些事件处理程序，从屏幕上删除要关闭的窗口、关闭窗口、 之后执行调用 Close()函数语句后面的语句。 当窗口被关闭后， 应用程序就不能再 访问已经关闭窗口的属性、实例变量、对象函数、以及窗口上的控件了。如果关 闭窗口后应用程序依然访问上述特性，那么将引发运行错误。当然，应用程序也 可以阻止窗口被关闭，方法很简单，只要在欲阻止关闭窗口的 CloseQuery 事件 处理程序中使用 RETURN 语句返回 1 即可，格式为：RE