mdlisexitnodeintreeview.bas

一个用VB写的财务软件源码

Attribute VB_Name = "mdlIsExitNodeInTreeView"
Option Explicit

'判断Key为关键值的节点是否在指定TreeView中
Public Function IsExitNodeInTreeView(ByVal Key As String, ByRef tVw As TreeView) As Boolean
Dim n As Node
On Error GoTo Err
    Set n = tVw.Nodes.Item(Key)
    IsExitNodeInTreeView = True
Exit Function
Err:
    IsExitNodeInTreeView = False
End Function