Extraer iconos de una DLL o un CPL

[Christian R. Plat]

Como puedo hacer para obtener desde Visual Basic 5.0 para obtener un
icono especifico de una .DLL, un archivo .CPL o .EXE?
Gracias.
Remitir por email a: crplat_...@cpsarg.com

[Dani]

Hola Christian.

El siguiente ejemplo funciona con un control Picture (Picture1) y un
boton (Command1) :

'****Funciones API****
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal
hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As
Long

Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long,
ByVal y As Long, ByVal hIcon As Long) As Long

Private Sub Command1_Click()
Dim icono, res As Long
Static N As Long
N = N + 1
'*** Extraemos el Icono numero N del fichero moricons.dll
icono = ExtractIcon(App.hInstance, "c:\windows\moricons.dll", N)

'**** Si lo encuentra lo dibuja en el Picture
if icono > 0 then
res = DrawIcon(Picture1.hdc, 0, 0, icono)
endif

End Sub

Cada vez que pulses el boton, se cargara un icono distinto en el Picture.

Dani
ICQ -> 10477883

Christian R. Plat escribió en mensaje <35F8B313...@cpsarg.com>...

[Jorge Guerrero González]

Está excelente

--
Saludos

Jorge Guerrero
guerrero_jorge @ hotmail.com
(quitar espacios para responder)

Dani <8723874292#Dani...@infomail.lacaixa.es> escribió en mensaje
<6tbefo$hvb$1...@diana.bcn.ibernet.es>...