Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 编程心得绝招› 实际编程 › 查看内容

VBA自动安装和删除字体的代码

1970-1-1 08:00| 发布者: 小鸟飞毛| 查看: 1463| 评论: 0

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long

Private Sub Command1_Click() '增加字体
Dim lResult As Long
lResult = AddFontResource("c:\myApp\myFont.ttf")
End Sub
Private Sub Command2_Click() '删除字体
Dim lResult As Long
lResult = RemoveFontResource("c:\myApp\myFont.ttf")
End Sub

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

VBA自动安装和删除字体的代码

最新评论

相关分类