Cargar imagenes de Dll???

[Zeroql]

Buenas
Bueno la verdad es que tenia por ahi un manual de como hacerlo. pero se perdio... sin mencionar que hace rato no programo en vb, asi que pregunto ¿Como puedo cargar imagenes de un archivo Dll en la aplicacion? xD

por ejemplo:

Tengo una dll activex con un archivo de recursos. pero para no tener que guardar esas imagenes en el exe quiero cargar estas imagenes directamente desde la dll sin tener que estraerlas ni nada...
de ante mano muchas gracias

de ante mano muchos gracias...

[seba123neo]

extractor de íconos

[Zeroql]

seba123neo te agredesco la info, pero la verdad es que no me explique muy bien

Tengo una dll activex con un archivo de recursos. pero para no tener que guardar esas imagenes en el exe quiero cargar estas imagenes directamente desde la dll sin tener que estraerlas ni nada...
de ante mano muchas gracias

[seba123neo]

ahora te entiendo, pues mira es muy facil, simplemente en la clase de la dll te creas una funcion que le pases como parametro el id de la imagen o lo que sea y esa funcion va a hacer que devuelva un objeto despues de hacer un LoadResData o lo que sea que queiras extraer del recurso, puede ser una imagen , sonido lo que sea...y desde tu aplicacion de visual basic la llamas algo asi...

Código (vb) [Seleccionar] Expandir

Set Picture1.Picture = MyDLL.ExtraerImagen(1)

saludos.

[Zeroql]

seba123neo te entiendo. pero como hago para pasar le id de una imagen que esta en un archivo de recursos? esa si la veo algo complicado.
serias tan amable de explicarme???
muchas gracias

[Zeroql]

mm que idio.. yo si el id. pero sabes lo acabe de probar  y no me da, no lo identifica...
alguna idea?

de ante mano muchas gracias.

[seba123neo]

por ejemplo en la clase de la dll tenes algo asi:

Código (vb) [Seleccionar] Expandir

Public Function ExtraerImagen(ByVal pId As Integer,ByVal pTipoRecurso As Integer) As Object
 Set ExtraerImagen = LoadResPicture(pId, pTipoRecurso)
End Function

y en el proyecto haces asi:

Código (vb) [Seleccionar] Expandir

Option Explicit

Dim oMyDLL As Class1

Private Sub Form_Load()
  Set oMyDLL = New Class1
  Set Me.Picture = oMyDLL.ExtraerImagen(101, 0)
  Set oMyDLL = Nothing
End Sub

debes tener referenciada la dll, ¿ vos queres eso ?

saludos.

[Zeroql]

Eso era lo que necesitaba...
tenia caso el mismo code cuando lo ensaye, pero me tiraba error en la llamada a la clase de la dll...
muchas gracias seba123neo
eres un buen moderador xD