fallback 2004年12月25日
字体问题,有代码,请帮我分析分析
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 Long

Private Sub Command1_Click() '安装字体
AddFontResource App.Path & "\ssDigits.ttf"
End Sub



我用了以上的代码,打包在本机上安装了,现在ssDigits.ttf字体在程序不能正确显示。机子上本身有该字体。怎么办?
...全文
48 点赞 收藏 5
写回复
5 条回复

还没有回复,快来抢沙发~

发动态
发帖子
VB基础类
创建于2007-09-28

2739

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告