Ver Mensaje Individual
  #2 (permalink)  
Antiguo 30/04/2008, 04:33
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Re: Archivos .RES

Hola, los archivos de recursos son relativamente sencillos de usar.

Te pongo un ejemplo:
En el .res hemos creado una tabla de cadenas como esta:

Id. | Español (alfabetización internacional) <- esto es el título
-------------------------------------
1001| Formulario en español
-------------------------------------
1002| Mensaje en español
-------------------------------------
1003| Selecciona idioma
-------------------------------------
2001| English Form
-------------------------------------
2002| English message
-------------------------------------
2003| Select language
-------------------------------------

En el Form hemos puesto un Frame y dentro dos OptionButton en array [Option1(0) y Option1(1) ] y un CommandButton.

Código:
Option Explicit

Private Sub Form_Load()
CambiaIdioma 1000    ' español por defecto
Option1(0).Caption = "Español"
Option1(1).Caption = "English"
End Sub

Private Sub Option1_Click(Index As Integer)
  Dim indice As Long
  indice = IIf(Index = 0, 1000, 2000)
  CambiaIdioma indice
End Sub

Private Sub CambiaIdioma(ByVal Idioma As Long)
Me.Caption = LoadResString(Idioma + 1)
Command1.Caption = LoadResString(Idioma + 2)
Frame1.Caption = LoadResString(Idioma + 3)
End Sub
Un un archivo de recursos no solamente puedes guardar cadena, sino también imágenes, música, videos, etc. recuperándolos con "LoadResData".

Un saludo.

Última edición por Avellaneda; 30/04/2008 a las 05:10