Office中國(guó)論壇/Access中國(guó)論壇 › Access中國(guó)門(mén)戶舊版 ›Access源碼› 加載項(xiàng)/外接程序 › 查看內(nèi)容

淺談DOM之二：選擇器（1）

摘要: DOM操作的是網(wǎng)頁(yè)元素，顯然，我們需要一個(gè)網(wǎng)頁(yè)腳本的運(yùn)行環(huán)境。那么顯然，我們可以選擇IE、火狐等等作為運(yùn)行環(huán)境。不過(guò)，我們還有一個(gè)更好的選擇，就是Access內(nèi)置的Webbrowser控件（需要惡補(bǔ)相關(guān)知識(shí)版友請(qǐng)點(diǎn)擊這里 ...

   DOM操作的是網(wǎng)頁(yè)元素，顯然，我們需要一個(gè)網(wǎng)頁(yè)腳本的運(yùn)行環(huán)境。那么顯然，我們可以選擇IE、火狐等等作為運(yùn)行環(huán)境。不過(guò)，我們還有一個(gè)更好的選擇，就是Access內(nèi)置的Webbrowser控件（需要惡補(bǔ)相關(guān)知識(shí)版友請(qǐng)點(diǎn)擊這里）。

   確定了運(yùn)行環(huán)境之后，我們就開(kāi)始使用DOM吧。
   我們沿用上一節(jié)的文件，在窗體上插入一個(gè)Webbrowser控件，然后增加加載事件。這樣就可以把網(wǎng)頁(yè)加載到webbrowser里了：

Private Sub Form_Load()
'定義webbrowser和html文檔
Dim wb As WebBrowser
Dim doc As HTMLDocument
Set wb = Me.WebBrowser0.Object
wb.Navigate CurrentProject.Path & "\test.html"
Set doc = wb.Document
End Sub

復(fù)制代碼

   第一種選擇器：getElementsByTagName【注：考慮到兼容性，IE6專用的document.all("p")之類就不說(shuō)了】
   這是一種根據(jù)標(biāo)簽名來(lái)選擇元素的選擇器。例如，我們需要選擇p元素，就可以使用：document.getElementsByTagName("p")。需要注意的是，這是選擇了所有的p元素。如果需要選擇第一個(gè)怎么辦？那么只能用item下標(biāo)（DOM的下標(biāo)是從0開(kāi)始的）來(lái)表示了。
   如果需要選擇它的文本，則可以通過(guò)innerText或者TextContent屬性來(lái)實(shí)現(xiàn)。需要說(shuō)明的是，innerText并非EMCAScript（即JavaScript）的標(biāo)準(zhǔn)，但I(xiàn)E及火狐均支持這一屬性。它們的區(qū)別在于，TextContent是移除標(biāo)簽后的文本，而innerText則會(huì)根據(jù)實(shí)際重新排列過(guò)，例如內(nèi)置文本有分行時(shí)。

   選擇是解決了。那么，對(duì)DOM增刪改怎么辦？我們至少有兩種辦法：修改HTML代碼，或者處理節(jié)點(diǎn)。我們這里先從簡(jiǎn)單的修改HTML代碼說(shuō)起。假定不需要增加節(jié)點(diǎn)的話，我們可以重新設(shè)置innerText，否則就應(yīng)該修改innerHTML了。例如：

Private Sub cmdCreate_Click()
Dim wb As WebBrowser
Dim doc As HTMLDocument

復(fù)制代碼

test.rar 上一節(jié) 下一節(jié)

收藏分享邀請(qǐng)

上一篇：淺談DOM之二：選擇器（1）

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			注冊(cè)

淺談DOM之二：選擇器（1）

最新評(píng)論

相關(guān)分類