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