|
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
本文來(lái)自: 乘風(fēng)原創(chuàng)程序(http://www.) 詳細(xì)出處參考：http://study./web/161/17235.htm?4256690924=4241702146 |
|
|
