Mega Code Archive

 

Categories / VB.Net / Internationalization

 

Determines the specific cultures that use the Chinese language, and displays the parent culture

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