【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())] 获取当前选项的列名。