VCL组合框扩展功能

易语言 2020-07-11 14:43:29

VCL组合框扩展功能

VCL高级组合框_取现行选中项
VCL高级组合框_取项目文本
VCL高级组合框_置现行选中项

.子程序 VCL高级组合框_取项目文本, 文本型, 公开, 取回组合框指定索引项目文本
.参数 VCL高级组合框, VCL高级组合框
.参数 项目索引, 整数型, , 项目索引,0表示第一行
.局部变量 文本, 文本型
.局部变量 Hwnd, 整数型
.局部变量 TEXTLEN, 整数型

Hwnd = FindWindowEx (VCL高级组合框.取窗口句柄 (), 0, “TVclComboBoxEx”, “”)
TEXTLEN = SendMessageA (Hwnd, #CB_GETLBTEXTLEN, 项目索引, 0)
文本 = 取空白文本 (TEXTLEN)
SendMessageA_String (Hwnd, #CB_GETLBTEXT, 项目索引, 文本)