Best practice for enumerating string constants

[Shayne H]

What is the best way to enumerate a grouping of strings?
The way I have been doing it is:

Public Enum PlatformID
Unknown
Win16
Win32
Win32NT
WinCE
End Enum

Private Shared sPlatform() As String = { _
"Unknown", _
"Microsoft Windows 16-bit", _
"Microsoft Windows 32-bit", _
"Microsoft Windows NT 32-bit", _
"Microsoft Windows CE"}

Private Shared Function PlatformToString(ByVal platform As
OSInfo.PlatformID) As String
Return sPlatform(platform)
End Function

Is there a better way to do this?
I feel that the strings should be constants rather than stored in a private
array field, but I cannot see a way other than a really long select case
statement.

--
Thanks for any help,
Shayne H

[Joshua Flanagan]

Use the ToString() method on the object, with the "g" or "f" format
specifier.

Dim x as PlatformID
x = PlatformID.Win16
Console.Writeline(x.ToString("f"))

should print "Win16" to the screen
"Shayne H" <shaynehATlycosSPAMGOTOHELLcoDOTuk> wrote in message
news:OV**************@TK2MSFTNGP09.phx.gbl...

What is the best way to enumerate a grouping of strings?
The way I have been doing it is:

Public Enum PlatformID
Unknown
Win16
Win32
Win32NT
WinCE
End Enum

Private Shared sPlatform() As String = { _
"Unknown", _
"Microsoft Windows 16-bit", _
"Microsoft Windows 32-bit", _
"Microsoft Windows NT 32-bit", _
"Microsoft Windows CE"}

Private Shared Function PlatformToString(ByVal platform As
OSInfo.PlatformID) As String
Return sPlatform(platform)
End Function

Is there a better way to do this?
I feel that the strings should be constants rather than stored in a private array field, but I cannot see a way other than a really long select case
statement.

--
Thanks for any help,
Shayne H

[Joshua Flanagan]

Use the ToString() method on the object, with the "g" or "f" format
specifier.

Dim x as PlatformID
x = PlatformID.Win16
Console.Writeline(x.ToString("f"))

should print "Win16" to the screen
"Shayne H" <shaynehATlycosSPAMGOTOHELLcoDOTuk> wrote in message
news:OV**************@TK2MSFTNGP09.phx.gbl...

What is the best way to enumerate a grouping of strings?
The way I have been doing it is:

Public Enum PlatformID
Unknown
Win16
Win32
Win32NT
WinCE
End Enum

Private Shared sPlatform() As String = { _
"Unknown", _
"Microsoft Windows 16-bit", _
"Microsoft Windows 32-bit", _
"Microsoft Windows NT 32-bit", _
"Microsoft Windows CE"}

Private Shared Function PlatformToString(ByVal platform As
OSInfo.PlatformID) As String
Return sPlatform(platform)
End Function

Is there a better way to do this?
I feel that the strings should be constants rather than stored in a private array field, but I cannot see a way other than a really long select case
statement.

--
Thanks for any help,
Shayne H