VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何使用未安装的字体?
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8873, 日期:2001-10-29
如何使用未安装的字体?



注释:声明:
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")