VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 使用未安装的字体
发表评论(0)作者:, 平台:, 阅读:8989, 日期:2000-03-12
声明:

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:\myApp\myFont.ttf")

删除字体:

Dim lResult As Long

lResult = RemoveFontResource("c:\myApp\myFont.ttf")