本文整理汇总了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