Private Sub Form_Load()
Dim mnode As Node
Dim i As Long
For i = 1 To 4
Set mnode = Me.TreeView1.Nodes.Add(, , , "root " + CStr(i))
mnode.Expanded = True
Me.TreeView1.Nodes.Add mnode, tvwChild, , "sub 1"
Me.TreeView1.Nodes.Add mnode, tvwChild, , "sub 2"
Next
Set lastnode = Me.TreeView1.Nodes.Add(, , , "last")
lastnode.Expanded = True
Me.TreeView1.Nodes.Add lastnode, tvwChild, , "sub 1"
Me.TreeView1.Nodes.Add lastnode, tvwChild, , "sub 2"
End Sub
模块:
Option Explicit
Public lastnode As Node
sSql = "Select SITEID, GROUPNAME, GROUPID From SITEGROUP ORDER BY GROUPNAME "
Set QrySelect = g_Cn.CreateQuery("", sSql)
Set Rs = QrySelect.OpenResultset(rdOpenForwardOnly)
''''Sites
For Each oTreeNode In oNodeProvider.Sites
Set nodX = .Add(oTreeNode.ParentKey, tvwChild, oTreeNode.Key, oTreeNode.Name, 2, 2)
nodX.Tag = eSiteLogOff
Next
''''RemoteSites
For Each oTreeNode In oNodeProvider.RemoteSites
Set nodX = .Add(oTreeNode.ParentKey, tvwChild, oTreeNode.Key, oTreeNode.Name, 2, 2)
nodX.Tag = eRemoteSite
Next
''''Groups
For Each oTreeNode In oNodeProvider.Groups
Set nodX = .Add(oTreeNode.ParentKey, tvwChild, oTreeNode.Key, oTreeNode.Name, 3, 3)
nodX.Tag = eGroupNode
Next
''Modify By Vincent/2003/03/14 下午 02:04:30 Friday 修正原因:加入起始進度視窗
Dim nTemp As Collection
Dim iCount As Long
Set nTemp = oNodeProvider.Sensors
'@@@vincent
frmDataReciveProgress.Caption = TransText("Initiating computer directory")
frmDataReciveProgress.Show
frmDataReciveProgress.MaxValue = nTemp.Count
''''Sensors
''''將所有 Sensor 變成灰色
For Each oTreeNode In nTemp
''''Modify By Vincent/2001/10/30 PM 06:00:29 Tuesday 修正原因:加入作業平台圖示
'' If oTreeNode.Platform <> "Unknown" And oTreeNode.Platform <> "" Then
If IsSupportPlatform(oTreeNode.Platform) Then
Set nodX = .Add(oTreeNode.ParentKey, tvwChild, oTreeNode.Key, oTreeNode.Name, oTreeNode.Platform & "1", oTreeNode.Platform & "2")
Else
Set nodX = .Add(oTreeNode.ParentKey, tvwChild, oTreeNode.Key, oTreeNode.Name, 4, 5)
End If
nodX.Tag = eSensorLogOff
nodX.ForeColor = RGB(198, 198, 198)
iCount = iCount + 1
frmDataReciveProgress.NowValue = iCount
frmDataReciveProgress.Caption = TransText("Initiating computer directory") & " " & iCount & "/" & nTemp.Count
DoEvents
Next
.Item(1).Expanded = True
Unload frmDataReciveProgress
End With
TreeView1.Visible = True
End Sub
Private Sub Command1_Click()
Dim mnode As Node
k = k + 1
Set mnode = Me.TreeView1.Nodes.Add(lastnode, tvwPrevious, , "new " + CStr(k))
mnode.Expanded = True
Me.TreeView1.Nodes.Add mnode, tvwChild, , "sub 1"
Me.TreeView1.Nodes.Add mnode, tvwChild, , "sub 2"
End Sub
Private Sub Form_Load()
Dim mnode As Node
Dim i As Long
For i = 1 To 4
Set mnode = Me.TreeView1.Nodes.Add(, , , "root " + CStr(i))
mnode.Expanded = True
Me.TreeView1.Nodes.Add mnode, tvwChild, , "sub 1"
Me.TreeView1.Nodes.Add mnode, tvwChild, , "sub 2"
Next
Set lastnode = Me.TreeView1.Nodes.Add(, , , "last")
lastnode.Expanded = True
Me.TreeView1.Nodes.Add lastnode, tvwChild, , "sub 1"
Me.TreeView1.Nodes.Add lastnode, tvwChild, , "sub 2"
End Sub