我不会用treeview控件!高手请指教!
Night_Cai
Night_Cai
解决方案 »
- 我用vb制作了一个程序,运行一段时间后就会弹出运行错误提示!我一点确定程序就关闭了!如何实现点击确定后重启软件!!真心求教
- 怎样获取自定义类模块的所有成员?
- 转换其他语言的数据类型
- 请问如何得到一个目录下所有的子目录的名字和总数?
- 在MSFlexGrid 不断地添加数据时,怎样能够不用拖动滚动条而让当前数据显示出来???
- WebBrowser控件没双击事件
- 在线等待,数据UPDATE不上了~~!!急啊!
- vb如何改变fastreport的数据连接
- 请教:如何用sql语句选出access 中最新的若干条记录
- 怎样使ListView中的项目不可移动?
- 紧急求助!!!!不懂得别进来!!关于数据库的问题
- 如何在vb里播放GIF动画
看看我的代码
'设置 Treeview 控件属性。
TreeView1.LineStyle = tvwRootLines ' Linestyle 1 '添加 Node 对象。
Dim nodX As Node '声明 Node 变量。
'带有文本 'Root' 的第一个节点。
Set nodX = TreeView1.Nodes.Add(, , "r", "Root") '下一个节点是节点 1 ("Root") 的子节点。
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")End Sub注意:key 需以字母开头,字母和数字和其它字符组合
一个结点可以没有Key ,
TreeView1.ImageList = ImageList1
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "R", "Root", 1)
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1", 2)
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2", 3)
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3", 4)
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4", 5)
nodX.EnsureVisibleKey必须唯一,以上"Root","C1", "C2", "C3", "C4"都是Key上面示例中,Imagelist中至少要有五个图片
下面是判断哪一个被点了的代码
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Select Case Node.Key
Case "R"
MsgBox "Root selected"
Case "C1"
MsgBox "Child 1 selected"
End Select
End Sub