如何嵌入字体以在 Visual Basic 项目中使用？

我正在尝试使用从该网站找到的以下代码嵌入字体，但是当我尝试构建时，我不断遇到错误'DIGITALDREAMNARROW' is not a member of 'Resources'.。任何人都可以帮助我解决这个问题：

即使我已将字体添加到资源文件夹中。我有什么遗漏的吗？

http://zerosandtheone.com/blogs/vb/archive/2009/11/20/vb-net-include-a-font-as-an-embedded-resource-in-your-application.aspx

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

Module CustomFont

'PRIVATE FONT COLLECTION TO HOLD THE DYNAMIC FONT
Private _pfc As PrivateFontCollection = Nothing


Public ReadOnly Property GetInstance(ByVal Size As Single, _
                                     ByVal style As FontStyle) As Font
    Get
        'IF THIS IS THE FIRST TIME GETTING AN INSTANCE
        'LOAD THE FONT FROM RESOURCES
        If _pfc Is Nothing Then LoadFont()

        'RETURN A NEW FONT OBJECT BASED ON THE SIZE AND STYLE PASSED IN
        Return New Font(_pfc.Families(0), Size, style)

    End Get
End Property

Private Sub LoadFont()
    Try
        'INIT THE FONT COLLECTION
        _pfc = New PrivateFontCollection

        'LOAD MEMORY POINTER FOR FONT RESOURCE
        Dim fontMemPointer As IntPtr = _
            Marshal.AllocCoTaskMem( _
            My.Resources.DIGITALDREAMNARROW.Length)

        'COPY THE DATA TO THE MEMORY LOCATION
        Marshal.Copy(My.Resources.DIGITALDREAMNARROW, _
                     0, fontMemPointer, _
                     My.Resources.DIGITALDREAMNARROW.Length)

        'LOAD THE MEMORY FONT INTO THE PRIVATE FONT COLLECTION
        _pfc.AddMemoryFont(fontMemPointer, _
                           My.Resources.DIGITALDREAMNARROW.Length)

        'FREE UNSAFE MEMORY
        Marshal.FreeCoTaskMem(fontMemPointer)
    Catch ex As Exception
        'ERROR LOADING FONT. HANDLE EXCEPTION HERE
    End Try

End Sub

End Module

我下载了他的程序源代码，它工作正常，但当我重试时，出现错误。有人可以帮忙吗？

要将文件作为资源添加到您的项目中，

• 双击我的项目 in 解决方案浏览器或你的项目特性在下面Project菜单项。
• 选择资源您项目中的选项卡特性。您可以通过选择添加 ttf 文件添加现有文件...从“添加资源”下拉菜单中，或者直接从 Windows 资源管理器中拖放。注意：如果您使用添加 ttf 资源添加现有文件...，您需要更改过滤器才能显示全部文件 （*.