Un editor de Recursos para VB5, realmente es un complemento, pero te permite crear y modificar archivos con la extensi�n RES de 32 bits.
He incluido un programa de ejemplo con un archivo de recursos creado con este complemento.
Nuevo 27/Sep/98: Los listados de c�mo usar los recursos, en este ejemplo, que puedes bajartelo con el ejemplo que hay un poco m�s abajo, se muestran las cadenas, iconos y bitmaps que hay guardados en el fichero de recursos creado con el complemento del VB5.
Pulsa este link para ver los listados del form
Para bajarte el ejemplo: pulsa en este link (vb5_res.zip 4.41 KB)
Para bajarte el editor de recursos, deber�s tener registrado el VB5 y as� podr�s bajar desde las p�ginas de Microsoft el ejecutable que instalar� el complemento.
Pasate por las p�ginas de Microsoft (las de visual basic, evidentemente) y bajate el complemento, vale la pena.Este link conecta con ResEdit para VB5 en el sitio de Microsoft (507 KB aunque ellos dicen que son 497)
pero s�lo deber�as pulsarlo si est�s registrado... en tu conciencia quedar�...
'-------------------------------------------------------------- 'prueba para uso de recursos (18/Abr/97) ' '-------------------------------------------------------------- Option Explicit Dim id_Str As Integer Dim id_Pic As Integer Dim id_Ico As Integer '�ndices para los valores m�nimos Dim id1_Str As Integer Dim id1_Pic As Integer Dim id1_Ico As Integer Private Sub cmdAnt_Click() id_Str = id_Str - 1 If id_Str < id1_Str Then id_Str = id1_Str End If ' id_Ico = id_Ico - 1 If id_Ico < id1_Ico Then id_Ico = id1_Ico End If ' id_Pic = id_Pic - 1 If id_Pic < id1_Pic Then id_Pic = id1_Pic End If mostrarRes End Sub Private Sub cmdSig_Click() 'la rutina de error de mostrarRes se encargar� del valor m�ximo id_Str = id_Str + 1 ' id_Ico = id_Ico + 1 ' id_Pic = id_Pic + 1 mostrarRes End Sub Private Sub cmdSalir_Click() Unload Me End End Sub Private Sub Form_Load() 'cargar los recursos 'Valores m�nimos id1_Str = 101 id1_Ico = 101 id1_Pic = 101 ' id_Str = 101 id_Ico = 101 id_Pic = 101 mostrarRes End Sub Private Sub Form_Unload(Cancel As Integer) Set Form1 = Nothing End Sub Private Sub mostrarRes() On Local Error Resume Next Text1 = LoadResString(id_Str) If Err Then id_Str = id1_Str Err = 0 End If Label1(0) = "Cadena: " & id_Str Image1.Picture = LoadResPicture(id_Ico, vbResIcon) If Err Then id_Ico = id1_Ico Err = 0 End If Label1(1) = "Icono: " & id_Ico Image2.Picture = LoadResPicture(id_Pic, vbResBitmap) If Err Then id_Pic = id1_Pic Err = 0 End If Label1(2) = "Bitmap: " & id_Pic On Local Error GoTo 0 End Sub