ApplicationBase.ChangeCulture(String) 方法

public:
 void ChangeCulture(System::String ^ cultureName);

public void ChangeCulture(string cultureName);

member this.ChangeCulture : string -> unit

Public Sub ChangeCulture (cultureName As String)

参数

例外

示例

此示例演示更改区域性如何更改日期的字符串表示形式。

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

注解

方法 My.Application.ChangeCulture 更改当前线程的 CurrentCulture 属性。 CurrentCulture 确定该线程上所有计算的日期、时间、货币、数字、文本排序顺序、字符串比较和大小写的默认格式。

若要检索当前区域性，可以使用 Culture 属性或 CurrentCulture 属性。

该 CurrentCulture 设置不同于语言设置。 它仅包含与地理区域的标准设置相关的数据。 因此， CurrentCulture 属性只能设置为特定的区域性或 。InvariantCulture

My.Application.ChangeUICulture使用 方法更改当前线程用于检索特定于区域性的资源的区域性。

可用性（按项目类型）

另请参阅

• CurrentCulture
• 对象 (Visual Basic)