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

messageboxex("警告","确定要把删除房间["+ls_id+"]吗？",question!,yesno!)<>1 then return //=1则是确认,messageboxex点击后会有返回值，本行代码的作用是：弹出窗口提升，点击ok则继续执行后面的代码，其它选项则return出去。

if 语句可以和有返回值的函数配合使用，类似上面

窗口之间数据传输：

在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_1,"独孤求败")

接着在打开窗口w_1的open事件中键入：

sle_1.Text   =   message.stringparm

如果需要传递多个参数，可以使用如下两种方法：

方法一

定义结构变量：lstr_para，其中包含你想传递的各种参数：

变量名      变量类型

ID      string

Name          string

Sex            string

Loca              string

在调用脚本中(本例使用才菜单clicked中)，使用如下代码：

lstr_para   lstr_Tranpara

lstr_Tranpara.id       =   "00000001"

lstr_Tranpara.name   =   "独孤求败"

lstr_Tranpara.sex     =   "男"

lstr_Tranpara.loca   =   "广东深圳"

openwithparm(w_2,lstr_Tranpara)

接下来在打开窗口w_2的open事件中，获取结构信息：

lstr_para   lstr_Getpara

lstr_Getpara   =   message.powerobjectparm

sle_1.Text       =   lstr_Getpara.id

sle_2.Text       =   lstr_Getpara.name

sle_3.Text       =   lstr_Getpara.sex

sle_4.Text       =   lstr_Getpara.loca

其中，lstr_Getpara为用户自定义结构数据类型，是值传送的。

方法二

首先创建一个类用户对象

uo_para

在该用户对象中将你需要传递的各种参数申明成实例变量，例如：

public:

string   id

string   name

string   sex

string   loca

在调用脚本中(本例使用才菜单clicked中)，使用如下代码：

uo_para   uo_Tranpara

uo_Tranpara   =   create   uo_para

uo_Tranpara.id       =   "00000001"

uo_Tranpara.name   =   "独孤求败"

uo_Tranpara.sex     =   "男"

uo_Tranpara.loca   =   "广东深圳"

OpenWithParm(w_3,uo_Tranpara)

接下来在打开窗口w_3的open事件中，获取用户对象信息：

uo_para   uo_Getpara

uo_Getpara   =   message.powerobjectparm

sle_1.Text       =   uo_Getpara.id

sle_2.Text       =   uo_Getpara.name

sle_3.Text       =   uo_Getpara.sex

sle_4.Text       =   uo_Getpara.loca

以上两种方法比较而言，第一种方法虽然比较简单实用，但是如果遇上较复杂的数据时，便不能在一个结构数据中充分描述了；

第二种方法不但方便灵活，而且可以传送复杂的数据。当然，参数的传送不止以上的几种方法，你也可以使用全局变量或是公共可

访问的窗口实例变量来传送参数，或者在窗口中调用一个函数，并传递所需的参数，在此就不再赘述了。

另外，用Message传递参数必须注意以下几点：

1.   最好执行完窗口操作（打开或关闭）后马上将Message消息对象的值传给变量，这是因为Message是全局使用的对象，

每一次事件被触发或传送时都会被使用，其他Script   也有可能用到Message消息对象，因此它有被覆盖的危险。

2.避免传送NULL对象，以免程序出错。