如何正确呈现嵌入式字体？

问题描述

我下载了True Type字体并按照this page的说明进行嵌入。
我必须设置UseCompatibleTextRendering属性才能加载它，但它看起来很奇怪，我不知道为什么它在浏览器中看起来不错，但在应用程序中却看不到。

为清楚起见，我将字体添加到资源中，将其设置为嵌入式资源，我使用了此模块：

Imports System.IO
Imports System.Reflection
Imports System.Drawing.Text
Imports System.Runtime.InteropServices

Module ExternalFontType
    Public Function GetFont(aAssembly As Assembly,strFontName As String,intFontSize As Integer,fsFontStyle As FontStyle) As Font

        Using pcolFonts As New PrivateFontCollection

            Dim bFont() As Byte = ExternalFontType.bRawFontData(aAssembly,strFontName)
            Dim ptrMemFont As IntPtr =
               Marshal.AllocCoTaskMem(bFont.Length)

            Marshal.copy(bFont,ptrMemFont,bFont.Length)
            pcolFonts.AddMemoryFont(ptrMemFont,bFont.Length)

            Marshal.FreeCoTaskMem(ptrMemFont)

            Return New Font(pcolFonts.Families(0),intFontSize,fsFontStyle)
        End Using
    End Function

    Private Function bRawFontData(aAssembly As Assembly,strFontName As String) As Byte()
        Using stFont As Stream =
            aAssembly.GetManifestResourceStream(strFontName)

            If (stFont Is nothing) Then Throw _
               New Exception(String.Format("Cannot load _
            font '{0}'",strFontName))

            Dim bFontBuffer() As Byte = New _
               Byte(CInt(stFont.Length - 1)) {}

            stFont.Read(bFontBuffer,CInt(stFont.Length))
            Return bFontBuffer
        End Using
    End Function
End Module

并将其包含在此代码中

lbl.UseCompatibleTextRendering = True
lbl.Font = ExternalFontType.GetFont(Me.GetType.Assembly,"ProyectName.FontName.ttf",15,FontStyle.Bold)

解决方法

该代码存在多个问题：

1. PrivateFontCollection不能用Using语句声明：必须保留此集合，只要需要它指向的字体即可。通常会在使用它的类（Form）或共享类（或此处的Module）中将其声明为Field，然后在不再需要时进行处理。

2. Marshal.FreeCoTaskMem()在这里不能使用；在Marshal.AllocCoTaskMem()之后调用它是一种诱惑，但在这种情况下不是。这可以（将）损害字体数据的分配。您需要做的是处置PrivateFontcollection对象。该框架将处理COM 事务（即使您忘记处置PrivateFontcollection对象，它也会替您完成。它一定不会忘记，虽然）。

3. 不需要程序集引用。字体以字节数组的形式添加到项目的资源中，这是所有需要的。然后可以通过名称（例如My.Resources.SomeFontName或使用ResourceManager.GetObject()方法）来检索它，将返回的对象转换为Byte()：

   Dim fontData As Byte() = My.Resources.SomeFontName
   Dim fontData As Byte() = DirectCast(My.Resources.ResourceManager.GetObject("SomeFontName"),Byte())
   

►您已经提到了这一点，但让我们再说一遍：并非所有控件都可以使用这些字体。实际上，只有可以使用GDI +绘制的字体的控件才能使用PrivateFontCollection中的字体，Label和Button控件是其中的一个，实际上它们都公开了UseCompatibleTextRendering属性。例如，RichTextBox不能。

Private myFontCollection As PrivateFontCollection = New PrivateFontCollection()

在表单的构造函数中，从项目的资源中添加字体。

• 在这里，我正在使用帮助器类 FontManager ，该类公开了public shared方法AddFontsFromResource()：将{{ 1}}，以及与字体名称相对应的资源名称列表。
  此方法用可以成功安装的字体填充集合，并返回已安装的字体数。
  当然，您可以使用其他喜欢引用字体的方法。

• 注意。在示例中，三个字体资源被添加到集合中：
  PrivateFontCollection
  但是两个属于同一个{"FontFamily1Regular","FontFamily1Italics","OtherFontFamily"}，因此FontFamily将仅包含两个元素，而不是三个。

PrivateFontCollection

重要的是，在不再需要Public Sub New() Dim installedFontsCount = FontManager.AddFontsFromResources(myFontCollection,{"FontFamily1Regular","OtherFontFamily"}) ' The Font can set here or anywhere else someLabel.UseCompatibleTextRendering = True someLabel.Font = New Font(myFontCollection.Families(0),10.5F,FontStyle.Regular) someButton.UseCompatibleTextRendering = True someButton.Font = New Font(myFontCollection.Families(0),FontStyle.Italic) End Sub 时：处置初始化它的窗体关闭时或在应用程序关闭之前：
您还可以使用共享对象来引用PrivateFontCollection，该对象可以在Project中的任何位置使用。在这种情况下，需要在应用程序关闭时处理收集物。

PrivateFontCollection

Helper类：

Private Sub Form1_FormClosed(sender As Object,e As FormClosedEventArgs) Handles MyBase.FormClosed
    myFontCollection.Dispose()
End Sub

---

C＃版本：

Imports System.Drawing.Text
Imports System.Runtime.InteropServices

Public Class FontManager
    Public Shared Function AddFontsFromResources(fontCollection As PrivateFontCollection,fontNames As String()) As Integer
    If fontNames.Length = 0 Then Return Nothing
    Dim installedFontsCount = 0

    For Each fontName As String In fontNames
        Try
            Dim fontData As Byte() = CType(My.Resources.ResourceManager.GetObject(fontName),Byte())
            If fontData Is Nothing Then Throw New InvalidOperationException()

            Dim data As IntPtr = Marshal.AllocCoTaskMem(fontData.Length)
            Marshal.Copy(fontData,data,fontData.Length)
            fontCollection.AddMemoryFont(data,fontData.Length)
            installedFontsCount += 1
        Catch ex As Exception
            ' Placeholder: Notify User/Log/Whatever
            Debug.Print($"Font installation failed for {fontName}")
        End Try
    Next
    Return installedFontsCount
    End Function
End Class