| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1975 人关注过本帖
标题:如果字体不存在,换另外一种字体,怎么写代码?
取消只看楼主 加入收藏
su0527
Rank: 2
等 级:论坛游民
帖 子:452
专家分:79
注 册:2015-1-10
结帖率:96.03%
收藏
已结贴  问题点数:20 回复次数:2 
如果字体不存在,换另外一种字体,怎么写代码?
比如label1的字体设置为“幼圆”,如果电脑中没有装该字体,则设置label1的字体为“微软雅黑”,如果该字体也没有在该电脑中安装,则设置label1的字体为“宋体”。
请问代码如何写?
搜索更多相关主题的帖子: 字体 存在 代码 微软 安装 
2017-11-24 10:07
su0527
Rank: 2
等 级:论坛游民
帖 子:452
专家分:79
注 册:2015-1-10
收藏
得分:0 
回复 2楼 吹水佬
接下来如何处理?
只能选用可放缩字体吗?


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

2017-11-25 12:24
su0527
Rank: 2
等 级:论坛游民
帖 子:452
专家分:79
注 册:2015-1-10
收藏
得分: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
快速回复:如果字体不存在,换另外一种字体,怎么写代码?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.011311 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved