版本 2

支持库 iext

子程序 _按钮1_被单击

局部变量 b, 整数型

局部变量 a, 整数型

计次循环首 (树型框1取项目数 (), b)

如果真 (树型框1取检查框状态 (b) ＝ 1)

a ＝ a ＋ 1

如果真结束

计次循环尾 ()

编辑框1内容 ＝ 到文本 (a)

你的按钮直接用上面的源码应该就是你要的功能了

‘不用外部数据库，添加一个数据库连接1控件：

’假设库文件名为“产品数据库mdb”，库中的表名为“产品表”，产品字段名“类别”

全局变量：a 文本型

如果真（数据库连接1连接Access（取运行目录（）+“\产品数据库mdb”，“”）=假）

          信息框（“连接数据库失败！”，0，）

返回（）

’添加一个记录集控件；

记录集1置连接（数据库连接1）

‘上面我们已经打开并且连接好了MDB数据库，接下来我们做读取和显示；

记录集1打开（“select  from 产品表”，#SQL语句，#服务器端游标）

记录集1到首记录（）

判断循环首（记录集1尾记录后=假）

      记录集1读文本（“类别”，a）

      如果真（a=“日用品”）

        树型框1加入项目（0，a，，，，，）

      如果真（a=“洗化用品”）

        树型框1加入项目（1，a，，，，，）

      如果真（a=“洗发水” 或 a=“洗衣粉”）

        树型框1加入项目（2，a，，，，，）

      记录集1到下一条（）

判断循环尾（）

记录集1关闭（）

隐藏的话应该做不到，但是你可以用判断来做到达到禁止的效果。

首先取得鼠标点击项目的选中项，其次判断标题，假如标题需要禁止的那一项，那么就返回不做操作。如果用删除项目，可能会导致整个树形框的结构改变的。判断是比较好用和简单的方法。我没记错的话，树形框是没有这个命令的，API貌似也做不到禁止子项吧。

不知这样能不能满足你的要求，不行的话再说！

版本 2

支持库 iext

子程序 _按钮1_被单击

局部变量 w1, 文本型, , "0"

局部变量 w2, 文本型, , "0"

局部变量 i, 整数型

局部变量 父项目, 整数型

w1 ＝ 分割文本 (编辑框1内容, #换行符, )

w2 ＝ 分割文本 (编辑框2内容, #换行符, )

计次循环首 (取数组成员数 (w1), i)

父项目 ＝ 树型框1加入项目 (, w1 [i], , , , , )

树型框1加入项目 (父项目, w2 [i], , , , , )

计次循环尾 ()

去下载精易模块：

版本 2

局部变量 文件, 文本型, , "0"

局部变量 子目录, 文本型, , "0"

局部变量 i

计次循环首 (文件_枚举 (取运行目录 (), “”, 文件), i)

编辑框1加入文本 (文件 [i] ＋ #换行符)

计次循环尾 ()

计次循环首 (目录_枚举子目录 (取运行目录 (), 子目录), i)

编辑框2加入文本 (子目录 [i] ＋ #换行符)

计次循环尾 ()

树型框自己写代码吧

版本 2

支持库 iext

支持库 HtmlView

子程序 _按钮1_被单击

局部变量 插入位置, 整数型

插入位置 ＝ 树型框1加入项目 (-1, 编辑框1内容, , , , , )

超文本浏览框1地址 ＝ 树型框1取项目文本 (插入位置)

用列表框多方便啊，为什么要用树形框？