获取当前系统的所有本地语言信息

https://blog.clso.fun/posts/177.html

Shared Function getLangInfo(Optional ByVal langName As String = Nothing) As String()
    Dim cinfo As Globalization.CultureInfo
    If langName = Nothing Then
        cinfo = Globalization.CultureInfo.InstalledUICulture
    Else
        Try
            'cinfo = Globalization.CultureInfo.GetCultureInfoByIetfLanguageTag(langName)
            cinfo = New Globalization.CultureInfo(langName)
        Catch ex As Exception
            Return Nothing
        End Try
    End If
 
    If cinfo Is Globalization.CultureInfo.InvariantCulture Then
        Return Nothing
    End If
 
    Dim slist As New List(Of String)
    Do
        slist.Add(cinfo.Name)
        cinfo = cinfo.Parent
    Loop Until cinfo Is Globalization.CultureInfo.InvariantCulture
 
    Return slist.ToArray
End Function