给TreeView控件添加节点一例

文章： | | | | | | | | | |

您当前的位置：中国IT资源网 -> 文章 -> 软件开发 -> VB -> 文章内容

　给TreeView控件添加节点一例

本例给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

【评论】【打印】【大中小】【关闭】

如何用Line控件做出分隔线

控件数组的操作技巧




关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - 在线投稿中国IT资源网版权所有 Copyright © 2002-2006 Gz235.Com All Rights Reserved 中华人民共和国电信与信息服务业务经营许可证编号粤ICP备05022918号本站在线服务QQ：105754049 程序定制：105754049 广告受理/投搞/投诉：105754049 本站所提供的程序均来自于 Internet(下载后首先检测是否有毒),仅供学习使用。因其产生的一切问题本站不负任何责任