comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Lenguage System (usa distintos idiomas en tus programas)

  • 0 Respuestas
  • 1306 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« en: Enero 26, 2013, 12:59:06 pm »
primero agrega un modulo .bas

y ponle esto de code.

Código: Visual Basic
  1. Option Explicit
  2.  
  3. '//////////// Lenguage System /////////////
  4. '/  Programado por Alexander E. Harkonnen /
  5. '/      www.infiernohacker.com            /
  6. '/   2011     EET2 MDQ Argentina          /
  7. '//////////////////////////////////////////
  8. '/
  9. '/ cargue el archivo de idioma con lengload ejemplo spanish.lng o english.lng
  10. '/ use la funcion lleng variable para devolver la variable de idioma
  11. '/ ejemplo de archivo spanish.lng
  12. '/ $arc=archivo
  13. '/ ejemplo de archivo english.lng
  14. '/ $arc=file
  15. '/ ejemplo de uso de la variable arc con idioma spanish
  16. '/ LengLoad "spanish.lng"
  17. '/ menuarchivo.caption = Lleng ("arc")
  18. '/ eso pondria el menu archivo en caption "archivo"
  19. '/ y para cambiarlo:
  20. '/ LengLoad "english.lng"
  21. '/ menuarchivo.caption = Lleng ("arc")
  22. '/ eso lo pondría en "file"
  23.  
  24. Dim tpoint() As String
  25.  
  26. Public Function LengLoad(ByVal dir As String)
  27. Dim txt As String
  28. Erase tpoint
  29. Open dir For Input As #1
  30. txt = Input(LOF(1), #1)
  31. Close #1
  32. tpoint = Split(txt, vbCrLf, , vbTextCompare)
  33. End Function
  34.  
  35. Public Function Lleng(ByVal reference As String)
  36. Dim lineleng As Integer
  37. Dim igual As Integer
  38. ReDim Preserve tpoint(UBound(tpoint))
  39. For lineleng = 0 To UBound(tpoint)
  40. igual = InStr(1, tpoint(lineleng), "=", vbTextCompare)
  41. If Mid(tpoint(lineleng), 2, igual - 2) = reference Then
  42. Lleng = Mid(tpoint(lineleng), igual + 1, Len(tpoint(lineleng)) - igual)
  43. Else
  44. Lleng = "##"
  45. End If
  46. Next
  47. 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

Código: Visual Basic
  1. $menuarchivo=Archivo
  2. $menuedicion=Edicion
  3. $menuver=Ver
  4. $menuayuda=Ayuda

-english.lng

Código: Visual Basic
  1. $menuarchivo=File
  2. $menuedicion=Edit
  3. $menuver=View
  4. $menuayuda=Help

poner idioma en español:

Código: Visual Basic
  1. LengLoad "spanish.lng"

poner idioma en ingles:

Código: Visual Basic
  1. LengLoad "english.lng"

luego simplemente para el caption del menu archivo pones

Código: Visual Basic
  1. menu.caption = Lleng "menuarchivo"

y depende del lenguaje que tengas cargado te devolverá file o archivo.

saludos!
« Última modificación: Mayo 12, 2014, 03:38:25 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!