Question

我想在Office / Access 2010中的表单上的webbrowser控件中获得圆角。我创建了以下测试代码：

Option Compare Database
Option Explicit
Dim doc As IHTMLDocument

Private Sub Form_Load()
Dim htm$

    Webbrowser0.Object.Navigate2 "about:blank"
    WaitForReady
    Set doc = Webbrowser0.Object.Document
    htm = "<!DOCTYPE html><html><head>"
    htm = htm & "<meta http-equiv=""X-UA-Compatible"" content=""IE=edge"">"
    htm = htm & "<meta charset=""utf-8"">"
    htm = htm & "<meta http-equiv=""cache-control"" content=""no-cache"" />"
    htm = htm & "<style type=""text/css"" media=""all"">"
    htm = htm & ".test { background-color: red; width: 100px; height: 100px; border-top-left-radius: 15px; }"
    htm = htm & "</style>"
    htm = htm & "</head>"
    htm = htm & "<body>"
    htm = htm & "<div class=""test"">Test</div>"
    htm = htm & "</body>"
    doc.write htm
End Sub
Private Sub WaitForReady()
    Do
        DoEvents
    Loop Until Webbrowser0.ReadyState >= READYSTATE_INTERACTIVE
End Sub

生成页面，正确渲染大多数CSS。但是圆角的属性被忽略，只有在按下F5（重新加载页面）后才会渲染。 F5之后的html源代码当然是相同的，只有渲染是不同的。我该如何解决这个问题（不编辑注册表）？这种行为的原因是什么？在我看来，控件应该是否为CSS属性，而不仅仅是在刷新后？！

当我在单个htm-File中复制html-sourcecode并在IE中执行时，渲染在第一次看起来很好。

有人有想法吗？

谢谢！

Web浏览器控件（Office / Access 2010）＆amp; CSS圆角

0 个答案: