VB.NET EM TRES LINGUAS PORTUGUES, INGLES, ESPAÑOL

ADEMIR 24/02/2010 11:18:35
#335204

VB .net
VB 2008 Express
Seu aplicativo em outra língua VB 2008 Express
Olá pessoal! Hoje estou muito emocionado só em publicar este artigo pra galera. Depois de muita pesquisa eu consegui descobrir como montar um aplicativo em três idiomas ou mais em vb.net
E já vou começar mandando ver! Nesse artigo aprenderemos como traduzir seu aplicativo do português para o inglês, Español, ou vice-versa, utilizando um arquivo na extensão (.INI). Vamos lá?

1º Passo: Criação do Arquivo .INI
1) Abra o aplicativo Bloco de Notas, e digite o texto abaixo:
[language]
Português
T101 = Arquivo
T102 = Novo
T103 = Abrir
T104 = Salvar
T105 = Salvar Como...
T106 = Fechar
T107 = Idiomas:
T108 = Sobre...
T109 = Programa
T110 = Empresa
T111 = Traduzindo meu primeiro Aplicativo!
T112 = Meu aplicativo em outras línguas.
T113 = Seu aplicativo em outra língua Olá pessoal! Hoje estou muito emocionado só em publicar este artigo ai pra galera. Depois de muita pesquisa eu consegui descobrir como montar um aplicativo em três idiomas ou mais em vb.net. E já vou começar mandando ver! Nesse artigo aprenderemos como traduzir seu aplicativo do português para o inglês e Español, ou vice-versa, utilizando um arquivo na extensão (.INI). Vamos lá?
Obs. Coloque o texto T113 tudo na mesma linha.

inguês

T201 = File
T202 = New
T203 = Open
T204 = Salve
T205 = Salve As
T206 = Exit
T207 = Languages:
T208 = On...
T209 = Software
T210 = Company
T211 = Translating my first Application!
T212 = My application in other languages.
T213 = Your application in another language Hello everybody! Today I am very thrilled just to publish this article ai pra galera. After much research I could find out how to assemble an application in three languages or more in vb.net And now I will start sending to see! In this article learn how to translate your application from Portuguese into English and Spanish,or vice versa, using a file in the extension (. INI). Come?
Obs. Coloque o texto T213 tudo na mesma linha.

Español

T301 = Archivo
T302 = Nuevo
T303 = Abrir
T304 = Guardar
T305 = Guardar como ..
T306 = Cerrar
T307 = Idiomas:
T308 = Acerca de ...
T309 = Programa
T310 = Empresa
T311 = Traslación de mi primera aplicación!
T312 = Mi aplicación en otros idiomas.
T313 = Su aplicación en otro idioma Hola a todos! Hoy estoy muy emocionado sólo para publicar este artículo ai galera pra. Después de mucha investigación he podido averiguar cómo montar una aplicación en tres idiomas o más en vb.net Y ahora voy a empezar a enviar a ver! En este artículo aprender a traducir la aplicación del portugués en Inglés y español, o viceversa, utilizando un archivo de la extensión (. INI). Ven?
Obs. Coloque o texto T313 tudo na mesma linha.
..................................................................................................................
2) Salve o arquivo com o seguinte nome: TRADUÇÃO.INI
Pronto. Concluído o 1º Passo! Veja o entendimento desse passo.
[language] - Esse código serve para que nosso futuro aplicativo acesse os dados contidos nesse arquivo.
T101....T113 - é o código de identificação referente a tradução para a língua portuguesa.
T201....T213 - é o código de identificação referente a tradução para a língua inglesa.
T301....T313 - é o código de identificação referente a tradução para a língua Espanhola.

TRADUÇÃO.INI - Criamos um arquivo de configuração. Lembre-se que para criar um arquivo de configuração é necessário digitar a extensão (.INI) junto ao nome do arquivo e o nome do arquivo tem que ser o mesmo nome do projeto do VB.NET.
............................................................................................................
2º Passo: Criação do Formulário de Exemplo
1) Abra o vb.net crie um Windows Forms Application com o nome TRADUÇÃO
Crie o aplicativo como mostra as imagens.

Menu:
Arquivo (Name: mnuArq)
Novo (Name: mnuNovo)
Abrir (Name: mnuAbrir)
Separador (Name: Barra)
Salvar (Name: mnuSalvar)
Salvar Como (Name: mnuSalvarComo)
Sair (Name: mnuSaie)
Menu:
Sobre... (Name: mnuSobre)
Programa (Name: mnuPrograma)
Empresa (Name: mnuEmpresa)
Menu:
Idioma (Name: mnuIdioma)
Português (mnuPortuguês)
Inglês (mnuInglês)
Español (mnuEspañol)
................................................................................
3º Passo: Componentes do formulário
Insira no form:
1 MainMenu1 (e coloque os menus e sobmenus como mostra as imagens)
1 Label (Name: msgMEN); (text: Traduzindo meu primeiro Aplicativo!)
1 Label (Name: lblTEXTO); (text: Meu aplicativo em outras línguas.)


configure o textbox1 para MultLine, e ScrollBars para Vertical
Confira as imagens e veja como fica.
....................................................................................
Copie o Código o cole no seu form

Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic
Friend Class Form1
Inherits System.Windows.Forms.Form

[ô]Declaração
Private Declare Function GetPrivateProfileString Lib [Ô]KERNEL32[Ô] Alias [Ô]GetPrivateProfileStringA[Ô] (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer

[ô]Função para acessar o arquivo tradução.ini
Public Function ReadIni(ByRef Filename As String, ByRef Section As String, ByRef Key As String, Optional ByRef Default_Renamed As String = [Ô][Ô]) As String
Dim BufferSize, Ret As Integer
Do
BufferSize = BufferSize + 256
ReadIni = Space(BufferSize)
Ret = GetPrivateProfileString(Section, Key, Default_Renamed, ReadIni, BufferSize, Filename)
Loop Until Ret < BufferSize - 1
If Ret > 0 Then
ReadIni = VB.Left(ReadIni, Ret)
Else
ReadIni = [Ô][Ô]
End If
End Function

[ô]Código que faz mudar a linguagem do programa acessando o arquivo tradução.ini
Private Sub Atualizar_INI(ByRef IDL As Integer)
Dim sFile As String
sFile = My.Application.Info.DirectoryPath & IIf(VB.Right(My.Application.Info.DirectoryPath, 1) <> [Ô]\[Ô], [Ô]\[Ô], [Ô][Ô]) & My.Application.Info.AssemblyName & [Ô].ini[Ô]
mnuArq.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 1, [Ô][Ô])
mnuNovo.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 2, [Ô][Ô])
mnuAbrir.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 3, [Ô][Ô])
mnuSalvar.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 4, [Ô][Ô])
mnuSalvarComo.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 5, [Ô][Ô])
mnuSair.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 6, [Ô][Ô])
mnuIDIOMA.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 7, [Ô][Ô])
mnuSobre.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 8, [Ô][Ô])
mnuPrograma.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 9, [Ô][Ô])
mnuEmpresa.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 10, [Ô][Ô])
MsgMen.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 11, [Ô][Ô])
lblTEXTO.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 12, [Ô][Ô])
TextBox1.Text = ReadIni(sFile, [Ô]Language[Ô], [Ô]T[Ô] & IDL + 13, [Ô][Ô])
End Sub

[ô]Código dos menus, cria as opções das linguagens a serem convertidas
Private Sub mnuPortuguês_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPortuguês.Click
Atualizar_INI(100)
mnuPortuguês.Checked = True
mnuInglês.Checked = False
mnuEspañol.Checked = False
End Sub

Private Sub mnuInglês_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInglês.Click
Atualizar_INI(200)
mnuInglês.Checked = True
mnuPortuguês.Checked = False
mnuEspañol.Checked = False
End Sub

Private Sub mnuEspañol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEspañol.Click
Atualizar_INI(300)
mnuEspañol.Checked = True
mnuPortuguês.Checked = False
mnuInglês.Checked = False
End Sub
End Class
.........................................................................................................
5º Passo: Grave seu aplicativo em uma nova pasta qualquer e coloque o arquivo TRADUÇÃO.INI na pasta “Debug” do seu aplicativo, para que a tradução funcione.

6º Passo: Execute o programa (F5)
Para mudar a linguagem do programa clique nas opções: Português, Inglês e Español
7º Passo: Considerações finais
Você poderá utilizar esse mesmo código para alterar para outras língua. é só fazer a nova configuração no arquivo tradução.ini.