孙宏雷 发表于 2013-7-2 13:53:19

VB中利用API函数如何使用未安装的字体？

淡写轻描 发表于 2013-7-2 13:57:17

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")
页: [1]
查看完整版本: VB中利用API函数如何使用未安装的字体？