DotNetLib Locale Test

Imports DotNetLib.Common

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        LocalePath = Application.StartupPath & "\Locale\"
        Initialize()

        AddHandler LocaleChanged, AddressOf Changed

        ComboBox1.Items.AddRange(AviableLocales)

        If Not ComboBox1.Items.Count = -1 Then
            ComboBox1.SelectedIndex = 0
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        SetLocale(ComboBox1.SelectedItem)
    End Sub

    Private Sub Changed()
        btn_checkforupdates.Text = [Get]("checkforupdates")
        lbl_welcomeuser.Text = [Get]("welcomeuser")
    End Sub

End Class