Create un archivo de texto plano en el que añadirás todos los mensajes de la aplicación y cuyo nombre estará relacionado con el idioma y separa los mensajes con el carácter ":".
El fichero estará ubicado en la misma subcarpeta en la que se ejecuta la aplicación, y por tanto ésta buscará directamente en ella al inicio de la ejecución de la aplicación.
Cuando lo tengas listo, añade, dentro de la clase del formulario de uno de tus ejercicios un evento de tipo load, tratando de que cada control obtenga los textos y los tooltips directamente del fichero. También, en caso que los utilices, cualquier mensaje de error o mensaje que proporciones al usuario.
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load leerFichero() End Sub Private Sub leerFichero() Dim fichero As String = My.Computer.FileSystem.ReadAllText("es.txt") Dim cadena As String() = fichero.Split(":") Me.Text = cadena.GetValue(0) LblInserte.Text = cadena.GetValue(1) BtnCalcular.Text = cadena.GetValue(2) BtnLimpiar.Text = cadena.GetValue(3) Label1.Text = cadena.GetValue(4) End Sub
En este caso, leemos el archivo, los nombres de los elementos están separados por : y en getvalue se les da la posición en el que se encuentran en el documento.
Puedes descargarte el código aquí.
Hay otros metodos de hacer lo mismo, como puedes ver aquí
0 comentarios:
Publicar un comentario