Visual Basic

Imports System
Imports Microsoft.Win32
Imports System.Windows.Forms


Public Class Form1

    Public Sub New()

        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Adds Handler to receive Events for any changes in the windows control panel 
        AddHandler SystemEvents.UserPreferenceChanging, AddressOf SystemEvents_UserPreferenceChanging

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.PutDataToUI()
    End Sub

    Private Sub SystemEvents_UserPreferenceChanging(ByVal sender As Object, ByVal e As UserPreferenceChangingEventArgs)
        If e.Category = UserPreferenceCategory.Locale Then
            My.Application.Culture.ClearCachedData()
            My.Application.UICulture.ClearCachedData()
            Me.PutDataToUI()
        Else
        End If
    End Sub

    ''' <summary>
    ''' Puts some data to an textbox 
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub PutDataToUI()

        Me.TextBox1.Text = My.Application.Culture.DisplayName & vbCrLf _
                      & My.Application.Culture.EnglishName & vbCrLf _
                      & Now.ToLongDateString & vbCrLf _
                      & Now.ToLongTimeString & vbCrLf _
                      & Now.ToShortDateString & vbCrLf _
                      & Now.ToShortTimeString & vbCrLf _
                      & My.Application.Culture.Name & vbCrLf _
                      & My.Application.UICulture.NativeName
    End Sub

End Class

gilchinger wrote:

This does not work, because if you change the windows culture (windows control panel) the Thread Culture in the running vb.net program does not change.

HKEY_CURRENT_USER\Control Panel\International

I are Troll

Dim x As Double = 5000
 Me.TextBox1.Text = x.ToString("C", My.Application.Culture.NumberFormat)

gilchinger wrote:

Only for date/time formats i use automatic adjustment to the new format.

I are Troll