Restoring Dash and font styles

[Jack Russell]

I want to be able to store both drawing2d dash styles in a text file as
a string then restore them.

The first is easy but I can not find a simple way of converting them back.

Any Ideas??

Thanks

[Herfried K. Wagner [MVP]]

Jack,

"Jack Russell" <ja***@norubbish.tpg.com.au> schrieb:

I want to be able to store both drawing2d dash styles in a text file as a
string then restore them.

The first is easy but I can not find a simple way of converting them back.

\\\
Private Sub Form1_Load( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles MyBase.Load
Me.ListBox1.DataSource = _
[Enum].GetNames(GetType(KnownColor))
End Sub

Private Sub ListBox1_SelectedIndexChanged( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles ListBox1.SelectedIndexChanged
Me.ListBox1.BackColor = _
Color.FromKnownColor( _
DirectCast( _
[Enum].Parse( _
GetType(KnownColor), _
DirectCast(ListBox1.SelectedItem, String) _
), _
KnownColor _
) _
)
End Sub
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Jack Russell]

Thanks

Herfried K. Wagner [MVP] wrote:

Jack,

"Jack Russell" <ja***@norubbish.tpg.com.au> schrieb:

I want to be able to store both drawing2d dash styles in a text file
as a string then restore them.

The first is easy but I can not find a simple way of converting them
back.

\\\
Private Sub Form1_Load( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles MyBase.Load
Me.ListBox1.DataSource = _
[Enum].GetNames(GetType(KnownColor))
End Sub

Private Sub ListBox1_SelectedIndexChanged( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles ListBox1.SelectedIndexChanged
Me.ListBox1.BackColor = _
Color.FromKnownColor( _
DirectCast( _
[Enum].Parse( _
GetType(KnownColor), _
DirectCast(ListBox1.SelectedItem, String) _
), _
KnownColor _
) _
)
End Sub
///