SHOW:
|
|
- or go back to the newest paste.
| 1 | Imports DotNetLib.Common | |
| 2 | ||
| 3 | Public Class Form1 | |
| 4 | ||
| 5 | Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load | |
| 6 | - | LocalePath = Application.StartupPath & "\Locale\" |
| 6 | + | |
| 7 | ||
| 8 | AddHandler LocaleChanged, AddressOf Changed | |
| 9 | ||
| 10 | ComboBox1.Items.AddRange(AviableLocales) | |
| 11 | ||
| 12 | If Not ComboBox1.Items.Count = -1 Then | |
| 13 | ComboBox1.SelectedIndex = 0 | |
| 14 | End If | |
| 15 | End Sub | |
| 16 | ||
| 17 | Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged | |
| 18 | SetLocale(ComboBox1.SelectedItem) | |
| 19 | End Sub | |
| 20 | ||
| 21 | Private Sub Changed() | |
| 22 | btn_checkforupdates.Text = [Get]("checkforupdates")
| |
| 23 | lbl_welcomeuser.Text = [Get]("welcomeuser")
| |
| 24 | End Sub | |
| 25 | ||
| 26 | End Class |
