如何更改WebBrowser控件的前景文字的颜色

Question

在一个Form窗体中，有个WebBrowser控件，这个控件连接到一个指定的网页(如指定网页为http://finance.sina.com.cn/realstock/company/sh600029/nc.shtml)。 
现在想在WebBrowser连接到指定的网页后，将WebBrowser所显示的该页面所有文字的颜色全部统一更改为灰色,
或者只更改曲线图的右边的这块区间的颜色为灰色:
卖 五(元/手) 12.70 5557 
卖 四(元/手) 12.69 1323 
卖 三(元/手) 12.68 836 
卖 二(元/手) 12.67 354 
卖 一(元/手) 12.66 2 
当前价(元) 12.65   
买 一(元/手) 12.65 562 
买 二(元/手) 12.64 28 
买 三(元/手) 12.63 1657 
买 四(元/手) 12.62 686 
买 五(元/手) 12.61 579 谢谢!

Answer 1

基本上是不可能.要不,你将网页下载到本地,将本地文件的 HTML 标志符 REPLACE 一次再显示在WEBBROWSER控件中 ?

Answer 2

要知道WebBrowser控件显示的内容是由页面代码控制的，所以只要你要的效果可以用html页面显示出来，那么它就可以实现。你可以学习一下html。

Answer 3

可以在WebBrowser控件的DocumentComplete等事件里获得该网站页面的对象，比如document，window等对象。有了这些对象你就能完全控制页面。滚动的话你可以通过在页面中执行脚本达成目的。 VB.NET code
Private WithEvents m_oDocument As HTMLDocumentPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set m_oDocument = pDisp.Document    m_oDocument.bgColor = vbBlack
End Sub
______________________________________________
但前景色不知用m_oDocument哪个特色

Answer 4

Option Explicit
Private m_sTargetURL As String
Private Sub Form_Load()
    m_sTargetURL = "http://finance.sina.com.cn/realstock/company/sh600029/nc.shtml"
    WebBrowser1.Navigate2 m_sTargetURL
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If URL <> m_sTargetURL Then Exit Sub
    
    Dim oDoc As HTMLDocument
    Set oDoc = pDisp.Document
    
    Dim oComment As HTMLCommentElement
    Dim oDiv As HTMLDivElement
    Dim oTable As HTMLTable
    Dim oTC As HTMLTableCell
    For Each oComment In oDoc.getElementsByTagName("!")
        If Trim(oComment.nodeValue) = "表格1 begin" Then
            Set oDiv = oComment.nextSibling.nextSibling
            Set oTable = oDiv.childNodes(0)
            For Each oTC In oTable.cells
                oTC.className = ""
                oTC.runtimeStyle.Color = "gray"
            Next
            Exit For
        End If
    Next
End Sub