本文整理匯總了VB.NET中System.Globalization.CultureInfo.CurrentUICulture屬性的典型用法代碼示例。如果您正苦於以下問題：VB.NET CultureInfo.CurrentUICulture屬性的具體用法？VB.NET CultureInfo.CurrentUICulture怎麽用？VB.NET CultureInfo.CurrentUICulture使用的例子？那麽, 這裏精選的屬性代碼示例或許可以為您提供幫助。您也可以進一步了解該屬性所在類System.Globalization.CultureInfo的用法示例。
在下文中一共展示了CultureInfo.CurrentUICulture屬性的4個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Example
' 導入命名空間
Imports System.Globalization
Imports System.Threading
Public Module Example
Public Sub Main()
' Display the name of the current thread culture.
Console.WriteLine("CurrentCulture is {0}.", CultureInfo.CurrentCulture.Name)
' Change the current culture to th-TH.
CultureInfo.CurrentCulture = New CultureInfo("th-TH", False)
Console.WriteLine("CurrentCulture is now {0}.", CultureInfo.CurrentCulture.Name)
' Display the name of the current UI culture.
Console.WriteLine("CurrentUICulture is {0}.", CultureInfo.CurrentUICulture.Name)
' Change the current UI culture to ja-JP.
CultureInfo.CurrentUICulture = New CultureInfo("ja-JP", False)
Console.WriteLine("CurrentUICulture is now {0}.", CultureInfo.CurrentUICulture.Name)
End Sub
End Module輸出：
CurrentCulture is en-US. CurrentCulture is now th-TH. CurrentUICulture is en-US. CurrentUICulture is now ja-JP.
示例2: Example
' 導入命名空間
Imports System.Collections.Generic
Imports System.Globalization
Imports System.Runtime.Versioning
Imports System.Threading
Imports System.Threading.Tasks
<assembly:TargetFramework(".NETFramework,Version=v4.6")>
Module Example
Public Sub Main()
Dim tasks As New List(Of Task)
Console.WriteLine("The current UI culture is {0}",
Thread.CurrentThread.CurrentUICulture.Name)
Thread.CurrentThread.CurrentUICulture = New CultureInfo("pt-BR")
' Change the current UI culture to Portuguese (Brazil).
Console.WriteLine("Current culture changed to {0}",
Thread.CurrentThread.CurrentUICulture.Name)
Console.WriteLine("Application thread is thread {0}",
Thread.CurrentThread.ManagedThreadId)
' Launch six tasks and display their current culture.
For ctr As Integer = 0 to 5
tasks.Add(Task.Run(Sub()
Console.WriteLine("Culture of task {0} on thread {1} is {2}",
Task.CurrentId,
Thread.CurrentThread.ManagedThreadId,
Thread.CurrentThread.CurrentUICulture.Name)
End Sub))
Next
Task.WaitAll(tasks.ToArray())
End Sub
End Module輸出：
The current culture is en-US Current culture changed to pt-BR Application thread is thread 9 Culture of task 2 on thread 11 is pt-BR Culture of task 1 on thread 10 is pt-BR Culture of task 3 on thread 11 is pt-BR Culture of task 5 on thread 11 is pt-BR Culture of task 6 on thread 11 is pt-BR Culture of task 4 on thread 10 is pt-BR
示例3: Main
' 導入命名空間
Imports System.Globalization
Module Example
Public Sub Main()
Dim culture As CultureInfo = CultureInfo.CurrentCulture
Console.WriteLine("The current UI culture is {0} [{1}]",
culture.NativeName, culture.Name)
End Sub
End Module輸出：
The current UI culture is English (United States) [en-US]
示例4: Example
' 導入命名空間
Imports System.Globalization
Imports System.Threading
Module Example
Public Sub Main()
Console.WriteLine("The current UI culture: {0}",
CultureInfo.CurrentUICulture.Name)
CultureInfo.CurrentUICulture = CultureInfo.CreateSpecificCulture("fr-FR")
Console.WriteLine("The current UI culture: {0}",
CultureInfo.CurrentUICulture.Name)
End Sub
End Module輸出：
The current UI culture: en-US The current UI culture: fr-FR