Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]字体窗口返回的样式怎么是数值，这样的那个字体样式要怎么操作


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

主题：[原创]字体窗口返回的样式怎么是数值，这样的那个字体样式要怎么操作
帅哥哟，离线，有人找我吗？
yjm789000
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1723 威望：0 精华：0 注册：2016/7/18 20:17:00 		[原创]字体窗口返回的样式怎么是数值，这样的那个字体样式要怎么操作  发帖心情 Post By：2019/11/23 12:28:00 [只看该作者]

Dim font As New Windows.forms.FontDialog
If font.showdialog = DialogResult.OK Then
    
 msgbox(font.font.Style)
End If


图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20191123122446.png
图片点击可在新窗口打开查看

选择字形和下面效果的时候，都是返回数值的。那实际中，我要设置字体，怎么才能通过这个窗口改变好我字体的样式。还是有更好的字体设置办法。包括字体类型，字体颜色，字体大小，字体样式
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/23 13:30:00 [只看该作者]

Dim font As New system.Windows.forms.FontDialog
If font.showdialog = DialogResult.OK Then
    tables("表A").font = font.font
End If

[此贴子已经被作者于2019/11/23 13:30:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yjm789000
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1723 威望：0 精华：0 注册：2016/7/18 20:17:00 		回复：（有点蓝）Dim font As New system.Window...  发帖心情 Post By：2019/11/23 19:11:00 [只看该作者]

老师，您好。因为我这个是对动态控件的，这个字体设置后，想保存到表里，下次显示控件的时候，直接调用这个字体。现在问题出现了，这个字体类型保存不了。如果能够保存字体后，后面又怎们调用出来，来显示这个对应的字体样式呢？


图片点击可在新窗口打开查看此主题相关图片如下：222.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4759 积分：34603 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/11/23 19:17:00 [只看该作者]

用字体名称、大小和样式三样东东保存

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


加好友 发短信
等级：幼狐 帖子：136 积分：1723 威望：0 精华：0 注册：2016/7/18 20:17:00 		回复：（y2287958）用字体名称、大小和样式三样东东保...  发帖心情 Post By：2019/11/23 19:24:00 [只看该作者]

获取到的  font.style是个数字值。保存后也没办法调用额

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


加好友 发短信
等级：狐神 帖子：4759 积分：34603 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/11/23 19:26:00 [只看该作者]

不能直接使用，要这样：Dim 字体样式 As FontStyle = 0

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


加好友 发短信
等级：幼狐 帖子：136 积分：1723 威望：0 精华：0 注册：2016/7/18 20:17:00 		回复：（y2287958）不能直接使用，要这样：Dim 字体样...  发帖心情 Post By：2019/11/23 19:36:00 [只看该作者]

可以了，感谢。我搞了半天了。

Dim lb As WinForm.Label = e.Form.Controls("mblb25")
Dim ys As FontStyle = 14
Dim ft As New Font("宋体",20, ys)
lb.Font= ft

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