addtree.bas

储存系统

Attribute VB_Name = "addTree"
'公用变量---------------------
Public nod As Node '声明树节点
Public Declare Sub InitCommonControls Lib "comctl32.dll" () 'XP效果
'公用过程
Public Sub addTVW(ByVal TVW As TreeView) '添加树视过程
Call CloseConn
If TVW.Nodes.Count > 0 Then '展开第一级
    TVW.Nodes(1).Expanded = True
End If
End Sub