浅谈DOM之八：处理节点(4)

roych

       讲解完如何操作节点之后，现在开始讲讲如何读取节点。和树控件类似地，读取节点也可以通过遍历来完成。事实上，DOM提供了四个方法来读取节点。第一个子节点（firstChild）、下一个兄弟节点（nextSibling）、上一个兄弟节点（previousSibling）和最后一个子节点（lastChild）。显然，除非同一级别，否则兄弟节点都是结合子节点来完成的。例如，想按顺序读取body里的节点，就必须写这样的伪代码：body.第一个子节点.下一个兄弟节点……一直next到最后一个子节点位置。代码都比较简单，这里就不再一一解释了。

1. '第一个节点
   
2. Private Sub cmdFirstChild_Click()
   
3. Dim wb As WebBrowser
   
4. Dim doc As HTMLDocument
   
5. 
   
6. Set wb = Me.WebBrowser0.Object
   
7. Set doc = wb.Document
   
8. 
   
9. MsgBox doc.querySelector("body").firstChild.outerHTML
   
10. End Sub
    
11. '最后一个节点
    
12. Private Sub cmdLastChild_Click()
    
13. Dim wb As WebBrowser
    
14. Dim doc As HTMLDocument
    
15. 
    
16. Set wb = Me.WebBrowser0.Object
    
17. Set doc = wb.Document
    
18. 
    
19. MsgBox doc.querySelector("body").lastChild.outerHTML
    
20. End Sub
    
21. '第二个节点
    
22. Private Sub cmdNextSibling_Click()
    
23. Dim wb As WebBrowser
    
24. Dim doc As HTMLDocument
    
25. 
    
26. Set wb = Me.WebBrowser0.Object
    
27. Set doc = wb.Document
    
28. 
    
29. MsgBox doc.querySelector("body").firstChild.nextSibling.outerHTML
    
30. End Sub
    
31. '倒数第二个节点
    
32. Private Sub cmdPervSibling_Click()
    
33. Dim wb As WebBrowser
    
34. Dim doc As HTMLDocument
    
35. 
    
36. Set wb = Me.WebBrowser0.Object
    
37. Set doc = wb.Document
    
38. 
    
39. MsgBox doc.querySelector("body").lastChild.previousSibling.outerHTML
    
40. End Sub

复制代码

        至此，关于节点的讲解已经全部讲完。上一节 下一节

ipqfhvk

用.NET表示如下

风中漫步

谢谢分享