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

缺乏、安全感 2022-09-28 01:37 462阅读 0赞

首先，我们看看以下几个函数：  
CloseWithReturn ( windowname, returnvalue )  
OpenWithParm ( windowvar, parameter, windowtype \{, parent \} )  
OpenSheetWithParm ( sheetrefvar, parameter \{, windowtype \}, mdiframe \{, position \{, arrangeopen \} \} )  
windowname.OpenUserObjectWithParm ( userobjectvar, parameter, userobjecttype \{, x, y \} )。  
所有函数都有一个在进行窗口操作（打开或者关闭）时存入Message对象的参数（parameter或returnvalue）。　系统Message对象有三种存储数据属性（依赖于窗口操作时的参数赋予的类型而定）：Message.DoubleParm NumericMessage.PowerObjectParm PowerObject (PowerBuilder对象，包括用户自定义的结构数据类型)Message.StringParm String  
从上看来，如果是传递一个参数，可以如下写Script：openwithparm(w\_wantparm,parmtotrans) 在w\_wantparm窗口的open事件中：  
string ls\_getparmls\_getparm=message.stringparm //或者：ls\_getparm=message.doubleparm，根据parmtotrans参数的类型而定……//  
接下来其他语句　如何需要传递多个参数，可以使用如下两种方法：  
**方法一**、在openwithparm(w\_wantparm,parmtotrans)中，parmtotrans为结构数据类型：lstr\_delaredstr lstr\_getparm接下来在w\_wantparm的open事件中：lstr\_delaredstr lstr\_getparmlstr\_getparm=message.powerobjectparm……//接下来其他语句其中，lstr\_delaredstr为用户自定义结构数据类型，是值传送的，所以就算源结构变量被DESTROY了，它还是可以照常使用的。

**方法二**、首先创建一个类用户对象u\_n\_parmtostore 在该对象中将你需要传递的各种参数申明成实例变量，例如： Public: Integer IDString NameString EmailString Homepage... 则可以如下打开窗口w\_wantparm，并传递参数：  
u\_n\_parmtostore lnv\_paramtotrans lnv\_paramtotrans.id=1 lnv\_paramtotrans.name="panya" lnv\_paramtotrans.email="panya@163.net"lnv\_paramtotrans.homepage="http://panya.163.net"……OpenWithParm ( w\_wantparm, lnv\_paramtotrans ) 　  
在 w\_wantparm 的 open 事件中访问传来的参数 u\_n\_parmtostore lnv\_getparaminteger li\_getidstring ls\_getnamestring ls\_getemailstring ls\_gethomepagelnv\_getparam = Message.PowerObjectParm li\_getid=lnv\_getparam.idls\_getname=lnv\_getparam.namels\_gethomepage=lnv\_getparam.homepagels\_getemail=lnv\_getparam.email……//接下来其他语句两种方法比较而言，第一种方法比较简单实用，但第二种方法更加灵活。　另外，用Message传递参数必须注意：

1.  最好执行完窗口操作（打开或关闭）后马上将Message对象的值传给变量，因为其他script 也有可能用到Message对象。 
2.  避免传送NULL对象，以免程序出错。