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


  共有2922人关注过本帖树形打印复制链接

主题:WebBrowser打开word 工具栏隐藏不了啊

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/17 19:41:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/17 20:01:00 [显示全部帖子]

我测试没问题。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/17 21:24:00 [显示全部帖子]

测试了一下2013,确实无法控制其显示隐藏的。至少目前没找到方法。


 回到顶部