Tengo un problema en una parte de mi codigo donde intento cargar 2 packs diferentes.
en el primer pack lo carga correctamente con un total de 45 imagenes (se cargan correctamente)
en el segundo pack solo hay 3 graficos (tiles) y solo se carga la imagen 1.bmp y los otros dos "2.bmp y 3.bmp"
Este es el codigo donde tengo problemas.
Public Sub DX_Load_All_Graphics()
Dim i As Integer, Grh_Total As Long, tmpField() As String
Grh_Total = CLng(General.INI_Read(uFile.DatGrh, "INF", "tGraphics", 0))
If Grh_Total > 0 Then
ReDim Grh(1 To Grh_Total) As Long
For i = 1 To Grh_Total
tmpField() = Split(General.INI_Read(uFile.DatGrh, "GRAPHICS", "G" & i), ",")
Grh(i) = DX.MAP_LoadFromMemory(Pack2(i).Buffer(), "&H" & tmpField(1))
'Se verifica si surgió error.
If Err.Number > 0 Then
Log_Error "Error cargando el gráfico #" & i & ".", Err
Err.Clear
End If
Next
End If
End Sub
he intentado halgunas formas de reparar el error pero aun no he podido sigo estancado en esta parte.
si halguien puede ayudarme u orientarme en mi dilema se le agreadecera
gracias de antemano!