Форум программистов, компьютерный форум, киберфорум
mozgotron
Войти
Регистрация
Восстановить пароль
Оценить эту запись

VB .NET Вставка, выделение, переименование и удаление выделенного узла в TreeView

Запись от mozgotron размещена 13.06.2020 в 23:07
Метки treenode, treeview

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
    Private Sub MenuNewNodeAboveSelected_Click(sender As Object, e As EventArgs) Handles MenuNewNodeAboveSelected.Click
        AddNewNode(0)
    End Sub
 
    Private Sub MenuNewNodeUnderSelected_Click(sender As Object, e As EventArgs) Handles MenuNewNodeUnderSelected.Click
        AddNewNode(1)
    End Sub
 
    Private Sub AddNewNode(iter As Short)
        Dim NewNodeIndex As Integer = TreeView1.SelectedNode.Index + iter
        Dim NewNode As TreeNode
        If (TreeView1.SelectedNode.Parent IsNot Nothing) Then
            NewNode = TreeView1.SelectedNode.Parent.Nodes.Insert(NewNodeIndex, "Новый узел")
        Else
            NewNode = TreeView1.Nodes.Insert(NewNodeIndex, "Новый узел")
        End If
        TreeView1.SelectedNode = NewNode
        BeginEditNode()
    End Sub
 
    Private Sub MenuNewChildNode_Click(sender As Object, e As EventArgs) Handles MenuNewChildNode.Click
        Dim NewNode As TreeNode = TreeView1.SelectedNode.Nodes.Add("Новый узел")
        If TreeView1.SelectedNode.IsExpanded = 0 Then TreeView1.SelectedNode.Expand()
        TreeView1.SelectedNode = NewNode
        BeginEditNode()
    End Sub
 
    Private Sub MenuRenameSelectedNode_Click(sender As Object, e As EventArgs) Handles MenuRenameSelectedNode.Click
        BeginEditNode()
    End Sub
 
    Private Sub BeginEditNode()
        If (TreeView1.SelectedNode IsNot Nothing) Then TreeView1.SelectedNode.BeginEdit()
    End Sub
 
    Private Sub MenuRemoveSelectedNode_Click(sender As Object, e As EventArgs) Handles MenuRemoveSelectedNode.Click
        If (TreeView1.SelectedNode IsNot Nothing) Then TreeView1.Nodes.Remove(TreeView1.SelectedNode)
    End Sub
Размещено в справка
Просмотров 179 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.