HTML代码:
<font class=""question"">Q1;</font> <font class=""question"">What is your name? <input name=""Q"" id=""Q"" value="""" size=20 style=""color:#336600; border:1px solid #999999"" class=""TextField2""> <input type='hidden' id= 'aQ' value='FOX'></font>
VB代码:
Public Sub Underline()
For Each a As HtmlElement In WebBrowser.Document.GetElementsByTagName("input")
If a.Id.StartsWith("aQ") Then a.OuterHtml = "<font style=""color:red""><u>" + a.GetAttribute("value") + "</font>" + a.OuterHtml
Next
End Sub
我试过的按钮代码
Do Until WebBrowser.ReadyState = WebBrowserReadyState.Interactive
Application.DoEvents()
Loop
Underline()
但现在,我希望浏览器可以在点击按钮
时强调“FOX”我尝试了 DocumentText 和StreamWriter,仍然无法正常工作
有解决方案吗?
当我复制html代码= DocumentText时,我可以强调html的值,但现在改为浏览器,它不起作用。