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

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

（深圳：独孤求败 2003-05-19）

在PowerBuilder中函数OpenWithParm，CloseWithReturn，OpenSheetWithParm，windowname.OpenUserObjectWithParm等都有一个在进行窗口操作（打开或者关闭）时存入Message消息对象的参数parameter或return value。

消息对象Message有三个属性用于存储这些函数传递给窗口的数据（依赖于窗口操作时参数赋予的类型）。根据parameter / return value参数数据类型的不同，该参数的值保存在Message对象的不同属性中。parameter / return value参数的类型与使用的Message对象属性的对应关系如下表：

参数类型 Message对象属性

Numeric(数值) Message.DoubleParm

PowerObject(PB对象，包括用户自定义的结构数据类

型) Message.PowerObjectParm

String(字符串) Message.StringParm

应用程序根据OpenWithParm()等函数的parameter / return value参数类型，从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_="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_

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_="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_

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()函数语句后面的语句。当窗口被关闭后，应用程序就不能再