My.Application.Culture 屬性

發行項
08/21/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