有点甜老师 麻烦看看下面代码怎么运行报错呢？
代码是按照你给的例子照搬的 我放在项目启动后加载事件
结果报错
Dim web As Windows.Forms.WebBrowser
web = e.Form.Controls("WebBrowser1").baseControl
AddHandler web.DocumentCompleted,addressof WebBrowser1_DocumentCompleted
axWebBrowser = Nothing
web.Navigate("d:\计算机机房安全保密规定暂行.doc")
'Do Until axWebBrowser IsNot Nothing
'Application.DoEvents
'Loop
'
Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)
oApplication.ActiveWindow.ActivePane.View.Zoom.Percentage = 100
错误如下：
.NET Framework 版本：2.0.50727.6419
Foxtable 版本：2014.10.23.1
错误所在事件：窗口,计算机机房安全保密,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。
然后依旧能够浏览WORD只是比例不正常 显示还是120%
已经自行解决 谢谢有点甜老师
代码如下
Dim web As Windows.Forms.WebBrowser
web = e.Form.Controls("WebBrowser1").baseControl
AddHandler web.DocumentCompleted,addressof WebBrowser1_DocumentCompleted
axWebBrowser = Nothing
Dim web1 As Object = e.Form.Controls("WebBrowser1").basecontrol
web1.Navigate("d:\计算机机房安全保密规定暂行.doc")
Do Until axWebBrowser IsNot Nothing
Application.DoEvents
Loop
Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)
oApplication.ActiveWindow.ActivePane.View.Zoom.Percentage = 100
[此贴子已经被作者于2014-11-24 0:31:30编辑过]
加好友 
发短信
Post By：2014/8/1 9:29:00 [显示全部帖子]
此主题相关图片如下：qq图片20140801094557.jpg
