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

ir al índice