- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [原创]字体窗口返回的样式怎么是数值，这样的那个字体样式要怎么操作 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143404)
-- 发布时间：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
选择字形和下面效果的时候，都是返回数值的。那实际中，我要设置字体，怎么才能通过这个窗口改变好我字体的样式。还是有更好的字体设置办法。包括字体类型，字体颜色，字体大小，字体样式
-- 发布时间：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编辑过]
-- 发布时间：2019/11/23 19:11:00
-- 回复：（有点蓝）Dim font As New system.Window...
老师，您好。因为我这个是对动态控件的，这个字体设置后，想保存到表里，下次显示控件的时候，直接调用这个字体。现在问题出现了，这个字体类型保存不了。如果能够保存字体后，后面又怎们调用出来，来显示这个对应的字体样式呢？
此主题相关图片如下：222.jpg
-- 发布时间：2019/11/23 19:17:00
--
用字体名称、大小和样式三样东东保存
-- 发布时间：2019/11/23 19:24:00
-- 回复：（y2287958）用字体名称、大小和样式三样东东保...
获取到的 font.style是个数字值。保存后也没办法调用额
-- 发布时间：2019/11/23 19:26:00
--
不能直接使用，要这样：Dim 字体样式 As FontStyle = 0
-- 发布时间：2019/11/23 19:36:00
-- 回复：（y2287958）不能直接使用，要这样：Dim 字体样...
可以了，感谢。我搞了半天了。
Dim lb As WinForm.Label = e.Form.Controls("mblb25")
Dim ys As FontStyle = 14
Dim ft As New Font("宋体",20, ys)
lb.Font= ft
原来要这样玩的