Webbrowser控件 - 动态加载页面时鼠标闪烁

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") 

这工作的很好，但鼠标指针闪烁时移动鼠标（正常 - 沙漏）。有没有办法解决这个问题？

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

任何人都知道没有本地文件的动态加载更好的方式？

Answer 1

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

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

解决方案：

• 设定的控制源至约：空白（防止安全警告及404）
• 一个 “调用DoEvents” 之前。打开命令