VB.Net/Development/RegionInfo — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
м (1 версия)
 
(нет различий)

Текущая версия на 15:45, 26 мая 2010

Region Info Table

<source lang="vbnet"> Imports System Imports System.Globalization Module Module1

  Sub Main()
     Dim AllCultures() As CultureInfo
     Dim ACulture As CultureInfo
     Dim Rg As RegionInfo
     Dim k As Integer
     AllCultures = CultureInfo.GetCultures(CultureTypes.SpecificCultures)
     For Each ACulture In AllCultures
        Rg = New RegionInfo(ACulture.LCID)
        Console.WriteLine(Rg.TwoLetterISORegionName.ToString().PadRight(5, " ") + _
                             "," + Rg.EnglishName.PadRight(40, " ") + _
                             "," + ACulture.LCID.ToString())
     Next
  End Sub

End Module


 </source>