Mega Code Archive

 

Categories / VB.Net / Internationalization

 

Gets the CultureInfo that represents the parent culture of the current CultureInfo

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