【PB】使用 Win32 API 扩展下拉列表框

获取/设置当前选项

要获取/设置下拉列表框的当前选项，通常是通过如下代码实现的：

ddlb_example.FindItem(ddlb_example.Text, 0)

ddlb_example.SelectItem("First Item", 0)

当存在选项文本重复时，根本无法判断选择/设置了哪项。故需一个函数直接获取/设置当前选项，ComboBox 控件消息 CB_GETCURSEL 和 CB_SETCURSEL，可以实现该功能。

定义 ddlb_extended 的方法 GetCurSel() 和 SetCurSel() 如下：


public function integer getcursel ()




/**//*************************************************************************************


用途：获取当前选项


参数：无


返回值：


如果存在当前选项，则该项的索引值。否则，返回0。


**************************************************************************************/


return Send(handle(this), 327, 0, 0) + 1


end function




public function integer setcursel(integer index)




/**//************************************************************************************


用途：设置当前选项


参数：


index 期望选择的项目。如果为0，则清除当前选项。


返回值：


如果成功，则返回当前选项的索引值。否则，返回0。


*************************************************************************************/


return Send(handle(this), 334, index - 1, 0) + 1


end function

实现 Map 功能

在 ComboBox 控件的定义中，CB_GETITEMDATA 和 CB_SETITEMDATA 消息为每个选项关联一个值。

通过选项的索引值，我们可以获取该项的一个关联值，如果该值是一个数组的下标的话，那么就意味着，通过选项索引值 (作为 KEY) 可以获取一个数组成员 (作为 VALUE)。当然，在选项文本不重复的情况下，选项文本亦可为 KEY。

定义 ddlb_extended 的方法 GetItemData() 和 SetItemData() 如下：


public function long getitemdata (integer index)




/**//*******************************************************************************


用途：获取指定项的关联值


参数：


index 指定项的索引值


返回值：


如果成功，返回关联值；否则，返回 -1。


********************************************************************************/


return Send(handle(this), 336, index - 1, 0)


end function




public function boolean setitemdata (integer index, long data)




/**//*******************************************************************************


用途：设置指定项的关联值


参数：


index 指定项的索引值


data 关联值


返回值：


如果成功，返回 true；否则，返回 false。


********************************************************************************/


return Send(handle(this), 337, index - 1, data) <> -1


end function

举例

派生类 ddlb_columns 的选项文本为数据表的列描述，且有实例变量 String dbColumns[] 用于保存列名，我们可以通过表达式 dbColumns[GetItemData(GetCurSel())] 获取当前选项的列名。