Reply to thread

Message

<blockquote data-quote="randerson" data-source="post: 11297" data-attributes="member: 3406">I ported a VB6 application to VB .Net 2003 and I am having a problem loading a TreeView control correctly. This code worked fine in VB6 but the functionality of the Treeview.Nodes.Add function has changed. Basically, this application allows a user to extract check-out information and check-in comments from a SourceSafe DB. I load the Treeview control with a list of the SourceSafe Projects in the identified SourceSafe DB.The sub I use to fill the Treeview control is called recursively. Here is the code for I am using.[CODE]Public Sub PopulateVSSTree(ByRef tvwControl As TreeView, ByVal intParentNode As Integer, ByRef objVSSDatabase As SourceSafeTypeLib.VSSDatabase, Optional ByVal szProjectRoot As String = &quot;$/&quot;, Optional ByVal bIncludeFiles As Boolean = True)&nbsp; &nbsp; Static iTreeLevel As Short&nbsp; &nbsp; Dim objVSSItem As SourceSafeTypeLib.VSSItem&nbsp; &nbsp; Dim tvwNode As TreeNode&nbsp; &nbsp; Dim strNodeName As String&nbsp; &nbsp; On Error GoTo Err_handler&nbsp; &nbsp; If iTreeLevel = 0 Then&nbsp; &nbsp;&nbsp; SmartClearNodes(tvwControl)&nbsp; &nbsp;&nbsp; strNodeName = szProjectRoot.ToString()&nbsp; &nbsp;&nbsp; tvwNode = New TreeNode(strNodeName)&nbsp; &nbsp;&nbsp; tvwControl.Nodes.Add(tvwNode)&nbsp; &nbsp; End If&nbsp; &nbsp; iTreeLevel = iTreeLevel + 1&nbsp; &nbsp; If objVSSDatabase.VSSItem(szProjectRoot).Type = SourceSafeTypeLib.VSSItemType.VSSITEM_PROJECT Then&nbsp; &nbsp;&nbsp; For Each objVSSItem In objVSSDatabase.VSSItem(szProjectRoot).Items()&nbsp; &nbsp; &nbsp; &nbsp; If objVSSItem.Type = SourceSafeTypeLib.VSSItemType.VSSITEM_PROJECT Then&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; strNodeName = objVSSItem.Name&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; tvwNode = New TreeNode(strNodeName)&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; tvwControl.Nodes(intParentNode).Nodes.Add(tvwNode)&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; PopulateVSSTree(tvwControl, tvwNode.Index(), objVSSDatabase, szProjectRoot &amp; objVSSItem.Name.ToString &amp; &quot;/&quot;, bIncludeFiles)&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; If bIncludeFiles Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strNodeName = objVSSItem.Name&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; tvwNode = New TreeNode(strNodeName)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; tvwControl.Nodes(intParentNode).Nodes.Add(tvwNode)&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp;&nbsp; Next objVSSItem&nbsp; &nbsp; End IfExit_Sub:&nbsp; &nbsp; iTreeLevel = iTreeLevel - 1&nbsp; &nbsp; Exit SubErr_handler:&nbsp; &nbsp; iTreeLevel = 0&nbsp; &nbsp; Err.Raise(Err.Number, Err.Source, Err.Description)End Sub[/CODE]First I realize the error handling section needs to be corrected using the .Net Try..Except..Finally method but that isn't my immediate problem. My problem is when I recursively call the sub, how do I identify the parent node to which I should add this child node. In VB6 the Node.Add function let me pass in a relative reference (parent key), the relationship type (Child), key for the new node, and the node text. In the .Net version it is basically Node.Add (node text) so somehow I need to point the node to the nodes parent. I was trying this by passing in the Node.Index of the node I just created but that doesn’t work. What I should get is the following[CODE] $/ - MXT&nbsp; &nbsp;&nbsp; AFCEE _Access&nbsp; &nbsp;&nbsp; - AFCEE Data Gathering&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Database&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Documentation&nbsp; &nbsp;&nbsp; - Final Report&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Final Documentation&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; FinalizedProcesses&nbsp; &nbsp;&nbsp; - CCB&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; PMR....Etc, etc.[/CODE] What I actually get is the following[CODE] $/&nbsp; &nbsp; MXT&nbsp; &nbsp; AFCEE _Access&nbsp; &nbsp; AFCEE Data Gathering[/CODE] And that’s it. As you can see, AFCEE_Access and AFCEE Data Gathering are not children to MXT and also there aren’t any other children.Can anyone suggest a solution to my problem?ThanksRichard Anderson</blockquote>

[QUOTE="randerson, post: 11297, member: 3406"] I ported a VB6 application to VB .Net 2003 and I am having a problem loading a TreeView control correctly. This code worked fine in VB6 but the functionality of the Treeview.Nodes.Add function has changed. Basically, this application allows a user to extract check-out information and check-in comments from a SourceSafe DB. I load the Treeview control with a list of the SourceSafe Projects in the identified SourceSafe DB. The sub I use to fill the Treeview control is called recursively. Here is the code for I am using. [CODE] Public Sub PopulateVSSTree(ByRef tvwControl As TreeView, ByVal intParentNode As Integer, ByRef objVSSDatabase As SourceSafeTypeLib.VSSDatabase, Optional ByVal szProjectRoot As String = "$/", Optional ByVal bIncludeFiles As Boolean = True) Static iTreeLevel As Short Dim objVSSItem As SourceSafeTypeLib.VSSItem Dim tvwNode As TreeNode Dim strNodeName As String On Error GoTo Err_handler If iTreeLevel = 0 Then SmartClearNodes(tvwControl) strNodeName = szProjectRoot.ToString() tvwNode = New TreeNode(strNodeName) tvwControl.Nodes.Add(tvwNode) End If iTreeLevel = iTreeLevel + 1 If objVSSDatabase.VSSItem(szProjectRoot).Type = SourceSafeTypeLib.VSSItemType.VSSITEM_PROJECT Then For Each objVSSItem In objVSSDatabase.VSSItem(szProjectRoot).Items() If objVSSItem.Type = SourceSafeTypeLib.VSSItemType.VSSITEM_PROJECT Then strNodeName = objVSSItem.Name tvwNode = New TreeNode(strNodeName) tvwControl.Nodes(intParentNode).Nodes.Add(tvwNode) PopulateVSSTree(tvwControl, tvwNode.Index(), objVSSDatabase, szProjectRoot & objVSSItem.Name.ToString & "/", bIncludeFiles) Else If bIncludeFiles Then strNodeName = objVSSItem.Name tvwNode = New TreeNode(strNodeName) tvwControl.Nodes(intParentNode).Nodes.Add(tvwNode) End If End If Next objVSSItem End If Exit_Sub: iTreeLevel = iTreeLevel - 1 Exit Sub Err_handler: iTreeLevel = 0 Err.Raise(Err.Number, Err.Source, Err.Description) End Sub [/CODE] First I realize the error handling section needs to be corrected using the .Net Try..Except..Finally method but that isn't my immediate problem. My problem is when I recursively call the sub, how do I identify the parent node to which I should add this child node. In VB6 the Node.Add function let me pass in a relative reference (parent key), the relationship type (Child), key for the new node, and the node text. In the .Net version it is basically Node.Add (node text) so somehow I need to point the node to the nodes parent. I was trying this by passing in the Node.Index of the node I just created but that doesn’t work. What I should get is the following [CODE] $/ - MXT AFCEE _Access - AFCEE Data Gathering Database Documentation - Final Report Final Documentation FinalizedProcesses - CCB PMR .... Etc, etc. [/CODE] What I actually get is the following [CODE] $/ MXT AFCEE _Access AFCEE Data Gathering [/CODE] And that’s it. As you can see, AFCEE_Access and AFCEE Data Gathering are not children to MXT and also there aren’t any other children. Can anyone suggest a solution to my problem? Thanks Richard Anderson [/QUOTE]

Verification