微软treeview控件能不能直接在树中进行编辑呢?
假定有一个root 下面有child1,child2,child3
在child1下面有child1-1
在child2下面有child2-1
在child3下面有child3-1
问题是我只点child1或child2或child3时使一个command控件有效,其他都无效dim nodx as node
treeview1.nods.add , , "root","root"
set nodx=treeview1.nods.add ("root",4,"child1","child1")
treeview1.nods.add("root",4,"child2","child2")
treeview1.nods.add("root",4,"child3","child3")
treeview1.nods.add("child1",4,"child1-1","child1-1")
treeview1.nods.add("child2",4,"child2-1","child2-1")
treeview1.nods.add("child3",4,"child3-1","child3-1")
nodx.EnsureVisible
上面中nodx只是root的节点对象,nodx.child.key应该是child1
nodx.next是什么意思呢?是不是child2呢,但好象不是
假定有一个root 下面有child1,child2,child3
在child1下面有child1-1
在child2下面有child2-1
在child3下面有child3-1
问题是我只点child1或child2或child3时使一个command控件有效,其他都无效dim nodx as node
treeview1.nods.add , , "root","root"
set nodx=treeview1.nods.add ("root",4,"child1","child1")
treeview1.nods.add("root",4,"child2","child2")
treeview1.nods.add("root",4,"child3","child3")
treeview1.nods.add("child1",4,"child1-1","child1-1")
treeview1.nods.add("child2",4,"child2-1","child2-1")
treeview1.nods.add("child3",4,"child3-1","child3-1")
nodx.EnsureVisible
上面中nodx只是root的节点对象,nodx.child.key应该是child1
nodx.next是什么意思呢?是不是child2呢,但好象不是
解决方案 »
- 关于VB用GetDIBits()获得三维数组后,如何将像素点坐标的颜色值对应?
- Vb 向excel写入数据得问题
- 求VB+API代码:启用guest帐户并把......
- 在vb中如何解决word表格合并的问题 小弟实在不懂了,请帮我一把好吗!先谢谢了
- 不用FSO,用API是否能列出指定目录下的文件或文件夹??
- 狂送100分(36)
- 如何处理Memory can not be read 的问题
- 不引用ADO而直接使用CreatObject("ADO.RecordSet")会是哪个版本呢?(假如机器上有多个版本2.0 2.1 2.5 2.6 2.7...)
- 求助!?
- 急:请教如何在VB中调用.flc等动画文件
- VB+ADO连接MySQL数据库,为何不能产生FetchProgress和FetchComplete事件.
- 请问各位高手作报表有什么好的解决方案?
对 node 判断是不是 child1或child2或 child3就可以设置 Command 控件是否有效了
2、nodex 的 next 应该是他同级的节点,这里应该是 child2
Dim n As Node
Static i As Integer
i = i + 1
If TreeView1.Nodes.Count = 0 Then
Set n = TreeView1.Nodes.Add(, , , "计算机系", i)
Else
Set n = TreeView1.Nodes.Add(TreeView1.Nodes(1), tvwLast, , "输入系名", i)
End If
n.Selected = True
TreeView1.StartLabelEdit
End SubPrivate Sub Command2_Click()
If TreeView1.Nodes.Count = 0 Then Exit Sub
Dim n As Node
Dim i As Integer
i = TreeView1.SelectedItem.Index
If TreeView1.Nodes(i).Parent Is Nothing Then
Set n = TreeView1.Nodes.Add(i, tvwChild, , "输入班级", i)
Else
Set n = TreeView1.Nodes.Add(i, tvwLast, , "输入班级", i)
End If
n.EnsureVisible
n.Selected = True
TreeView1.StartLabelEdit
能,当然能.
TreeView1.StartLabelEdit是vb处于可编辑状态