如果字体不存在，换另外一种字体，怎么写代码？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 如果字体不存在，换另外一种字体，怎么写代码？

标题：如果字体不存在，换另外一种字体，怎么写代码？

只看楼主

su0527

等　级：论坛游民
帖　子：452
专家分：79
注　册：2015-1-10
结帖率：96.03%

楼主

已结贴√ 问题点数：20 回复次数：5

如果字体不存在，换另外一种字体，怎么写代码？

比如label1的字体设置为“幼圆”，如果电脑中没有装该字体，则设置label1的字体为“微软雅黑”，如果该字体也没有在该电脑中安装，则设置label1的字体为“宋体”。
请问代码如何写？

搜索更多相关主题的帖子: 字体　存在　代码　微软　安装　

2017-11-24 10:07

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 2 楼

得分:0

可以先看看字体信息再作处理。
AFONT(aFontName)                    && 取字体
FOR i = 1 TO ALEN(aFontName)
    AFONT(aFontSize, aFontName[i])  && 取字体的字号
    cMsg = IIF((aFontSize[1] == -1), "可缩放字体","不可缩放字体")+"，"
    cMsg = cMsg + aFontName[i] +"，"
    FOR j = 1 TO ALEN(aFontSize)
      cMsg = cMsg + " " + TRANSFORM(aFontSize[j])
    ENDFOR
    ? cMsg
    IF ((i % 20) == 0)
        WAIT
    ENDIF
ENDFOR
? "结束.............."

2017-11-24 10:31

su0527

等　级：论坛游民
帖　子：452
专家分：79
注　册：2015-1-10

第 3 楼

得分:0

回复 2楼吹水佬

接下来如何处理？
只能选用可放缩字体吗？

[此贴子已经被作者于2017-11-25 12:26编辑过]

2017-11-25 12:24

su0527

等　级：论坛游民
帖　子：452
专家分：79
注　册：2015-1-10

第 4 楼

得分:0

吹水佬，如下可否：
if afont(s,"幼圆")=.t. &&返回值为真，说明该字体可用
thisform.label1.fontname="幼圆"
else
if afont(s,"微软雅黑")=.t.
thisform.label1.fontname="微软雅黑"
else
thisform.label1.fontname="宋体"
endif
endif

2017-11-25 12:49

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 5 楼

得分:20

以下是引用su0527在2017-11-25 12:49:31的发言：

吹水佬，如下可否：
if afont(s,"幼圆")=.t. &&返回值为真，说明该字体可用
thisform.label1.fontname="幼圆"
else
if afont(s,"微软雅黑")=.t.
thisform.label1.fontname="微软雅黑"
else
thisform.label1.fontname="宋体"
endif
endif

可以，也可以这样：
AFONT(arr)
thisform.label1.fontname = ICASE(;
ASCAN(arr,"幼圆")>0,"幼圆",;
ASCAN(arr,"微软雅黑")>0,"微软雅黑","宋体")

2017-11-25 15:08

gs2536785678