你好,我根据你的提示,研究了 这个例子,按照他的方法做了实验,发现一个很奇怪的问题,
定义了一个全局函数 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