Что должна делать программа: читать XML файл и записывать его в объект TreeView...
C первой частью вроде всё нормально, но вот непонимаю как записать каждую группу в отдельную ветку в TreeView, предостовляю код:
| Код |
Private m_hwndTV As Long
Private Sub Command1_Click()
Dim objXML As MSXML2.DOMDocument
Dim strXML As String
Dim x As String
Set objXML = New MSXML2.DOMDocument
objXML.Load ("Путь к файлу")
Open "Путь к фалу" For Input As 1
Line Input #1, x
x = Mid(x, 2, Len(x) - 2)
Text2.Text = x
For Each objSub In objXML.selectNodes("//" & x)
Text1.Text = objSub.xml
Next
Dim i As Integer
Dim nod As Node
With TreeView1
.HideSelection = False
.Indentation = 10 * Screen.TwipsPerPixelX
.LabelEdit = tvwManual
.LineStyle = tvwRootLines
m_hwndTV = .hWnd
End With
Set objElem = objXML.selectSingleNode("//" & x)
For Each objSub In objElem.childNodes
Set nod = TreeView1.Nodes.Add(, , , "имя родителя, которое я не знаю как найти")
Call AddChildrenNodes(nod.Index, 1, "имя ребёнка, которое я не знаю как найти")
Call SetNodeButton(nod, True)
nod.Expanded = True
Next
TreeView1.Nodes(1).Selected = True
Close #1
End Sub
Private Sub AddChildrenNodes(iParent As Integer, nNodes As Integer, name As String)
Dim nodeChild As Node
Dim i As Integer
For i = 1 To nNodes
Set nodeChild = TreeView1.Nodes.Add(iParent, tvwChild, , name & i)
Call SetNodeButton(nodeChild, False)
Next
End Sub
Private Function SetNodeButton(nod As Node, fAddButton As Boolean) As Boolean
Dim hItem As Long
hItem = GetTVItemFromNode(m_hwndTV, nod)
If hItem Then
SetNodeButton = SetTVItemButton(m_hwndTV, hItem, fAddButton)
End If
End Function
|
Спасибо заранее. |
)
оно тебе зачем?