My.Application.Culture-Eigenschaft

Artikel
08/20/2008

Aktualisiert: November 2007

Ruft die Kultur ab, die der aktuelle Thread für die Zeichenfolgenbearbeitung und Zeichenfolgenformatierung verwendet.

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

Rückgabewert

Gibt das CultureInfo-Objekt zurück, das die Kultur darstellt, die der aktuelle Thread für die Zeichenfolgenbearbeitung und Zeichenfolgenformatierung verwendet.

Hinweise

Die My.Application.CurrentCulture-Eigenschaft ruft das CultureInfo-Objekt ab, das der aktuelle Thread für die Zeichenfolgenbearbeitung und Zeichenfolgenformatierung verwendet. Dieses Objekt ist mit dem von der CurrentCulture-Eigenschaft zurückgegebenen Objekt identisch. Diese Eigenschaft steuert zahlreiche Berechnungen für Zeichenfolgen in diesem Thread. Die CurrentCulture-Eigenschaft bestimmt die Standardformate für Datumsangaben, Uhrzeit, Währung und Zahlen. Sie bestimmt außerdem die Sortierung, den Vergleich und die Groß-/Kleinschreibung von Zeichenfolgen.

Um die Kultur zu ändern, können Sie die My.Application.ChangeCulture-Methode verwenden oder der CurrentCulture-Eigenschaft ein anderes CultureInfo-Objekt zuweisen.

Die CurrentCulture-Einstellung unterscheidet sich von der Spracheinstellung. Sie enthält nur Daten, die sich auf die Standardeinstellungen für eine geografische Region beziehen.

Verwenden Sie die My.Application.CurrentUICulture-Eigenschaft, um die Kultur abzurufen, die der aktuelle Thread zum Abrufen von kulturspezifischen Ressourcen verwendet.

Beispiel

In diesem Beispiel wird veranschaulicht, wie sich die Kultur auf die Zeichenfolgenentsprechung von Datumsangaben auswirkt.

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