Mega Code Archive

 

Categories / VB.Net / Data Types

 

CultureInfos English Name and

Imports System Imports System.Globalization Module Module1     Public Sub Main()         Dim ci As CultureInfo         For Each ci In CultureInfo.GetCultures(CultureTypes.SpecificCultures)             If ci.TwoLetterISOLanguageName = "zh" Then                 Console.Write("0x{0} {1} {2,-40}", ci.LCID.ToString("X4"), ci.Name, ci.EnglishName)                 Console.WriteLine("0x{0} {1} {2}", ci.Parent.LCID.ToString("X4"), ci.Parent.Name, ci.Parent.EnglishName)             End If         Next ci     End Sub 'Main  End Module