向瀏覽器對象中的現有表添加行

Question

我已經在我的瀏覽器對象中加載了一個包含表格元素的網站。表格的ID是「MyTable2」。我需要能夠添加新的行。每一行看起來是這樣的：

<tr class="ms-rteTableOddRow-default" style="text-align:center"> 
    <th class="ms-rteTableFirstCol-default"></th> 
    <td class="ms-rteTableOddCol-default"></td> 
    <td class="ms-rteTableEvenCol-default">​</td> 
    <td class="ms-rteTableOddCol-default">​</td> 
    <td class="ms-rteTableEvenCol-default">​</td> 
    <td class="ms-rteTableOddCol-default"></td> 
    <td class="ms-rteTableEvenCol-default">​</td> 
</tr> 

我能夠通過

Dim element As HtmlElement = WebBrowser1.Document.GetElementById("table2") 

得到表元素我認爲這是可能與element.AppendChild（行）添加它，但我不知道知道如何從我的行創建一個hmmlelement，並且如何在我的webbrowser中顯示新行？

Answer 1

我設法創建一個解決方案：

Private Sub AddRowToTable2() 
    Dim element As HtmlElement = WebBrowser1.Document.GetElementById("table2") 
    Dim mTBody As HtmlElement = element.FirstChild 
    Dim mTR As HtmlElement = WebBrowser1.Document.CreateElement("TR") 
    Dim mTh As HtmlElement = WebBrowser1.Document.CreateElement("TH") 
    Dim mTDOdd1 As HtmlElement = WebBrowser1.Document.CreateElement("TD") 
    Dim mTDEven1 As HtmlElement = WebBrowser1.Document.CreateElement("TD") 
    Dim mTDOdd2 As HtmlElement = WebBrowser1.Document.CreateElement("TD") 
    Dim mTDEven2 As HtmlElement = WebBrowser1.Document.CreateElement("TD") 
    Dim mTDOdd3 As HtmlElement = WebBrowser1.Document.CreateElement("TD") 
    Dim mTDEven3 As HtmlElement = WebBrowser1.Document.CreateElement("TD") 
    mTR.Style = "TEXT-ALIGN: center" 
    'controle of het een even of oneven rij moet zijn 
    If mTBody.Children.Count Mod 2 = 0 Then 
     mTR.SetAttribute("class", "ms-rteTableEvenRow-default") 
    Else 
     mTR.SetAttribute("class", "ms-rteTableOddRow-default") 
    End If 
    mTh.SetAttribute("class", "ms-rteTableFirstCol-default") 
    mTDEven1.SetAttribute("class", "ms-rteTableEvenCol-default") 
    mTDOdd1.SetAttribute("class", "ms-rteTableOddCol-default") 
    mTDEven2.SetAttribute("class", "ms-rteTableEvenCol-default") 
    mTDOdd2.SetAttribute("class", "ms-rteTableOddCol-default") 
    mTDEven3.SetAttribute("class", "ms-rteTableEvenCol-default") 
    mTDOdd3.SetAttribute("class", "ms-rteTableOddCol-default") 
    'mTh.InnerHtml = <th class="ms-rteTableFirstCol-default">netasq</th> 
    'mTDOdd1.InnerHtml = <td class="ms-rteTableOddCol-default">1</td> 
    'mTDEven1.InnerHtml = <td class="ms-rteTableEvenCol-default">2</td> 
    mTR.AppendChild(mTh) 
    mTR.AppendChild(mTDOdd1) 
    mTR.AppendChild(mTDEven1) 
    mTR.AppendChild(mTDOdd2) 
    mTR.AppendChild(mTDEven2) 
    mTR.AppendChild(mTDOdd3) 
    mTR.AppendChild(mTDEven3) 
    mTBody.AppendChild(mTR) 
End Sub