用webBrowser控件预览一个doc文件，怎么把他关闭，否则进程中一直有个经常开着

Question

给你个EXCEL的，WORD的应该一样的
先声明
public Excel.Application excel;
public Excel.Workbook xBk;
public Excel.Worksheet xSt;
在axWebBrowser1的结束事件中：
private void axWebBrowser1_NavigateComplete2(object sender, AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event e)
{
//导入EXCEL结束
Object o = e.pDisp;
Object oDocument = o.GetType().InvokeMember("Document",BindingFlags.GetProperty,null,o,null);
Object oApplication = o.GetType().InvokeMember("Application",BindingFlags.GetProperty,null,oDocument,null);
Object oName = o.GetType().InvokeMember("Name",BindingFlags.GetProperty ,null,oApplication,null);
//定义当前EXCEL，以便引用
this.excel =(Excel.Application)oApplication;
this.xBk=(Excel.Workbook)excel.ActiveWorkbook;
this.xSt=(Excel.Worksheet)xBk.ActiveSheet;
}
然后在其它地方this.xSt=null;
this.xBk=null;
this.excel.Quit();

Answer 1

this.excel =(Excel.Application)oApplication这句话用vb.net的话怎么写啊

Answer 2

Dim Excel As Excel.Application
me.Excel=Ctype(oApplication,Excel.Application)

Answer 3

我是用vb.net编的,帮我看看
Dim mWord As Word.Application Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles AxWebBrowser1.NavigateComplete2
        Dim o As Object = e.pDisp
        Dim refmissing As Object = System.Reflection.Missing.Value
        AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, refmissing, refmissing)
        oDocument = o.GetType().InvokeMember("Document", BindingFlags.GetProperty, Nothing, o, Nothing)
        Dim oApplication As Object = o.GetType().InvokeMember("Application", BindingFlags.GetProperty, Nothing, oDocument, Nothing)        Me.mWord = CType(oApplication, Word.Application)    End Sub我在撤消的时候用
 Me.mWord.Quit()
提示：“Quit”在继承接口“Word._Application”和“Word.ApplicationEvents2_Event”之间不明确。这个是哪里出错了？

Answer 4

没用过WebBrowser，上面那个提示也没碰到过
没法提建议

Answer 5

把webBrowser放入一个容器，结束时关闭和释放容器就行了，我在导航到EXCEL的时候就是这样做的