My.Application.Culture 属性

项目
08/18/2008

更新：2007 年 11 月

获取当前线程用于字符串操作和字符串格式设置的区域性。

' Usage
Dim value As System.Globalization.CultureInfo = My.Application.Culture
' Declaration
Public ReadOnly Property Culture As System.Globalization.CultureInfo

返回值

返回 CultureInfo 对象，该对象代表着当前线程用于字符串操作和字符串格式设置的区域性。

备注

My.Application.CurrentCulture 属性获取当前线程用于字符串操作和字符串格式设置的 CultureInfo 对象。此对象与 CurrentCulture 属性返回的对象相同，它控制着该线程上许多与字符串相关的计算。CurrentCulture 属性决定日期、时间、货币和数字的默认格式。它还决定如何对字符串进行排序、比较和将字符串改为大写。

要更改区域性，可以使用 My.Application.ChangeCulture 方法，或将不同的 CultureInfo 对象分配给 CurrentCulture 属性。

CurrentCulture 设置与语言设置不同。它仅包含与地理区域的标准设置相关的数据。

使用 My.Application.CurrentUICulture 属性可获取当前线程用于检索特定于区域性的资源的区域性。

示例

本示例演示区域性如何影响日期的字符串表示形式。

Private Sub TestChangeCulture()
    ' Store the current culture.
    Dim currentculture As String = My.Application.Culture.Name
    MsgBox("Current culture is " & currentculture)

    Dim jan1 As New Date(2005, 1, 1, 15, 15, 15)

    My.Application.ChangeCulture("en-US")
    MsgBox("Date represented in en-US culture: " & jan1)
    ' 1/1/2005 3:15:15 PM

    My.Application.ChangeCulture("")
    MsgBox("Date represented in invariant culture" & jan1)
    ' 01/01/2005 15:15:15

    ' Restore the culture.
    My.Application.ChangeCulture(currentculture)
End Sub