以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  各位老师，用如下代码打开excel时，第一次打开时WebBrowser控件无显示，以后打开就可以了，是怎么回事？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116874)
--  作者：百灵
--  发布时间：2018/4/2 9:25:00
--  各位老师，用如下代码打开excel时，第一次打开时WebBrowser控件无显示，以后打开就可以了，是怎么回事？
各位老师，用如下代码打开excel时，第一次打开时WebBrowser控件无显示，以后打开就可以了，是怎么回事？
Dim wbr As WinForm.WebBrowser = Forms("窗口4").Controls("WebBrowser1")
Dim dlg As new OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
    Dim Ifo As new FileInfo(dlg.FileName)
    wbr.OfficeToolBar = True    
    wbr.Address = dlg.FileName
End If
--  作者：有点甜
--  发布时间：2018/4/2 9:30:00
--  
代码没问题，我测试没问题。请做实例发上来测试。
--  作者：百灵
--  发布时间：2018/4/2 9:41:00
--  
我测试了一下，新建一个项目就行，在我正在做的项目中就不行了，不知道哪里有问题了
--  作者：有点甜
--  发布时间：2018/4/2 10:34:00
--  
以下是引用百灵在2018/4/2 9:41:00的发言：
我测试了一下，新建一个项目就行，在我正在做的项目中就不行了，不知道哪里有问题了

 

新建一个窗口，然后测试，看有没有问题。最简化你的代码，不要有多余代码影响。