树形目录如何实现翻页?
我做课件定义了一个属性目录
treeID:=wcDisplayControl(42,85,110,320,"treeview","treechange")--定义一个监视控件变化的变量treechange,使用wsdisplaycontrol函数创建treeview控件,返回的控件标识号保存在变量treeid中
wcSetPropertyValue(treeID,"fontsize","10")--设置treeview控件字号属性10号
wcSetPropertyValue(treeID,"items","第一章 多媒体导论\r 1.1什么是多媒体\r 1.2多媒体和超媒体\r 1.3Word Wide Web\r 1.4多媒体软件工具概述\r第二章 多媒体编著和工具\r 2.1多媒体编著\r 2.2多么提编辑和编著工具\r 2.3VRML\r第三章 图形和图像的数据表现\r 3.1图形/图像的数据类型\r 3.2常见的文件格式")--设置treeview控件ITEMS属性,创建目录条目,条目之间用字符"\r"相隔,条目中输入空格显示条目层次关系。无空格表示最上一层,1个空格表示第二层目录。2个空格表示第三层目录
wcSetPropertyValue(treeID,"imageindex","16\r18\r18\r18\r18\r16\r18\r18\r18\r16\r18\r18")--设置treeview控件imageindex属性,语句中的图标序号与条目一一对应
用treechange实现目录跳转 currentselect:=wcGetPropertyValue(treeID,"text")--获取treeview控件属性text,即条目文字,并将它保存到自定义变量currentselect中
可是只能点目录才能切换页面,怎么才能实现翻页?