WebBrowser打开word 工具栏隐藏不了啊 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → WebBrowser打开word 工具栏隐藏不了啊

共有3057人关注过本帖树形打印复制链接主题：WebBrowser打开word 工具栏隐藏不了啊

mxm121

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：392 积分：3026 威望：0 精华：0 注册：2014/9/20 23:56:00

WebBrowser打开word 工具栏隐藏不了啊 发帖心情

Post By：2015/11/17 19:40:00 [只看该作者]

web.OfficeToolBar怎么设置都隐藏不掉

还有其他方法吗

win10+office2013

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/17 19:41:00 [只看该作者]

用另一个方法。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=45959&skin=0

mxm121

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：392 积分：3026 威望：0 精华：0 注册：2014/9/20 23:56:00

Post By：2015/11/17 19:45:00 [只看该作者]

这是显示吧

我想隐藏掉

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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