mdlisexitnodeintreeview.bas

来自「一个用VB写的财务软件源码」· BAS 代码 · 共 15 行

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