diana
20 de Junio del 2005

Buenas,
Tengo un programita en visual basic 6 en el cual utilizo un API para extraer un icono de un fichero.
El problema es que al pasarlo a .NET e intentar traducirlo no se produce un error y no me recupera el icono.
¿Alguien sabe cómo puedo hacerlo?
El código es el siguiente:
'Declaracion:
Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As String) As Long
'Funcion:
Public Function ExtraerIcono(ByVal frmFormulario As Form, ByVal strFichero As String) As Integer
Dim lngIcono As Integer
Dim A As String
Try
lngIcono = ExtractAssociatedIcon(frmFormulario.Handle.ToInt64, strFichero, A)
Catch ex As Exception
lngIcono = 0
End Try
Return lngIcono
End Function


Gracias de antemano

Elph
20 de Junio del 2005

creo que esto te puede ayudar
http://custom.programming-in.net/articles/art9-1.asp?f=ExtractAssociatedIcon