以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  获取 WebBrowser1 代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49621)
--  作者：qianqian1530
--  发布时间：2014/4/21 15:32:00
--  获取 WebBrowser1 代码
Dim web As String =  Tables("表B").Value(0,0) & "564410245055" & Tables("表B").Value(1,0)
Dim fl As String = ProjectPath & "temp.htm"
Dim wb As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
FileSys.WriteAllText(fl,web,False)
wb.Address = fl

Tables("表A").Current("第一列") = fl
Tables("表A").AddNew()
DataTables("表A").Save()

为什么显示为空白呢
想要 WebBrowser1 的HTML
--  作者：Bin
--  发布时间：2014/4/21 15:38:00
--  
Dim web As String =  Tables("表B").Value(0,0) & "564410245055" & Tables("表B").Value(1,0)

你写入的是这个内容.

并没有获取WebBrowser1 里面的HTMl啊
--  作者：Bin
--  发布时间：2014/4/21 15:39:00
--  
获取浏览器控件里面的内容可以参考这里
--  作者：有点甜
--  发布时间：2014/4/21 15:47:00
--  

 如果是获取内容，这样写

 

Dim fl As String = ProjectPath & "temp.htm"
Dim web As System.Windows.Forms.Webbrowser = e.Form.Controls("WebBrowser1").BaseControl
wb.Address = fl
FileSys.WriteAllText("d:\\test.htm", web.DocumentText, False)

msgbox(web.DocumentText)

[此贴子已经被作者于2014-4-21 15:46:40编辑过]