字体安装 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字体安装

共有2413人关注过本帖树形打印复制链接主题：字体安装

超古伯

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：98 积分：1080 威望：0 精华：0 注册：2017/4/4 14:19:00

字体安装

Post By：2017/6/13 16:38:00 [显示全部帖子]

字体安装的代码是直接拷贝字体到系统目录下的字体文件夹就可以吗?

测试了没反应，拷贝过去看不到字体文件，如果选不覆盖拷贝的话又会提示字体文件已存在

代码：

'拷贝时间字体

Dim s As String=SpecialFolder.System & "\fonts"

s=s.replace("system32\","")

FileSys.CopyFile("" & path & "\sjzt.ttf","" & s & "\sjzt.ttf",True)

请老师指教

超古伯

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：98 积分：1080 威望：0 精华：0 注册：2017/4/4 14:19:00

Post By：2017/6/13 18:00:00 [显示全部帖子]

可以把文件复制到剪贴板吗？好像没有setfile的属性

超古伯

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：98 积分：1080 威望：0 精华：0 注册：2017/4/4 14:19:00

Post By：2017/6/13 19:34:00 [显示全部帖子]

用最笨的方法解决~复制文件到剪贴板，打开字体文件夹，模拟按键ctrl+v~~~done!

主题：字体安装