字体问题，有代码，请帮我分析分析

Question

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As LongPrivate Sub Command1_Click() '安装字体
AddFontResource App.Path & "\ssDigits.ttf"
End Sub我用了以上的代码，打包在本机上安装了，现在ssDigits.ttf字体在程序不能正确显示。机子上本身有该字体。怎么办？

Answer 1

注册字体之后,在程序在Text1.FontName = "字体名称"'试一下

Answer 2

现在的问题来了我在一个textbox选择该字体，在换成宋体，显示不出来

Answer 3

应该是注册的问题，用setup factory7.0打包后，就可以了。搞笑~