给TreeView控件添加节点一例--IT学习网——资源丰富的计算机教程库




庞大资源库的计算机教程网站！

		设为首页加入收藏总编信箱
投稿或申请专栏请先 [登陆]

首页	┊操作系统	┊程序设计	┊图形图像	┊媒体动画	┊机械电子	┊WEB开发	┊数据库	┊办公系列	┊路由技术	┊网络原理	┊网络应用┊
	┊认证考试	┊安全技术	┊

		首页>程序设计>VB专区>控件集锦>正文

资料搜索

Google搜索


	▍返回上级列表

给TreeView控件添加节点一例

作者：土人日期：2005-8-4 11:23:19

字号选择〖大中小〗/ 双击滚屏单击停止

本例给TreeView控件添加“父——子——子”节点。其中，父节点为“2001年”，第一子节点为12个月份，第二子节点添加在当月下的当天日期。

Private sub Form_Load()

Dim nodX As Node
Dim i As Integer
Dim j As Integer
TreeView1.LineStyle = tvwRootLines
Set nodX = TreeView1.Nodes.Add(, , "r", "2001年")
For i = 1 To 12
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , i & "月")
Next
nodX.EnsureVisible

j = CStr(Month(Now))
Set nodX = TreeView1.Nodes.Add(j + 1, tvwChild, , CStr(Day(Now)) & "日")

End Sub

上一篇：禁止在TextBox中输入下一篇：快速更改组控件属性

[发送给好友] [关闭窗口] [返回顶部] 转载请注明来源：www.it00.com


	特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

	责任编辑：原点	投稿作者：土人
	信息来源：网络	录入时间： 2005-8-4 11:23:19

关于我们 - 广告服务 - 版权申明 - 网站地图 - 联系方式 - 总编信箱 - 会员投稿



		Copyright ©2005 - 2008 IT00.COM，All Rights Reserved