Método My.Application.ChangeCulture

Artigo
08/25/2010

Modifique a cultura utilizada pelo segmento atual para manipulação e formatação de cadeias de caracteres.

' Usage
My.Application.ChangeCulture(cultureName)
' Declaration
Public Sub ChangeCulture( _
   ByVal cultureName As String _
)

Parâmetros

cultureName
String.Nome da cultura sistema autônomo uma seqüência de caracteres.Para obter uma lista dos nomes possíveis, consulte CultureInfo.

Exceções

As condições a seguir podem causar uma exceção:

O argumento cultureName é Nothing (ArgumentNullException).
O argumento cultureName não é um nome válido de cultura (ArgumentException).

Comentários

The My.Application.ChangeCulture método altera thread's corrente CurrentCulture propriedade. CurrentCulture determina os formatos padrão para datas, horas, moeda, números, ordem de texto, as comparações de seqüência de caracteres e letras maiúsculas e minúsculas para todos os cálculos em que thread de classificação.

Para recuperar a cultura atual, você pode usar Propriedade My.Application.UICulture ou a propriedade CurrentCulture.

A configuração CurrentCulture é diferente da configuração de idioma.Ele contém apenas dados relacionados às configurações padrão para uma região geográfica.Portanto, a propriedade CurrentCulture somente pode ser definida para uma cultura específica ou para InvariantCulture.

Use o método My.Application.ChangeUICulture para alterar a cultura que o segmento atualusa para recuperar recursos específicos de uma cultura.

Observação de segurança:
O My.Application.ChangeCulture método exige um SecurityPermission com o ControlThread Defina. Manipular segmentos é perigoso devido o estado de segurança associado com segmentos.Portanto, essa permissão deve ser dada somente conforme necessário a código confiável.Não é possível alterar a cultura de um segmento em código semiconfiável.

Exemplo

Este exemplo demonstra como mudar a cultura altera a representação de sequência de caracteres de datas.

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

Requisitos

Namespace:Microsoft.VisualBasic.ApplicationServices

Classe:WindowsFormsApplicationBase, ApplicationBase

Assembly: Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)

Disponibilidade por Tipo de Projeto

Tipo de Projeto	Disponível
Aplicativo do Windows	Sim
Biblioteca de Classe	Sim
Aplicativo de Console	Sim
Biblioteca de Controle do Windows	Sim
Biblioteca de Controle da Web	Não
Serviço do Windows	Sim
Site	Não