| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1075 人关注过本帖
标题:VB treeview控件的问题
只看楼主 加入收藏
你好毒
Rank: 1
等 级:新手上路
帖 子:6
专家分:7
注 册:2010-11-28
结帖率:0
收藏
 问题点数:0 回复次数:1 
VB treeview控件的问题
使用Treeview控件,有错误,请帮忙。Public Sub MakeTree(tvwX As TreeView)
 Dim nodX As Node
 Dim sNodeKey As String
 Dim sRelative As String
 Dim MsgText As String
 txtSQL = "select * from 系部"
 Set mrc = ExecuteSQL(txtSQL, MsgText)
 '添加系
 Do Until mrc.EOF
 sNodeKey = "X" & mrc("系部代码").Value
 Set nodX = tvwX.Nodes.Add(, , sNodeKey, mrc("系部名称").Value)
 nodX.Tag = "系"
 mrc.MoveNext
 Loop
 mrc.Close
 txtSQL = "select * from 专业"
 Set mrc = ExecuteSQL(txtSQL, MsgText)
 '添加专业
 Do Until mrc.EOF
 sNodeKey = "X" & mrc("专业代码").Value
 sRelative = Mid$(sNodeKey, 1, 3)
 Set nodX = tvwX.Nodes.Add(, , sNodeKey, mrc("专业名称").Value)
 nodX.Tag = "专业"
 mrc.MoveNext
 Loop
 mrc.Close
 txtSQL = "select * from 班级"
 Set mrc = ExecuteSQL(txtSQL, MsgText)
 '添加班级
 Do Until mrc.EOF
 sNodeKey = "X" & mrc("班号").Value
 sRelative = Mid$(sNodeKey, 1, 5)
 Set nodX = tvwX.Nodes.Add(, , sNodeKey, mrc("班级名称").Value)
 nodX.Tag = "班级"
 mrc.MoveNext
 Loop
 mrc.Close
 Set tvwX.SelectedItem = tvwX.Nodes(1)
 Set mrc = Nothing
 Set nodX = Nothing
 End Sub
 Private Sub Form_Load()
 Call comboAddItem(Combo2, "班级", 0)
 Call comboAddItem(Combo3, "系部", 0)
 Call MakeTree(TreeView1)
 End Sub
 代码是这样写的,可是显示的时候不分层啊,老是一下子全部显示出来了!请大家帮忙,
搜索更多相关主题的帖子: treeview 控件 
2010-12-14 16:55
WSYGC
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-5-19
收藏
得分:0 
在 Visual Basic 6.0 中,TreeView 控件的 SingleSel 属性用来确定在节点选中时是否展开以显示其子节点。如果将此属性设置为 True,则在选中节点时展开该节点,并折叠起先前选择的节点。

在 Visual Basic 2008 中,不再存在 SingleSel 属性。默认情况下,在单击节点时不会展开节点(默认情况相当于在 Visual Basic 6.0 中将 SingleSel 设置为 False)。可以使用 AfterSelect 事件来确定是否选择了某个节点,然后使用 Expand 或 Collapse 方法控制展开行为。

Image 和 SelectedImage 属性
在 Visual Basic 6.0 中,可以将 SelectedImage 属性分配给 TreeView 控件节点,而不用分配 Image 属性。

在 Visual Basic 2008 中,TreeView 控件的 TreeNode 对象在没有 Image 属性的情况下,不能具有 SelectedImage 属性。如果需要模拟 Visual Basic 6.0 的行为,可以将一个空图像分配给 Image 属性。

2011-01-04 08:28
快速回复:VB treeview控件的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027824 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved