->DimnodxAsNode
PrivateSubForm_Load()
在ImageList控件中添加一个图象。
DimimgXAsListImage
TreeView1.ImageList=ImageList1初始化ImageList。
SetimgX=ImageList1.ListImages.Add(,,_
LoadPicture("c:\mydocuments\072.bmp"))
TreeView1.ImageList=ImageList1初始化ImageList。
TreeView1.LineStyle=tvwRootLines
TreeView1.Style=tvwTreelinesPlusMinusPictureText
DimDriverCountAsInteger
DimGivePathAsString
OnErrorResumeNext
创建根节点
Setnodx=TreeView1.Nodes.Add(,,"本人电脑","本人电脑",1)
ForDriverCount=0ToDrive1.ListCount-1
Setnodx=TreeView1.Nodes.Add("本人电脑",tvwChild,_
Drive1.List(DriverCount) "\",_
Drive1.List(DriverCount),1)
GivePath=Drive1.List(DriverCount) "\"
CallSSplitNode(GivePath)
NextDriverCount
EndSub
SubSSplitNode(GivePathAsString)‘子过程
把给定目录下的子目录全部加入Node对象中
DimSDIAsInteger
DimSDCountAsInteger
DimDString(1000)AsString
‘以下为展开给定目录的下级子目录
Dir1.Path=GivePath‘给定目录
SDCount=Dir1.ListCount‘利用Dir1控件判断是否有下级目录
IfSDCount=0ThenExitSub
‘如无同退出子程序,即为递归出口。否则会形成死循环。
ForSDI=0ToSDCount-1
DString(SDI)=Dir1.List(SDI)
Setnodx=TreeView1.Nodes.Add(GivePath,tvwChild,_
DString(SDI),FOnlyPath(DString(SDI)),1)
NextSDI
‘调用递归(子程序自己调用自己)
ForSDI=0ToSDCount-1
CallSSplitNode(DString(SDI))
NextSDI
EndSub
FunctionFOnlyPath(DStringAsString)AsString
功能是去掉上级目录，只留下当前目录名
DString为给定的全路径目录名
IfDString=""ThenExitFunction
DimDLengthAsInteger
DLength=Len(DString)
DimDDAsInteger
ForDD=DLengthTo1Step-1
IfMid(DString,DD,1)="\"ThenExitFor
NextDD
FOnlyPath=Mid(DString,DD 1)
EndFunction
->
