addtree.bas

来自「储存系统」· BAS 代码 · 共 14 行

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