Foxtable(狐表)用户栏目专家坐堂 → axWebBrowser打开word文件时能否不闪烁


  共有1962人关注过本帖平板打印复制链接

主题:axWebBrowser打开word文件时能否不闪烁

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


加好友 发短信
等级:三尾狐 帖子:621 积分:6804 威望:0 精华:0 注册:2013/12/17 1:00:00
axWebBrowser打开word文件时能否不闪烁  发帖心情 Post By:2019/6/24 17:28:00 [只看该作者]

全局代码——————————————————————————————————

Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

    axWebBrowser = sender.ActiveXInstance

End Sub

axWebBrowser = Nothing

——————————————————————————————————————

在窗口中选择word按钮执行的代码———————————————————————

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter = "word文件|*.docx"

If dlg.ShowDialog = DialogResult.OK Then '如果用户单击了确定按钮

    Dim web As Object = e.Form.Controls("WebBrowser1").basecontrol

    web.Navigate(dlg.FileName)

    Do Until axWebBrowser IsNot Nothing

        Application.DoEvents

    Loop

    Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)

    Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)

    oDocument.saved = True

    vars("doc") = oDocument

End If

——————————————————————————————————————

意图通过webbrowser显示word,更换word文件内容,但不想让word工具栏闪烁,能否做到?


 回到顶部