Convert string to system font

[guitardave78]

Is it possible to convert this string
[Font: Name=Microsoft Sans Serif, Size=8.25, Units=3, GdiCharSet=0, GdiVerticalFont=False]

into a system font

Basically i am saving the font details as a string then wanting to recall them.



}...the bane of my life!

http://www.fuzzyd.co.uk

 

[guitardave78]

Can i use these settings to change the font of a text area?

<Name>Microsoft Sans Serif</Name>
<GdiCharSet>0</GdiCharSet>
<Strikeout>False</Strikeout>
<Style>0</Style>
<Underline>False</Underline>
<Bold>False</Bold>
<Italic>False</Italic>
<Size>8.25</Size>

}...the bane of my life!

http://www.fuzzyd.co.uk

 

[PGoRule]

Are you talking about saving the font style in configuration file and then retrieving it?

Sharing the best from my side...

--Prashant--

 

[guitardave78]

Yep.
Solved

    Private Function fontToString(ByVal font As System.Drawing.Font)
        Dim tc As System.ComponentModel.TypeConverter = System.ComponentModel.TypeDescriptor.GetConverter(GetType(Font))
        fontToString = tc.ConvertToString(font)
        tc = Nothing
    End Function

    Private Function stringToFont(ByVal str As String) As System.Drawing.Font
        Dim tc As System.ComponentModel.TypeConverter = System.ComponentModel.TypeDescriptor.GetConverter(GetType(Font))
        stringToFont = CType(tc.ConvertFromString(str), Font)
        tc = Nothing
    End Function

}...the bane of my life!

http://www.fuzzyd.co.uk

 

[PGoRule]

Thats great...

Sharing the best from my side...

--Prashant--