Web浏览器控件 - 动态加载页面时鼠标闪烁

Question

我正在使用MS Access 2013，引用MS HTML对象库。我按以下方式加载页面：

Dim rc As DAO.Recordset
Set rc = CurrentDb.openRecordset("SELECT * FROM DBSettings WHERE title = 'pageMain'")
Webbrowser0.Object.Document.Open
Webbrowser0.Object.Document.write rc!content
Webbrowser0.Object.Document.Close
Set body = Hpage.getElementById("body")

这非常有效，但移动鼠标（Nomal - Hourglass）时鼠标指针闪烁。有办法解决这个问题吗？

编辑：是的，它在加载本地（完全相同）文件时实际上没有闪烁。这有两个缺点：1）db应该是独立的，因此应该从表中加载文件2）从vba调用js函数时的安全警告

任何人都知道在没有本地文件的情况下动态加载的更好方法吗？

Answer 1

谢谢我找到了解决这个问题的方法。由于此问题很容易在Access 2010和2013中重现，我将在此处发布：

• 在第一次DoEvents之前更改webbrowsercontrol时会发生这种情况。 （表格OnLoad，打开表格后直接调用功能）

解决方案：

• 将控制源设置为about：blank（防止安全警告和404）
• 在.Open命令之前的“DoEvents”