1
clic en el botón " Inicio" de Windows . Seleccione " Microsoft Office" y " Microsoft Visual Studio ".
2
clic en "Abrir " y seleccione el programa de Visual Basic con el TreeView que desea editar .
3
Agregue el siguiente código después de la línea " CurrentDb.Execute strSQL " en su programa :
Private Sub treeView1_MouseDown (remitente As Object , _
e como System.Windows.Forms.MouseEventArgs )
mySelectedNode = treeView1.GetNodeAt (Ex , Ey )
End Sub Private Sub
menuItem_Click (remitente como objeto, e como System.EventArgs )
< p > Si No ( mySelectedNode es nada ) Y _
No ( mySelectedNode.Parent es nada ) Entonces
treeView1.SelectedNode = mySelectedNode
treeView1.LabelEdit = True
Si No mySelectedNode.IsEditing Entonces
mySelectedNode.BeginEdit ()
End If
demás
MessageBox.Show ("No nodo del árbol . " & _
Microsoft.VisualBasic.ControlChars.Cr & _
" no se permite la edición. "," error de selección » )
End If
< p > End Sub Private Sub
treeView1_AfterLabelEdit (remitente As Object , _
e como System.Windows.Forms.NodeLabelEditEventArgs )
Si No ( e.Label es nada ) entonces
Si e.Label.Length > 0 Entonces
Si e.Label.IndexOfAny (New Char ( ) { c " @" , "." c " , " c ", " c } ) = -1 Entonces
e.Node.EndEdit (Falso )
demás
e.CancelEdit = True
MessageBox.Show ( " etiqueta de un nodo del árbol no válido . " & _
Microsoft.VisualBasic.ControlChars.Cr & _
" Los caracteres no válidos son: '@' , , ',' , ' . ' ! ' ", _
" Node Label Edit " )
e.Node.BeginEdit ()
End If
demás
< p > e.CancelEdit = True
MessageBox.Show ( " etiqueta de un nodo del árbol no válido . " & _
Microsoft.VisualBasic.ControlChars.Cr & _
" La etiqueta no puede estar en blanco " , " Node Label Edit " )
e.Node.BeginEdit ()
End If
End If End Sub
Esto obligar a la TreeNode con el puntero del ratón.
4 Haga clic en " archivo" y " guardar" para guardar el TreeNode edición del TreeView en su programa de VB.NET .