Question

我正在生成HTML文档，并且我使用css以这种方式对段落进行编号：

    p.numerado:before {
        content: counter(numerado) ". ";
        counter-increment: numerado;
        display: inline-block;
        width: 25mm;
        font-weight: normal;
    }

    p.numerado {
        text-indent: 0mm;
        text-align: justify;
        font-family: "Times New Roman, Times, serif";
        font-size: 11pt;
        margin-top: 0;
        margin-bottom: 0.2em;
        line-height: 1.2em;
        font-weight: normal;
    }

编辑： 来自that thread的不是重复的，因为我的问题涉及段落编号而不是图片显示，而且我没有＆＃39;我想在我的HTML中嵌入脚本，因为它会被网络服务拒绝我提交它。

但是，我需要在.NET WebBrowser控件中显示这个内容的预览，它以IE7方式呈现HTML，然后上面的样式不起作用，即带{{的段落1}}类的编号既不是缩进的。

由于HTML文档的最终目的地是当前的Firefox，并且我不想仅仅为了修改WebBrowser控件行为而更改Windows注册表，我想知道是否有替代CSS我可以使用，只是为了在WebBrowser中显示最接近可能的最终结果样式，关于这些段落的计算和缩进。

这是它在Firefox中呈现的方式：

这是它在WebBrowser（IE7）中呈现的方式

非常感谢。

Answer 1

好的，我在加载WebBrowser组件之前解决了它运行下面的方法的问题。它基于this thread。我们只希望它不会在没有管理员权限的用户站中崩溃：

Private Sub AdjustIE()
    Dim appName = Process.GetCurrentProcess().ProcessName + ".exe"
    Dim desiredversionKey = 8000
    Try

        Dim RegKey32 As RegistryKey = Nothing
        RegKey32 = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", True)
        If RegKey32 Is Nothing Then
            RegKey32 = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION")
        End If
        Dim versionKey32 = CInt("0" & CStr(RegKey32.GetValue(appName)))
        If versionKey32 < desiredversionKey Then
            RegKey32.SetValue(appName, desiredversionKey, RegistryValueKind.DWord)
        End If
        RegKey32.Close()
    Catch ex As Exception
        If Debugger.IsAttached Then Stop
    End Try

    If (Environment.Is64BitProcess) Then
        Try
            Dim RegKey64 As RegistryKey = Nothing
            RegKey64 = Registry.CurrentUser.OpenSubKey("SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", True)
            If RegKey64 Is Nothing Then
                RegKey64 = Registry.CurrentUser.CreateSubKey("SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION")
            End If
            Dim versionKey64 = CInt("0" & CStr(RegKey64.GetValue(appName)))
            If versionKey64 < desiredversionKey Then
                RegKey64.SetValue(appName, desiredversionKey, RegistryValueKind.DWord)
            End If
            RegKey64.Close()
        Catch ex As Exception
            If Debugger.IsAttached Then Stop
        End Try
    End If
End Sub

IE7 {c}编号的段落

1 个答案: