易语言获取树型框组件父项目索引数值源码

我们为了控制树型框的父项目，必须获得它的索引值，下面的子程序实现了这个功能。

.版本 2
.支持库 iext
 
.子程序 取项目索引, 整数型
.参数 搜寻对象, 文本型
.参数 树形框对象, 树型框
.局部变量 i, 整数型
 
.计次循环首 (树形框对象.取项目数 (), i)
    .如果真 (树形框对象.取项目文本 (i － 1) ＝ 搜寻对象)
        返回 (i － 1)
    .如果真结束
 
.计次循环尾 ()
返回 (-1)

参考原文：易语言树型框取父项目索引数值