Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求代码获取所有字体和字体大小的方法；


  共有4284人关注过本帖树形打印复制链接

主题：求代码获取所有字体和字体大小的方法；
帅哥哟，离线，有人找我吗？
ndxfke
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00 		求代码获取所有字体和字体大小的方法；  发帖心情 Post By：2014/3/7 17:18:00 [只看该作者]

我想用代码做个 字体和字号 下拉选项，用代码怎么获取到这两项系统的所有值呢？

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/3/7 17:23:00 [只看该作者]

Dim lg As New Windows.forms.FontDialog
If lg.showdialog = DialogResult.OK Then
    output.show(lg.font.Tostring())
End If
 回到顶部
帅哥哟，离线，有人找我吗？
ndxfke
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00 		  发帖心情 Post By：2014/3/7 17:54:00 [只看该作者]


Run出来的结果：[Font: Name=宋体, Size=9, Units=3, GdiCharSet=134, GdiVerticalFont=False]

我怎么取值呢。

我加载到list就简单了，呵！
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/3/7 18:00:00 [只看该作者]

Dim lg As New Windows.forms.FontDialog
If lg.showdialog = DialogResult.OK Then
    output.show(lg.font.name)
    output.show(lg.font.SIZE)
End If

有关FONT的属性,参考帮助http://www.foxtable.com/help/topics/0494.htm
 回到顶部
帅哥哟，离线，有人找我吗？
ndxfke
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00 		  发帖心情 Post By：2014/3/8 11:01:00 [只看该作者]

谢谢你 BIN 

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 4 次数据查询