ME AJUDEM NA LINGUAGEM

USUARIO.EXCLUIDOS 10/08/2007 23:15:14
#230456
ola pessoal tenho que solucionar um problema o mais rapido possivel gostaria que vcs me ajudassem, estou criando um programa de biblioteca so que quero colocar esse programa em 3 tipos de linguagem (Portugues,Ingles, espanhol)como faco isso.
sera que tem algum comando ou tem uma ocx ...
por favor me ajudem
desde ja agradeco a todos pela atencao.
USUARIO.EXCLUIDOS 10/08/2007 23:29:21
#230457
kra o q o pessoal faz e criar um arquivo texto com todas as linguagens

um arquivo para kda linguagem ai quando inicial o programa ele pega os valores de lah

agora uma ocx q traduza sozinho eu axo meio impossivel de axar

vai te q fazer na unha mesmo, tem um sistema aqui no meu pc(num foi eu q fiz)

q usa isso

eu vo anexa os arquivos q ele usa aqui para vc ver


dah um poko de trabalho, mais depois de feito vc muda ele para quaquer linguagem.


espero ter ajudado ou complicado mais

XD

falo
USUARIO.EXCLUIDOS 11/08/2007 03:36:34
#230464
Cara, matutando aqui pensei numa idéia legal...
Vc pode criar um arquivo INI com as informações da linguagem, e criar uma rotina pra mudar o valor sozinho, a rotina seria +/- assim:

Public Sub Linguagem(ByVal Formulario As Form, Optional ByVal Lingua As String = "PT-BR")
Dim Ctl As Control, Str As String

On Error Resume Next
For Each Ctl In Formulario
  Str = ""
  Str = Ctl.Caption
  If Trim(Str) <> "" Then
    'Aqui vc cria uma função para ler o arquivo INI, passando como parâmetro
    ' a chave, por exemplo CODIGO, NOME, etc
    Str = LeArquivoINI(Str)
    If Trim(Str) <> "" Then Ctl.Caption = Str
  End If
Next Ctl

Err.Clear


Daí vc nomeia os captions apenas como chave: CODIGO, NOME, CLIENTE, etc.
E no INI ficaria:
[Portugues]
NOME=Nome
CODIGO=Codigo
CLIENTE=Cliente

[Ingles]
NOME=Name
CODIGO=Code
CLIENTE=Client


Sacou?
Qualquer dúvida poste...abços
SILVIO.GARCIA 11/08/2007 15:20:00
#230500
show de bola matioli, achei sua idéia interessante. t+
Tópico encerrado , respostas não são mais permitidas
Voltar