重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Public Class Form1
波密网站制作公司哪家好,找成都创新互联公司!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作,到程序开发,运营维护。成都创新互联公司自2013年创立以来到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联公司。
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
经过测试是可以正常工作的,但是要注意,因为默认情况下直接点右键是不能实现选中的,所以你要先左键选中,再点右键。
这个问题好笼统呀
如果你问的是希望存入treeview 的内容不重复,那么查找key项是必然的了
如果只是怕 treeview 中编号已使用了,以至于重复添加导致的错误,那么Item或SubItem的Add命令本身就是在最新位置插入。
当然,你要是不想插入相同内容,且相同内容使用独立单一空间或位置插入的话,你只需要把这个控件的Tag属性绑定到你要存入的节点项目体
Object1.Tag = Object2
Object1 为输入控件或项目
Object2 为要存入的控件或项目(可以插入节点类的)