vb.net节点 vbnet override

VB.NET中TreeView可以通过右击的方式进行节点添加吗？求助各位！

可以，但要先通过鼠标位置获取节点，不然得到的节点还是上一次选中的，不直观。

相关问答

Q1: VB.NET TREEVIEW获取父节点

软糖来回答罗。

treenode只有text和name两个string属性。

所以给你写的函数是返回string数组，如需要可自行转换类型Integer

    Private Function GetParents(ByVal node As TreeNode) As String()

        Dim list As New List(Of String)

        Do Until node.Parent Is Nothing

            node = node.Parent

            list.Add(node.Text)

        Loop

        Return list.ToArray()

    End Function

下面是Listbox1的测试代码，把父节点都添加到Listbox1（在Click后）

    Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click

        Dim k = GetParents(TreeView1.Nodes(0).Nodes(0).Nodes(0).Nodes(0))

        ListBox1.Items.AddRange(k)

    End Sub

Q2: VB.NET如何把treeview中的所有节点（包括子节点导出到txt中)并且还能导入回程序中

带索引导出，然后再通过索引导入。

比如文本（索引从零开始）：

0=h一级

0-0=hh二级

0-0-0=hh三级

0-0-1=hhh

0-1-0=hhj

1-0-0-0=jkk四级

可以将上级索引省略，关键是程序能够正确识别并导入，分隔符-和=可以选择文本中绝对不出现的字符，否则分割会有麻烦。

导入时先把行分割成lines数组。

然后通过=字符分割每行成为两部分。

通过-字符分割第一部分为N个部分，把这些部分通过cint转换为数字，重新成为treeview的索引，如果n=1那么就是一级节点，如果n=2那么就是二级节点，以此类推。

Q3: VB.NET中怎么给TreeView的父节点添加相对应的子节点？求助各位！

Public Class Form1

  Dim node(5) As TreeNode

  Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

      Dim root As TreeNode

      With TreeView1

          .Nodes.Clear()

          .ShowLines = True

          .ShowPlusMinus = True

          .ShowRootLines = True

          root = .Nodes.Add("仓库") '增加根节点

          .SelectedNode = root  '在此根节点下添加子节点

          For i = 1 To 6

              node(i - 1) = .SelectedNode.Nodes.Add(i.ToString  "号仓库")

          Next

          .ExpandAll()

      End With

  End Sub

  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

      If Val(TextBox1.Text) = 100 And Val(TextBox1.Text) = 699 Then

          node(Val(TextBox1.Text) \ 100 - 1).Nodes.Add(TextBox1.Text)

      End If

  End Sub

  Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

      If Val(TextBox2.Text) = 1000000 And Val(TextBox2.Text) = 6999999 Then

          For Each child As TreeNode In node(Val(TextBox2.Text) \ 1000000 - 1).Nodes

              If child.Text = TextBox2.Text.Substring(1, 3) Then

                  child.Nodes.Add(TextBox2.Text)

                  Exit For

              End If

          Next

      End If

  End Sub

End Class

关于vb.net节点和vbnet override的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。