标题: VB中利用API函数如何使用未安装的字体？ [打印本页] 作者: 孙宏雷 时间: 2013-7-2 13:53 标题: VB中利用API函数如何使用未安装的字体？ 作者: 淡写轻描 时间: 2013-7-2 13:57
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long增加字体：Dim lResult As Long lResult = AddFontResource("c:myAppmyFont.ttf") 删除字体：Dim lResult As Long lResult = RemoveFontResource("c:myAppmyFont.ttf")