Editor de Recursos para VB5 (Add-In)

Publicado el 12-Jul-97
Actualizado el 27/Sep/98

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�...

---

Listado del ejemplo:

'--------------------------------------------------------------
'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