Programmatically set the font of a text box?

kidman11

I want to save the font selected by the user to an XML file, and load the font set by the user the next time I run to change the font of Textbox1. But the properties of Textbox1.font.size, style and so on are ReadOnly. We need to set its font using new font () If I use font.toString to save to a file, how do I apply it to textbox1.font when I read it out?
Thank you ~!

hyperion

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

[Font: Name = Li Shu, Size = 7.5, Units = 3, GdiCharSet = 134, GdiVerticalFont = False]


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

Take a look at the two sets of data above and you analyze it. Open more * .Designer.vb files, you can learn a lot

closerbaby

I encountered the same problem yesterday. I didn't expect to find a solution today. Thank you, the senior upstairs.

kidman11

In other words, the font.ToString method does not contain the style of the font?
Upstairs, is there a more efficient way to do this? Thank you ~

kidman11

Later I saved to a file in this format:

'PanelForPrint is the name of a Panel control, and the controls to be processed are placed in the Panel.
'Write part
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....

'Reading part
'After the XML file gets the corresponding 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)