在表单中添加OLECONTROL(Micrsoft TreeView Control 6.0),然后在该控件的Init中写如下代码:
THIS.LINESTYLE=1
THIS.STYLE=7
THIS.NODES.ADD(,,"Sports","体育")
THIS.NODES.ADD("Sports",4,"Ball","球类")
THIS.NODES.ADD("Ball",4,,"足球")
THIS.NODES.ADD("Ball",4,,"篮球")
THIS.NODES.ADD("Ball",4,,"排球")
THIS.NODES.ADD("Sports",4,"Swim","游泳")
THIS.NODES.ADD("Swim",4,,"蛙泳")
THIS.NODES.ADD("Swim",4,,"自由泳")
运行,就成功。
这是定制的。若需要动态变化的,按照上述的进行修改就成。