vars("web")没做出来,先用当前窗口的webbrowser1测试。
请老师帮助看看红色的“bd”、“className”应该改成什么?
谢谢!
Dim web = Forms("编辑窗口").controls("webbrowser1").basecontrol
msgbox(1)
Dim elems As object = web.Document.GetElementById("bd").GetElementsByTagName("div")
msgbox(2)
For Each elem As object In elems
If elem.getattribute("className") = "" Then
msgbox(3)
Dim divs As object = elem.GetElementsByTagName("div")
For Each div As object In divs
'output.show(div.innertext)
'ClipBoard.SetText(div.innertext) '写入剪贴板
Forms("语音朗读").open()
Forms("语音朗读").Controls("TextBox1").Text = div.innertext
Next
End If
Next
--------------------------------------------------------------------------------------------
附 网页源代码: