Ventana de selección de Icono

Para probar, incluye el siguiente código en un proyecto nuevo.

Private Declare Function SHChangeIconDialog Lib "shell32" Alias "#62" (ByVal hOwner As Long, _
        ByVal szFilename As String, ByVal Reserved As Long, lpIconIndex As Long) As Long
Private Sub Form_Load()
    Dim Fichero As String, Valor As Long

    Fichero = InputBox("Teclea un nombre de fichero para obtener sus iconos")
    Valor = 0
    If SHChangeIconDialog(hWnd, Fichero, 0, Valor) Then MsgBox "Elegido: " & Valor
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s