怎么修改获取组合框选中项索引

414000681 · 发表于 2024-6-12 22:00:58

.版本 2

.子程序获取组合框选中项索引, 整数型, 公开
.参数组合框句柄, 整数型
.局部变量项目数, 整数型
.局部变量 i, 整数型
.局部变量项目文本, 文本型
.局部变量选中项文本, 文本型
.局部变量索引, 整数型
.局部变量找到, 逻辑型

' 获取组合框当前选中项的文本
选中项文本＝取组合框内容（组合框句柄）
项目数＝取组合框项目数（组合框句柄）
索引＝ -1 ' 初始化索引为-1，表示未找到
找到＝假 ' 初始化找到标志为假

' 遍历组合框的每一个项目
对于 i ＝ 0 到项目数 - 1
      ' 获取当前项目的文本
      项目文本＝取组合框项目文本（组合框句柄, i）
      ' 比较当前项目文本和选中项文本是否相同
      如果（项目文本＝选中项文本）则
         索引＝ i ' 设置索引为当前项目的索引
         找到＝真 ' 设置找到标志为真
         退出循环 ' 找到匹配项后退出循环
      到底如果
循环结束

' 根据找到标志返回索引或-1
如果（找到）则
      返回索引
否则
      返回 -1 ' 如果没有找到匹配项，返回-1
到底如果
.子程序结束

补充内容 (2024-6-13 08:37):
已自行解决

补充内容 (2024-6-13 08:39):
.版本 2
.支持库 spec

.子程序获取组合框索引, 整数型, 公开, 参数文本内容, 文本型
.参数文本, 文本型, , 你要查找的实际文本
.参数局_组合框, 组合框
.局部变量项数, 整数型
.局部变量索引, 整数型
.局部变量当前项, 文本型
.局部变量 i, 整数型

项数＝局_组合框.取项目数 ()
索引＝ -1  ' 初始化索引为-1，表示未找到
.计次循环首 (项数, i)
当前项＝局_组合框.取项目文本 (i － 1)
.如果 (当前项＝文本)
      索引＝ i － 1
      跳出循环 ()
      调试输出 (i)
.否则

.如果结束

.计次循环尾 ()
返回 (索引)