编程设置文本框的字体？

kidman11

我想把用户选择的字体保存到XML文件，下次运行的时候加载用户设定的字体来改变文本框Textbox1的字体。可是Textbox1.font.size、style等等属性都是ReadOnly的，要用new font()来设置它的字体。如果我用font.toString保存到文件，读出来的时候怎么样应用到textbox1.font上？
谢谢~！

hyperion

Me.urlTextBox.Font = New System.Drawing.Font("隶书", 7.5!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(134, Byte))

[Font: Name=隶书, Size=7.5, Units=3, GdiCharSet=134, GdiVerticalFont=False]


[Font: Name=隶书, Size=7.5, Units=3, GdiCharSet=134, GdiVerticalFont=False]
Me.urlTextBox.Font = New System.Drawing.Font("隶书", 7.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))

看看上面这两组数据，你分析一下。多打开*.Designer.vb文件，能学到很多知识的

closerbaby

昨天也遇到了同样的问题，没想到今天就找到方法解决了，谢谢楼上的前辈了

kidman11

也就是说，用font.ToString方法得到的是不包含字体的Style的？
楼上两位，有没有更有效率的方法来做这件事情呢？ 谢谢~

kidman11

后来我按这样的格式存到文件：

'PanelForPrint为一个Panel控件的Name，需要处理的控件都放在该Panel里。
'写入部分
dim location, font as string
dim obj as Object
for each obj in PanelForPrint.Controls
location = obj.Top & "," & obj.Left
font = obj.Font.Name & "," & obj.Font.SizeInPoints & "," & obj.Font.Style
'More Code....

'读出部分
'有XML文件得到相应的node之后：
Dim location As String = node.Attributes("location").Value
Dim font As String = node.Attributes("font").Value
Dim arrLoc() As String
arrLoc = location.Split(",")
obj.Top = arrLoc(0)
obj.Left = arrLoc(1)
Dim arrFont() As String
arrFont = font.Split(",")
obj.Font = New Font(arrFont(0), arrFont(1), arrFont(2), GraphicsUnit.Point)