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

Form2 frm = new Form2();
frm.Show();

offroaderdan wrote:

form2 = new form2

Dim subnode = node.SelectSingleNode("Name")
               Dim subnode2 = node.SelectSingleNode("SizeData")
               Dim SizeData As String = subnode2.Attributes.GetNamedItem("Size").Value

Try

    Dim odoc As New System.Xml.XmlDocument
    odoc.Load("C:\test\10g_2.xml")
    Dim oXmlLog As System.Xml.XmlElement
    Dim text As String = ""
    For Each oXmlLog In odoc.SelectNodes("Root")
        Dim node As System.Xml.XmlElement
        For Each node In oXmlLog.SelectNodes("Folder")
            Dim fullpath As String = node.Attributes.GetNamedItem("fullpath").Value

            'Dim SizeData As String = node.Attributes.GetNamedItem("SizeData").Value

            Dim subnode = node.SelectSingleNode("Name")
            Dim name As String = subnode.InnerText

            Dim subnode2 = node.SelectSingleNode("SizeData")
            Dim SizeData As String = subnode2.Attributes.GetNamedItem("Size").Value


            Dim Date_ As XmlElement = odoc.DocumentElement
            Dim Date_time As XmlNodeList = Date_.ChildNodes
            Dim Date__time = (Date_time(0).InnerText)



            text &= Date__time & " " & fullpath & " " & name & " " & SizeData & Environment.NewLine
        Next
    Next

    Console.Write(text)
    Console.Read()
Catch ex As Exception
    Console.Write(ex.ToString())
    Console.Read()
End Try

Imports System.IO
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'load xml into a dataset to use here
        Dim dS As New DataSet
        Dim fS As FileStream
        'open the xml file so we can use it to fill the dataset
        fS = New FileStream("C:\test\10g_2.xml", FileMode.Open)
        'fill the dataset
        Try
            dS.ReadXml(fS)
        Catch ex As Exception
            MsgBox(ex)
        Finally
            fS.Close()
        End Try
        Me.DataGridView1.DataSource = dS.Tables(2)

    End Sub
End Class