primero agrega un modulo .bas
y ponle esto de code.
Option Explicit
'//////////// Lenguage System /////////////
'/ Programado por Alexander E. Harkonnen /
'/ www.infiernohacker.com /
'/ 2011 EET2 MDQ Argentina /
'//////////////////////////////////////////
'/
'/ cargue el archivo de idioma con lengload ejemplo spanish.lng o english.lng
'/ use la funcion lleng variable para devolver la variable de idioma
'/ ejemplo de archivo spanish.lng
'/ $arc=archivo
'/ ejemplo de archivo english.lng
'/ $arc=file
'/ ejemplo de uso de la variable arc con idioma spanish
'/ LengLoad "spanish.lng"
'/ menuarchivo.caption = Lleng ("arc")
'/ eso pondria el menu archivo en caption "archivo"
'/ y para cambiarlo:
'/ LengLoad "english.lng"
'/ menuarchivo.caption = Lleng ("arc")
'/ eso lo pondría en "file"
Dim tpoint() As String
Public Function LengLoad(ByVal dir As String)
Dim txt As String
Erase tpoint
Open dir For Input As #1
txt = Input(LOF(1), #1)
Close #1
tpoint = Split(txt, vbCrLf, , vbTextCompare)
End Function
Public Function Lleng(ByVal reference As String)
Dim lineleng As Integer
Dim igual As Integer
ReDim Preserve tpoint(UBound(tpoint))
For lineleng = 0 To UBound(tpoint)
igual = InStr(1, tpoint(lineleng), "=", vbTextCompare)
If Mid(tpoint(lineleng), 2, igual - 2) = reference Then
Lleng = Mid(tpoint(lineleng), igual + 1, Len(tpoint(lineleng)) - igual)
Else
Lleng = "##"
End If
Next
End Function
luego simplemente pon LengLoad para cargar el archivo de idioma
y usa Lleng para obtener la variable.
por ejemplo un archivo idioma que contenga un menu:
- spanish.lng
$menuarchivo=Archivo
$menuedicion=Edicion
$menuver=Ver
$menuayuda=Ayuda
-english.lng
$menuarchivo=File
$menuedicion=Edit
$menuver=View
$menuayuda=Help
poner idioma en español:
LengLoad "spanish.lng"
poner idioma en ingles:
LengLoad "english.lng"
luego simplemente para el caption del menu archivo pones
menu.caption = Lleng "menuarchivo"
y depende del lenguaje que tengas cargado te devolverá file o archivo.
saludos!