如何使用未安装的字体?

页面导航:首页 > 软件编程 > vb.net > 如何使用未安装的字体?

如何使用未安装的字体?

来源: 作者: 时间:2016-02-05 12:32 【

声明:Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" _ (ByVal lpFileName As String) As LongDeclare Function RemoveFontResource Lib "gdi32" Alia

 

 

声明:

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")

 

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <