Suchen eines Knoten Treeview

[Visual Basic]
Public Function FindNode( _ 
   ByVal _nodeCollection As TreeNodeCollection, _ 
   ByVal SearchVal As Integer, _ 
   ByVal SearchString As String _ 
) As TreeNode

Parameter

_nodeCollection

Nodes des TreeView

SearchVal

Tag.Keyvalue

SearchString

Node.Text als Suchbegriff

Quellcode

[Visual Basic]
    Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode 
        Dim tmpNode As TreeNode 
        For Each _child As TreeNode In _nodeCollection 
            If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then 
                Return _child 
            End If 
            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString) 
            If Not tmpNode Is Nothing Then 
                Return tmpNode 
            End If 
        Next 
        Return Nothing 
    End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

frmVertragselementApplikation