[Visual Basic]
Public Sub LoadTreeMenu( _ 
   ByVal otv As TreeView _ 
)

Parameter

otv

Quellcode

[Visual Basic]
        Public Sub LoadTreeMenu(ByVal otv As TreeView) 
            Dim menueintraege As New clsMySysadminfunkion() 
            Dim menudata As DataTable 
            Dim i As Integer 
            Dim m_collDeletedNodes As Collection 
            Dim collNodeKeys As New Collection() 
            Dim tnNew As TreeNode 
            Dim tnParent As TreeNode 
 
            m_collDeletedNodes = Nothing 
            m_collDeletedNodes = New Collection() 
 
            menueintraege.cpMainConnectionProvider = conn 
            menudata = menueintraege.SelectHierarchy 
 
            For i = 0 To menudata.Rows.Count - 1 
                If menudata.Rows(i).Item("ParentID") = 0 Then 
                    tnNew = otv.Nodes.Add(menudata.Rows(i).Item("bezeichnung")) 
                    With tnNew 
                        .Tag() = menudata.Rows(i).Item("sysadminfnktnr") 
                        .ImageIndex() = menudata.Rows(i).Item("ImageIndex") 
                        .SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen") 
                    End With 
                    Try 
                        collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("sysadminfnktnr"), String)) 
                    Catch ex As Exception 
                        MsgBox(ex.Message, MsgBoxStyle.Critical) 
                    End Try 
                Else 
                    Try 
                        tnParent = CType(collNodeKeys.Item(CType(menudata.Rows(i).Item("ParentID"), String)), TreeNode) 
                        tnNew = tnParent.Nodes.Add(CType(menudata.Rows(i).Item("bezeichnung"), String)) 
                        With tnNew 
                            .Tag() = CType(menudata.Rows(i).Item("sysadminfnktnr"), String) 
                            .ImageIndex() = menudata.Rows(i).Item("ImageIndex") 
                            .SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen") 
                        End With 
                        collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("sysadminfnktnr"), String)) 
                    Catch ex As Exception 
                        MsgBox(ex.Message, MsgBoxStyle.Critical) 
                    End Try 
                End If 
            Next 
        End Sub

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

clsMySysadminfunkion