给TreeView控件添加节点一例

发布: 2007-6-21 21:57 | 作者: | 来源: | 查看: 22次 | 进入软件测试论坛讨论

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

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/

软件测试论坛

领测软件测试网最新更新

软件测试技术相关文章

软件测试培训信息

最新软件测试技术专题

最新领测软件测试网新闻

软件测试技术文章排行榜

编辑推荐
周排行
月排行

软件测试技术分类最新内容