Cambiar idioma de otro formulario
Publicado por Alex (2 intervenciones) el 05/03/2012 18:42:52
Buenas tardes, tengo un problema, y es que tengo dos formularios, y en el formulario A tengo un código que puesto y puede cambiar el idioma del formulario A:
Private Sub SetLocale(ByVal locale_name As String)
Static setting_locale As Boolean = False
If setting_locale Then Exit Sub
If Not Me.Created Then Exit Sub
If Thread.CurrentThread.CurrentCulture.Name = locale_name Then Exit Sub
setting_locale = True
Dim culture_info As New CultureInfo(locale_name)
Thread.CurrentThread.CurrentUICulture = culture_info
Thread.CurrentThread.CurrentCulture = culture_info
If Me.components IsNot Nothing Then Me.components.Dispose()
Me.Controls.Clear()
Me.InitializeComponent()
setting_locale = False
End Sub
Private Sub izquierda_Click(sender As Object, e As EventArgs) Handles izquierda.Click
SetLocale("en-US")
End Sub
Con esto me cambia el idioma del formulario A a inglés. El problema es que ahora quiero poder cambiar el idioma del formulario B mediante código desde el formulario A.
También quiero decir que los dos formularios están abiertos simultáneamente.
Muchas gracias.
Private Sub SetLocale(ByVal locale_name As String)
Static setting_locale As Boolean = False
If setting_locale Then Exit Sub
If Not Me.Created Then Exit Sub
If Thread.CurrentThread.CurrentCulture.Name = locale_name Then Exit Sub
setting_locale = True
Dim culture_info As New CultureInfo(locale_name)
Thread.CurrentThread.CurrentUICulture = culture_info
Thread.CurrentThread.CurrentCulture = culture_info
If Me.components IsNot Nothing Then Me.components.Dispose()
Me.Controls.Clear()
Me.InitializeComponent()
setting_locale = False
End Sub
Private Sub izquierda_Click(sender As Object, e As EventArgs) Handles izquierda.Click
SetLocale("en-US")
End Sub
Con esto me cambia el idioma del formulario A a inglés. El problema es que ahora quiero poder cambiar el idioma del formulario B mediante código desde el formulario A.
También quiero decir que los dos formularios están abiertos simultáneamente.
Muchas gracias.
Valora esta pregunta


0