它的具体功能是：（1）单击列表框的下拉箭头，弹出下拉框，同时下拉箭头变成上拉箭头；（2）用户可以从下拉框里选择一项或多项内容，每单击其中的一项，如果该项内容以前没有选中，则该项前面打上对号表示该项已被选中，否则对号消失表示不选中该项；（3）选择完毕之后单击上拉箭头，列表框消失，同时在文本框里显示提示信息“您已经选择了XXX项内容”；（4）如果用户再次单击下拉箭头，则刚刚用户所作的选择项会排在下拉列表框的最上端，省去了用户上下翻动下拉框查看不便的麻烦。

1. 用户对象的创建

新建一个“Custom Visual”用户对象，控件摆设如下：

　

说明：（1）Cb_1的字体为“Webdings”，默认值是“6”（下拉箭头）。

（2）定义控件函数f_min() & f_max()，二者均无参数、无返回值。

脚本如下：

f_max()：

int li_height_max=584

dw_1.sort()

this.height=li_height_max

cb_1.text="5" //上拉箭头

li_status=1

f_min()：

long ll_row,i

int li_height_min=116,li_checkedcount=0

ll_row=dw_1.rowcount()

for i=1 to ll_row

p> li_checkedcount=li_checkedcount + dw_1.object.pbj[i]

next

this.height=li_height_min

em_1.text=你已经作了+string(li_checkedcount)+个选择.

cb_1.text="6"

li_status=0

（3）声明Instance变量：

int li_height_min=116,li_height_max=584,li_status=0

long ll_lastrow=0

1. 各控件的事件脚本

1. 用户对象

1. onstructor 事件脚本：

f_min()

this.event post ue_open()

2. Ue_open事件脚本：

dw_1.setsort("pbj D")

2. 命令按钮cb_1

1. Clicked事件脚本：

choose case li_status

case 0

f_max()

case 1

f_min()

end choose

3. 数据窗口dw_1

1. Clicked事件脚本：

if this.object.pbj[row]=0 then

this.object.pbj[row]=1

else

this.object.pbj[row]=0

end if

2. Mousemove事件（pbm_dwnmousemove）脚本：

long ll_row

ll_row = row

If ll_row $#@62; 0 and ll_row $#@60;$#@62; ll_lastrow Then

ll_lastrow = ll_row

this.selectrow(0, false)

this.setrow(ll_row)

this.selectrow(ll_row, true)

End If

2. 调用方法：

在添加了本用户对象的窗口的open事件开始处里添加如下命令即可：

uo_1.dw_1.object=’dw_sb//设置该用户对象的数据窗口对象为省别的数据窗口。

uo_1.dw_1. settransobject(sqlca)

uo_1.dw_1.retrieve()

注：以上程序在PowerBuilder 7.0调试通过。

欢迎订阅天极网RSS聚合资讯：http://www.yesky.com/index.xml