以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]字体问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69246)

--  作者:pcxjxjhkw
--  发布时间:2015/6/2 10:25:00
--  [求助]字体问题
如何调出字体设置对话框(包括字体、大小、效果、颜色等信息),设置后的字体信息保存到一变量中,下次再调用。
谢谢
[此贴子已经被作者于2015/6/2 10:46:05编辑过]

--  作者:Bin
--  发布时间:2015/6/2 10:27:00
--  
Dim lg As New Windows.forms.FontDialog
If lg.showdialog = DialogResult.OK Then
e.Form.Controls("Button1").font=lg.font
End If

--  作者:pcxjxjhkw
--  发布时间:2015/6/2 10:31:00
--  
谢谢
--  作者:pcxjxjhkw
--  发布时间:2015/6/2 10:32:00
--  
还有两个问题:1.无颜色设置。2.如何将设置保存到表中,下一次再调用。
--  作者:大红袍
--  发布时间:2015/6/2 11:00:00
--  

1、

 

Dim flg As new windows.forms.ColorDialog()
Dim clr As Color
If flg.showdialog = DialogResult.OK Then
    clr = flg.Color

End If

 

2、把对象的各个值保存下来,比如颜色,就需要保存各个分量的值 http://www.foxtable.com/help/topics/0496.htm