Diferentes idiomas con arrays
Publicado por jose (33 intervenciones) el 17/02/2018 12:46:39
Hola,
Necesito saber como podría cambiar los nombres de los textos a diferentes idiomas dependiendo del lenguaje del sistema operativo.
Hace tiempo que no toco vb.net y estoy bloqueado.
De momento he hecho esto:
Crear arrays
En el form_load
¿Esto funciona pero no hay otra manera de simplificarlo?
Necesito saber como podría cambiar los nombres de los textos a diferentes idiomas dependiendo del lenguaje del sistema operativo.
Hace tiempo que no toco vb.net y estoy bloqueado.
De momento he hecho esto:
1
Imports System.ManagementCrear arrays
1
2
3
4
'Arrays
Dim ES() As String = {"Archivo creado correctamente", "Añadir la nueva dirección del dispensador principal", "La dirección actual del dispensador es:", "Dirección del Dispensador"} ', "Cambiar la dirección del dispensador", "Opciones", "Tamaño", "Poner al Frente", "Bloquear Posición de la ventana", "Máximo", "Medio", "Mínimo"}
Dim EN() As String = {"File created correctly", "Add the new address of the printer", "The current address of the printer is:", "Address of the printer"} ', "Cambiar la dirección del dispensador", "Opciones", "Tamaño", "Poner al Frente", "Bloquear Posición de la ventana", "Maximum", "Meddium", "Minimum"}
En el form_load
1
2
3
4
5
Dim lang As String = My.Computer.Info.InstalledUICulture.IetfLanguageTag
If lang = "es_ES" Then
btn.text = ES(0)
End If
¿Esto funciona pero no hay otra manera de simplificarlo?
Valora esta pregunta
0
