Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ublic Class LanguagePatcher
- Private Sub LanguagePatcher_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- If My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "german" Then
- My.Settings.ProgramLanguage = "Deutsch"
- ProgramLanguageBox.Text = "Deutsch"
- ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "english" Then
- My.Settings.ProgramLanguage = "English"
- ProgramLanguageBox.Text = "English"
- ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "french" Then
- My.Settings.ProgramLanguage = "Français"
- ProgramLanguageBox.Text = "Français"
- ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "polish" Then
- My.Settings.ProgramLanguage = "Polski"
- ProgramLanguageBox.Text = "Polski"
- ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "russian" Then
- My.Settings.ProgramLanguage = "Русский"
- ProgramLanguageBox.Text = "Русский"
- ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "dutch" Then
- My.Settings.ProgramLanguage = "Nederlands"
- ProgramLanguageBox.Text = "Nederlands"
- ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "spanish" Then
- My.Settings.ProgramLanguage = "Español"
- ProgramLanguageBox.Text = "Español"
- ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "danish" Then
- My.Settings.ProgramLanguage = "Dansk"
- ProgramLanguageBox.Text = "Dansk"
- ElseIf My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Valve\Steam", "Language", True) = "italian" Then
- My.Settings.ProgramLanguage = "Italiano"
- ProgramLanguageBox.Text = "Italiano"
- End If
- PictureBox.Image = My.Resources.Steam___Language_Patcher___Main_Backgroundimage
- MusicCheckBox.Checked = False
- PatcherLanguageBox.Text = My.Settings.PatcherLanguage
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement