Private Sub Command1_Click()
Dim nodX As Node
Dim i As Integer
Dim j As Integer
TreeView1.LineStyle = tvwRootLines
For i = 1990 To 2009
Set nodX = TreeView1.Nodes.Add(, , , i & "年")
Next
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(20 + j, tvwChild, , CStr(Day(Now)) & "日")
End Sub
treeview创建根节点和子节点孙节点
最新推荐文章于 2023-03-07 14:02:23 发布