你好，我根据你的提示，研究了 这个例子，按照他的方法做了实验，发现一个很奇怪的问题，
定义了一个全局函数 Public Sub WebBrowser1_DocumentCompleted，具体代码如下： 问题出在这行代码中
axWebBrowser.[Gettype]().InvokeMember("ExecWB", 256, Nothing, axWebBrowser, args)
如果把这行代码加上， 则webbrowser第一次显示excel时，不出现 系统菜单， 以后都出现， 同时 word 文档 始终不出现 系统菜单
如果把这行注释掉，不执行时，情况则正好相反， 则webbrowser第一次显示excel时，出现 系统菜单， 以后都不出现， 同时 word 文档 始终出现 系统菜单
由于帮助文档中没有相关内容， 所以不知道该怎样才能够 使 word文档 和 excel 都同时出现 或者 同时 不出现 系统菜单？
详细代码如下：
Public axWebBrowser As Object
Public oDocument As Object
Public oApplication As object
Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
axWebBrowser = 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("ExecWB", 256, Nothing, axWebBrowser, args)
oDocument = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
oApplication = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)
oApplication.DisplayAlerts = False
oDocument.Saved = True
End Sub
加好友 
发短信
Post By：2015/1/14 16:10:00 [只看该作者]
