Visual Basic - AYUDA Como obtengo el Icono de una Aplicación????

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA Como obtengo el Icono de una Aplicación????

Publicado por Pedro (24 intervenciones) el 23/12/2002 14:48:41
Necesito desde mi programa asociar una aplicación, esto ya esta hecho... pero como obtengo el icono de la misma para colocarselo?????

Gracias de Antemano....
P.L.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA Como obtengo el Icono de una Aplicación??

Publicado por Rodolfo del Peru (454 intervenciones) el 25/12/2002 17:51:02
Aunque normalmente solo visito el foro de Visual Basic, vi tu pregunta y te dire que en www.ambsoftware.com esta la solucion, aqui te la reproduzco:

Extrae el icono asociado a un fichero ejecutable

A través del siguiente ejemplo se mostrará cómo extraer el icono asociado a un fichero ejecutable cualquiera.

Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Añada un control PictureBox llamándolo Picture1 en su formulario.

Private Sub Form_Load()
Dim Path As String, strSave As String
Dim returnl As Long, return2 As Long
strSave = String(200, Chr$(0))
Picture1.AutoRedraw = True
'Sustituya C:\windows\regedit.exe por el ejecutable del que quiera extraer su icono.
return1 = ExtractIcon(Me.hWnd, "c:\windows\regedit.exe", 2)
return2 = DrawIcon(Picture1.hdc, 0, 0, return1)
End Sub

Saludos desde Lima
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AYUDA Como obtengo el Icono de una Aplicación??

Publicado por Pedro (24 intervenciones) el 27/12/2002 19:08:58
Ya esta listo....

Muchas Gracias Rodolfo.
Pedro López

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar