Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| ' Differences in sort order: | |
| ' Swedish ö | |
| ' Visual Basic .NET Document | |
| Option Strict On | |
| ' <Snippet3> | |
| Imports System.Globalization | |
| Imports System.Threading | |
| Module Example | |
| Public Sub Main() | |
| Dim values() As String = { "able", "ångström", "apple", _ | |
| "Æble", "Windows", "Visual Studio" } | |
| Array.Sort(values) | |
| DisplayArray(values) | |
| ' Change culture to Swedish (Sweden). | |
| Dim originalCulture As String = CultureInfo.CurrentCulture.Name | |
| Thread.CurrentThread.CurrentCulture = New CultureInfo("sv-SE") | |
| Array.Sort(values) | |
| DisplayArray(values) | |
| ' Restore the original culture. | |
| Thread.CurrentThread.CurrentCulture = New CultureInfo(originalCulture) | |
| End Sub | |
| Private Sub DisplayArray(values() As String) | |
| Console.WRiteLine("Sorting using the {0} culture:", _ | |
| CultureInfo.CurrentCulture.Name) | |
| For Each value As String In values | |
| Console.WriteLine(" {0}", value) | |
| Next | |
| Console.WriteLine() | |
| End Sub | |
| End Module | |
| ' The example displays the following output: | |
| ' Sorting using the en-US culture: | |
| ' able | |
| ' Æble | |
| ' ångström | |
| ' apple | |
| ' Visual Studio | |
| ' Windows | |
| ' | |
| ' Sorting using the sv-SE culture: | |
| ' able | |
| ' Æble | |
| ' apple | |
| ' Windows | |
| ' Visual Studio | |
| ' ångström | |
| ' </Snippet3> |