一个解析Window控件Font属性到HTML的函数

在输出一个字符串到HTML时,想要传入System.Drawing.Font来控制字符串在HTML上的显示.

   Private Function GetFontString()Function GetFontString(ByVal Str As String, ByVal WinFont As System.Drawing.Font) As String

        Dim s As String

        s = "<span style=""font-family:" & WinFont.Name
        s += ";font-size:" & WinFont.Size.ToString & ";"

        If WinFont.Bold Then s += "font-weight:bold;"

        If WinFont.Italic Then s += "font-style:italic;"

        If WinFont.Underline Or WinFont.Strikeout Then

            s += "text-decoration:"

            If WinFont.Underline Then s += " underline"

            If WinFont.Strikeout Then s += " line-through"

        End If

        s += """>" & Str & "</span>"

        Return s

    End Function