Help in converting to VB.NET

[Guest]

Hi All,
Can anybody help in converting the code below to VB.NEt thanks.
I need the loop converted..
thanks

Private Sub expandCollapseAllTreeviewNodes(ByVal nodes As
TreeNodeCollection, ByVal expand As Boolean)
Dim node As TreeNode
'Loop through each node of the collection and expand it.
For Each node In nodes
if(expand)
{
node.Expanded = true;
expandCollapseAllTreeviewNodes(node.Nodes, expand)

}
else

{
node.Expanded = true;
expandCollapseAllTreeviewNodes(node.Nodes, expand)

}


Next

 

[Karl]

The code below is like 80% in VB.Net..and the FOR loop is converted.....

Private Sub expandCollapseAllTreeviewNodes(ByVal nodes As
TreeNodeCollection, ByVal expand As Boolean)
For Each node As TreeNode In nodes
If expand Then
node.Expanded = True
expandCollapseAllTreeviewNodes(node.Nodes, expand)
Else
node.Expanded = True
expandCollapseAllTreeviewNodes(node.Nodes, expand)
End If
Next
End Sub


Karl

 

[Scott M.]

Private Sub expandCollapseAllTreeviewNodes(ByVal nodes As
TreeNodeCollection, ByVal expand As Boolean)
Dim node As TreeNode
'Loop through each node of the collection and expand it.
For Each node In nodes
If expand Then
node.Expanded = true
expandCollapseAllTreeviewNodes(node.Nodes, expand)
Else
node.Expanded = true
expandCollapseAllTreeviewNodes(node.Nodes, expand)
End If
Next
End Sub

 

[Cowboy \(Gregory A. Beamer\)]

The majority of what you have shown can be converted simply by removing the
semicolons. The IF needs a Then at the end of the line and you need to turn
the final } into an End If.

--
Gregory A. Beamer
MVP; MCP: +I, SE, SD, DBA

*************************************************
Think outside the box!
*************************************************

 

[Scott M.]

For Each node As TreeNode In nodes....

Should be: For Each node In nodes

since "nodes" is already declared as TreeNodeCollection