VB.net List of US States

Thursday, 24 March 2011 19:26
// Here is a quick and dirty class to create a bindable list of states and abbreviations for vb.net which can also be used in Silverlight


Public Class clsStates



    Sub New(sName As String, sAbbrev As String)

        _StateName = sName

        _Abbreviation = sAbbrev

    End Sub



    Private _StateName As String

    Public Property StateName() As String

        Get

            Return _StateName

        End Get

        Set(ByVal value As String)

            _StateName = value

        End Set

    End Property



    Private _Abbreviation As String

    Public Property Abbreviation() As String

        Get

            Return _Abbreviation

        End Get

        Set(ByVal value As String)

            _Abbreviation = value

        End Set

    End Property



End Class



Public Class Globals



    Private _States As List(Of clsStates)

    Public Property States() As List(Of clsStates)

        Get

            If _States Is Nothing Then

                _States = New List(Of clsStates)

            End If



            If _States.Count = 0 Then

                FillStates()

            End If



            Return _States

        End Get

        Set(ByVal value As List(Of clsStates))

            _States = value

        End Set

    End Property



    Private Sub FillStates()

        _States.Add(New clsStates("Alabama", "AL"))

        _States.Add(New clsStates("Alaska", "AK"))

        _States.Add(New clsStates("Arizona", "AZ"))

        _States.Add(New clsStates("Arkansas", "AR"))

        _States.Add(New clsStates("California", "CA"))

        _States.Add(New clsStates("Colorado", "CO"))

        _States.Add(New clsStates("Connecticut", "CT"))

        _States.Add(New clsStates("Delaware", "DE"))

        _States.Add(New clsStates("District Of Columbia", "DC"))

        _States.Add(New clsStates("Florida", "FL"))

        _States.Add(New clsStates("Georgia", "GA"))

        _States.Add(New clsStates("Hawaii", "HI"))

        _States.Add(New clsStates("Idaho", "ID"))

        _States.Add(New clsStates("Illinois", "IL"))

        _States.Add(New clsStates("Indiana", "IN"))

        _States.Add(New clsStates("Iowa", "IA"))

        _States.Add(New clsStates("Kansas", "KS"))

        _States.Add(New clsStates("Kentucky", "KY"))

        _States.Add(New clsStates("Louisiana", "LA"))

        _States.Add(New clsStates("Maine", "ME"))

        _States.Add(New clsStates("Maryland", "MD"))

        _States.Add(New clsStates("Massachusetts", "MA"))

        _States.Add(New clsStates("Michigan", "MI"))

        _States.Add(New clsStates("Minnesota", "MN"))

        _States.Add(New clsStates("Mississippi", "MS"))

        _States.Add(New clsStates("Missouri", "MO"))

        _States.Add(New clsStates("Montana", "MT"))

        _States.Add(New clsStates("Nebraska", "NE"))

        _States.Add(New clsStates("Nevada", "NV"))

        _States.Add(New clsStates("New Hampshire", "NH"))

        _States.Add(New clsStates("New Jersey", "NJ"))

        _States.Add(New clsStates("New Mexico", "NM"))

        _States.Add(New clsStates("New York", "NY"))

        _States.Add(New clsStates("North Carolina", "NC"))

        _States.Add(New clsStates("North Dakota", "ND"))

        _States.Add(New clsStates("Ohio", "OH"))

        _States.Add(New clsStates("Oklahoma", "OK"))

        _States.Add(New clsStates("Oregon", "OR"))

        _States.Add(New clsStates("Pennsylvania", "PA"))

        _States.Add(New clsStates("Rhode Island", "RI"))

        _States.Add(New clsStates("South Carolina", "SC"))

        _States.Add(New clsStates("South Dakota", "SD"))

        _States.Add(New clsStates("Tennessee", "TN"))

        _States.Add(New clsStates("Texas", "TX"))

        _States.Add(New clsStates("Utah", "UT"))

        _States.Add(New clsStates("Vermont", "VT"))

        _States.Add(New clsStates("Virginia", "VA"))

        _States.Add(New clsStates("Washington", "WA"))

        _States.Add(New clsStates("West Virginia", "WV"))

        _States.Add(New clsStates("Wisconsin", "WI"))

        _States.Add(New clsStates("Wyoming", "WY"))

    End Sub

End Class