| VBA自动安装和删除字体的代码 |
|
| 作者：小鸟飞毛 文章来源：Access开发者 点击数： 本日：{$DayHits} 更新时间：2006-10-24 23:27:08 |
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
|
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： 用于将数字换汉字大写数字的函数
下一篇文章： 由文本框改变列表框的内容 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
