Nudge TreeNode Sibling Order Up or Down

[dutsnekcirf]

I found this article on how to nudge the treenode items up or down in the order of a treeview control. The problem is it's in C# and I know nothing about C#. In fact, C# scares me (I think it's the pound sign, idk...or maybe it's the letter C) I've included the code here. Could someone do me the huge favor of converting it to VB.Net?

public bool NudgeDown(TreeNode node)
     {
 
       int newIndex = 0;
       TreeNode nodeClone = null;
 
 
       try
       {
 
         if (node == null) { return false; }
 
         newIndex = node.Index + 2;
 
         if (newIndex > node.Parent.Nodes.Count) { return false; }
 
 
         nodeClone = (TreeNode)node.Clone();
 
         node.Parent.Nodes.Insert(newIndex, nodeClone);
 
         node.Parent.Nodes.Remove(node);
 
         nodeClone.TreeView.SelectedNode = nodeClone; 
 
        }
        catch (Exception) { throw; }
        return true;
     }
 
 
     public bool NudgeUp(TreeNode node)
     {
       int newIndex = 0;
       TreeNode nodeClone = null;
 
       try
       {
 
         if (node == null) { return false; }
 
         if (node.Index == 0) { return false; }
 
         newIndex = node.Index - 1;
 
         nodeClone = (TreeNode)node.Clone();
 
         node.Parent.Nodes.Insert(newIndex, nodeClone);
 
         node.Parent.Nodes.Remove(node);
 
         nodeClone.TreeView.SelectedNode = nodeClone; 
       }
       catch (Exception) { throw; }
       return true;
    }

[Curtis Rutland]

Well, we can't do your work for you, but we can help you make it easier.

Try it yourself, and we can help you when you get stuck. Trust me, it's worth the effort. Since the languages work on the same Framework, and they aren't that ridiculously different, it makes sense to understand the basics of the one you aren't going to use. That way, you will be able to understand examples, and won't need someone to translate everything for you.

Here's a great resource to get you started:
http://www.harding.edu/fmccown/vbnet...omparison.html
Its a conversion chart. It lists the way VB.NET does things, and the way C# does things.

And I promise, when you are done, you'll be less scared of C#.

[dutsnekcirf]

I actually figured it out on my own, but I will use that link from now on. And you're right, I'm not nearly as afraid of C# as I was before.

Here's the code:

Private Sub NudgeUpButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NudgeUpButton.Click
 
        Dim NodeClone As TreeNode = Nothing
        Dim node As TreeNode = PredatorTreeview.SelectedNode
        Dim NewIndex = 0
 
        Try
 
            If node Is Nothing Then
 
                MsgBox("Please select a node to nudge.")
                Exit Sub
 
            Else
 
                NewIndex = node.Index - 1
 
                If NewIndex > node.Parent.Nodes.Count Then Exit Sub
 
                NodeClone = node.Clone
 
                node.Parent.Nodes.Insert(NewIndex, NodeClone)
 
                node.Parent.Nodes.Remove(node)
 
                PredatorTreeview.SelectedNode = NodeClone
 
                End If
 
        Catch ex As Exception
 
            MsgBox(ex.Message)
 
        End Try
 
    End Sub
 
    Private Sub NudgeDownButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NudgeDownButton.Click
 
        Dim NodeClone As TreeNode = Nothing
        Dim node As TreeNode = PredatorTreeview.SelectedNode
        Dim NewIndex = 0
 
        Try
 
            If node Is Nothing Then
 
                MsgBox("Please select a node to nudge.")
                Exit Sub
 
            Else
 
                NewIndex = node.Index + 2
 
                If NewIndex > node.Parent.Nodes.Count Then Exit Sub
 
                NodeClone = node.Clone
 
                node.Parent.Nodes.Insert(NewIndex, NodeClone)
 
                node.Parent.Nodes.Remove(node)
 
                PredatorTreeview.SelectedNode = NodeClone
 
                End If
 
        Catch ex As Exception
 
            MsgBox(ex.Message)
 
        End Try
 
    End Sub