SUBIR / BAJAR HIJOS DENTRO DE UN TREEVIEW EN VB.NET

0 comentarios
Aqui os dejo el codigo necesario para bajar o subir de orden entre hijos de un nodo de un treeview para VB.NET. El codigo lo podeis poner dentro del evento click de un boton.

            Dim parentObj As Object = trvArbol.SelectedNode.Parent

            If parentObj Is Nothing Then
                parentObj = trvArbol
            End If

            Dim selectedNode As TreeNode = trvArbol.SelectedNode
            Dim idxSelected As Integer = selectedNode.Index
            Dim idxNext As Integer

            If selectedNode IsNot Nothing Then
                Dim prevNode As TreeNode = trvArbol.SelectedNode.PrevNode
                If prevNode IsNot Nothing Then
                    idxNext = prevNode.Index
                    If TypeOf parentObj Is TreeNode Then
                        CType(parentObj, TreeNode).Nodes.Remove(CType(parentObj, TreeNode).Nodes(idxSelected))
                        CType(parentObj, TreeNode).Nodes.Insert(idxNext, selectedNode)
                    Else
                        CType(parentObj, TreeView).Nodes.Remove(CType(parentObj, TreeView).Nodes(idxSelected))
                        CType(parentObj, TreeView).Nodes.Insert(idxNext, selectedNode)
                    End If

                    If TypeOf parentObj Is TreeNode Then
                        trvArbol.SelectedNode = CType(parentObj, TreeNode).Nodes(idxNext)
                    Else
                        trvArbol.SelectedNode = CType(parentObj, TreeView).Nodes(idxNext)
                    End If
                End If
            End If




¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

0 comentarios:

Publicar un comentario

Related Posts Plugin for WordPress, Blogger...
Copyright 2011 INFORMATICUCHO.
Blogger Template by Noct.