您可能需要一个“for each locale循环”。

Dim info As CultureInfo
    For Each info In CultureInfo.GetCultures(CultureTypes.AllCultures)

        ListBox1.Items.Add(info.EnglishName)
    Next

将语言环境列表转储到Listbox1中需要半秒钟
然后，您可以通过各种方式引用'info'，例如：

info.NumberFormat
    info.DateTimeFormat

获取该区域设置中的今天日期date：

If Not info.IsNeutralCulture Then
            Dim dateNow As DateTime = DateTime.Now
            ListBox1.Items.Add(dateNow.ToString("d", info.DateTimeFormat).ToString)
        End If

检查围绕System.Globalization.CultureInfo类的所有内容.你可能会在那里找到你要找的东西

使用CultureInfo.GetCultures(CultureTypes)获取所有cu的列表

foreach (var locale in CultureInfo.GetCultures(CultureTypes.AllCultures))
{
    Console.Out.WriteLine(locale);
}