- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- WebBrowser打开word 工具栏隐藏不了啊 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77407)
-- 发布时间：2015/11/17 19:40:00
-- WebBrowser打开word 工具栏隐藏不了啊
web.OfficeToolBar怎么设置都隐藏不掉
还有其他方法吗
win10+office2013
-- 发布时间：2015/11/17 19:41:00
--
用另一个方法。
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=45959&skin=0
-- 发布时间：2015/11/17 19:45:00
--
这是显示吧
我想隐藏掉
-- 发布时间：2015/11/17 19:49:00
--
1、全局代码
Public open As Boolean = False
Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
If open Then
Dim axWebBrowser As Object = sender.ActiveXInstance
Dim refmissing As [Object] = System.Reflection.Missing.Value
Dim args As Object() = New Object(3) {}
args(0) = 24
args(1) = 2
args(2) = refmissing
args(3) = refmissing
axWebBrowser.[Gettype]().InvokeMember("WordWB", 256, Nothing, axWebBrowser, args)
End If
End Sub
2、打开之前，控制变open为true或false
-- 发布时间：2015/11/17 19:56:00
--
不管用 始终都显示
-- 发布时间：2015/11/17 20:01:00
--
我测试没问题。
-- 发布时间：2015/11/17 20:02:00
--
-- 发布时间：2015/11/17 20:11:00
--
麻烦能做个例子发上来吗 我这里怎么做都不行啊
-- 发布时间：2015/11/17 20:18:00
--
全局用了上面
按钮用了
\'Dim tm As String = ProjectPath & "Attachments\\长期合同.docx" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\长期合同.docx" \'指定目标文件
\'Dim wrt As New WordReport(Tables("CustContract"),tm,fl) \'定义一个WordReport
\'wrt.Build() \'逐行生成报表
\'\'\'wrt.Show() \'显示报表
\'wrt.Quit()
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim web As Windows.Forms.WebBrowser
web = e.Form.Controls("WebBrowser1").baseControl
AddHandler web.DocumentCompleted,addressof WebBrowser1_DocumentCompleted
wbr.AddRess = fl
-- 发布时间：2015/11/17 20:35:00
--
我测试没问题。
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim web As Windows.Forms.WebBrowser
web = e.Form.Controls("WebBrowser1").baseControl
AddHandler web.DocumentCompleted,addressof WebBrowser1_DocumentCompleted
open = false
wbr.AddRess = fl