本文整理汇总了VB.NET中System.Globalization.CultureInfo.CurrentCulture属性的典型用法代码示例。如果您正苦于以下问题：VB.NET CultureInfo.CurrentCulture属性的具体用法？VB.NET CultureInfo.CurrentCulture怎么用？VB.NET CultureInfo.CurrentCulture使用的例子？那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Globalization.CultureInfo的用法示例。
在下文中一共展示了CultureInfo.CurrentCulture属性的5个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的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 culture is {0}",
Thread.CurrentThread.CurrentCulture.Name)
Thread.CurrentThread.CurrentCulture = New CultureInfo("pt-BR")
' Change the current culture to Portuguese (Brazil).
Console.WriteLine("Current culture changed to {0}",
Thread.CurrentThread.CurrentCulture.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.CurrentCulture.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: Example
' 导入命名空间
Imports System.Globalization
Module Example
Public Sub Main()
Dim culture As CultureInfo = CultureInfo.CurrentCulture
Console.WriteLine("The current culture is {0} [{1}]",
culture.NativeName, culture.Name)
End Sub
End Module输出：
The current culture is English (United States) [en-US]
示例4: Example
' 导入命名空间
Imports System.Globalization
Imports System.Threading
Public Class Info : Inherits MarshalByRefObject
Public Sub ShowCurrentCulture()
Console.WriteLine("Culture of {0} in application domain {1}: {2}",
Thread.CurrentThread.Name,
AppDomain.CurrentDomain.FriendlyName,
CultureInfo.CurrentCulture.Name)
End Sub
End Class
Module Example
Public Sub Main()
Dim inf As New Info()
' Set the current culture to Dutch (Netherlands).
Thread.CurrentThread.Name = "MainThread"
CultureInfo.CurrentCulture = CultureInfo.CreateSpecificCulture("nl-NL")
inf.ShowCurrentCulture()
' Create a new application domain.
Dim ad As AppDomain = AppDomain.CreateDomain("Domain2")
Dim inf2 As Info = CType(ad.CreateInstanceAndUnwrap(GetType(Info).Assembly.FullName, "Info"),
Info)
inf2.ShowCurrentCulture()
End Sub
End Module输出：
Culture of MainThread in application domain Example.exe: nl-NL Culture of MainThread in application domain Domain2: nl-NL
示例5: Example
' 导入命名空间
Imports System.Globalization
Imports System.Threading
Module Example
Public Sub Main()
Dim value As Double = 1634.92
CultureInfo.CurrentCulture = New CultureInfo("fr-CA")
Console.WriteLine("Current Culture: {0}",
CultureInfo.CurrentCulture.Name)
Console.WriteLine("{0:C2}", value)
Console.WriteLine()
Thread.CurrentThread.CurrentCulture = New CultureInfo("fr")
Console.WriteLine("Current Culture: {0}",
CultureInfo.CurrentCulture.Name)
Console.WriteLine("{0:C2}", value)
End Sub
End Module输出：
Current Culture: fr-CA 1 634,92 $ Current Culture: fr 1 634,92 €