怎样检测系统中是否有某种字体? - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 怎样检测系统中是否有某种字体?

标题：怎样检测系统中是否有某种字体?

取消只看楼主

PcrazyC

等　级：贵宾
威　望：29
帖　子：5652
专家分：0
注　册：2006-10-20
结帖率：100%

问题点数：0 回复次数：2

怎样检测系统中是否有某种字体?

如题

搜索更多相关主题的帖子: 字体　系统　检测　

2007-01-05 13:50

PcrazyC

等　级：贵宾
威　望：29
帖　子：5652
专家分：0
注　册：2006-10-20

得分:0

假如我要检测系统中是否有楷体.是这样写吗?
if screen.fonts="楷体" then .... end if

雁无留踪之意,水无取影之心

2007-01-05 16:51

PcrazyC

等　级：贵宾
威　望：29
帖　子：5652
专家分：0
注　册：2006-10-20

得分:0

dim i as long
for i=0 to Screen.FontCount-1
if screen.fonts(i)="楷体" then goto A
next i
A:
.......

这样可以吧

雁无留踪之意,水无取影之心

2007-01-05 17:13