Visual Basic.NET - empleado

   
Vista:

empleado

Publicado por Salvador (1 intervención) el 27/02/2009 17:39:37
Que tal buen dia, bueno solo para ver quein ,me podria iluminar tengo un codigo para un treeview en el cual me permite editar el contenido de sus nodos, el punto es esos nodos hace referencia a ubicaciones en el disco duro por lo cual requiero al modificarlo que realiza los cambios
en su labor de actualizacion no existe problema el problema es que cuando se realiza una actualizacion de un nodo o simplemente cuando entas en estado de edicion y te sales del nodo se cicla el codigo, podria alguien darme algun tip o aconsejarme, el codigo es:

Private PathAnterior As String

Private Sub TreeView1_AfterLabelEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.NodeLabelEditEventArgs) Handles TreeView1.AfterLabelEdit
Dim texto As String

TNDE = e.Node
BoleanodeGuardar = True
If Not (e.Label Is Nothing) Then
If e.Label.Length > 0 Then
If e.Label.IndexOfAny(New Char() {"@"c, "."c, ","c, "!"c}) = -1 Then
e.Node.EndEdit(False)
'BoleanodeGuardar = False
Else
e.CancelEdit = True
MessageBox.Show("Nombre de carpeta invalido." & _
Microsoft.VisualBasic.ControlChars.Cr & _
"los caracteres invalidos son: '@','.', ',', '!'", _
"Edición de carpeta")
BoleanodeGuardar = False
e.Node.BeginEdit()
End If
Else
e.CancelEdit = True
MessageBox.Show("Caracter Invalido" & _
Microsoft.VisualBasic.ControlChars.Cr & _
"El nodo no puede estar en blanco", "No se pudo editar el Nodo")
BoleanodeGuardar = False
e.Node.BeginEdit()
End If
End If
Try
texto = TNDE.FullPath
texto = texto.Replace("(", "")
texto = texto.Replace(")", "")

PathAnterior = Application.StartupPath & "" & texto
Catch ex As Exception
BoleanodeGuardar = False
End Try
If BoleanodeGuardar = True Then
Try
If e.Label.Trim.Contains("(") Or e.Label.Trim.Contains(")") Or e.Label.Trim.Contains("+") Or e.Label.Trim.Contains(",") Or e.Label.Contains("-") Or e.Label.Trim.Contains(" ") Or e.Label.Trim.Contains("*") Then
MessageBox.Show("La carpeta de contactos no puede contener los siguentes elementos:" & Chr(13) & "(, ), ., -, *, +, -, espacios, ', o caracteres especiales", "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ActualizarNodos()
Exit Sub
Else
My.Computer.FileSystem.RenameDirectory(PathAnterior, e.Label.Trim)
Me.TreeView1.LabelEdit = False
ActualizarNodos()
BoleanodeGuardar = False
End If
My.Computer.FileSystem.RenameDirectory(PathAnterior, e.Label.Trim)
Me.TreeView1.LabelEdit = False
ActualizarNodos()
BoleanodeGuardar = False
Catch ex As Exception
MessageBox.Show(ex.Message)
ActualizarNodos()
End Try
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder