VISUALIZAR ICONES DE ATALHOS COLOCADOS EM PASTAS

 Tópico anterior Próximo tópico Novo tópico

VISUALIZAR ICONES DE ATALHOS COLOCADOS EM PASTAS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#118 - 07/12/2003 18:34:00

USUARIO.EXCLUIDOS

Cadast. em:


Gostaria de Saber Como visualizar todos os cones de atalhos que eu deixar dentro de uma determinada pasta. Estou com dificuldade, e  peo ajuda a todos vos.

Obrigado !!



Resposta escolhida #663 - 11/12/2003 06:12:23

USUARIO.EXCLUIDOS

Cadast. em:


Por que voc no salva as imagens logo no formato ico numa pasta e carrega essas imagens sempre que quizer? Aqui vai um bom cdigo para a "criao" de cones, se te ajudar, caso no me avise que desenvolvo um cdigo para o que voc quer.

Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Function ExtrairDLL() As Boolean
ExtrairDLL = False
On Error Resume Next
Dim mMax As Integer, i As Integer
Dim imgI As ListImage
Dim hIcon As Long
Dim Name As String
Name = nFile(Text1.Text)
'MsgBox Name
mMax = ExtractIconEx(Text1.Text, -1, ByVal 0&, ByVal 0&, ByVal 0&) - 1
For i = 0 To mMax
    ExtractIconEx Text1.Text, i, hIcon, ByVal 0&, 1
    Set Picture1.Picture = LoadPicture("")
    DrawIcon Picture1.hdc, 0, 0, hIcon
    DestroyIcon hIcon
        pause 100
    Set imgI = ImageList1.ListImages.Add(, Name & "-" & i, Picture1.Image)
    ListView1.ListItems.Add , Name & "-" & i, Name & "," & i, Name & "-" & i
    SavePicture ImageList1.ListImages.Item(1).Picture, App.Path & "\icones\" & Name & " - " & i & ".ico"
Next
ExtrairDLL = True
End Function

Private Sub pause(i As Integer)
Dim ii As Integer
    For ii = 0 To i
        DoEvents
    Next
End Sub


Depois disso para abrir use o mtodo LoadPicture().
Valeu?



#664 - 11/12/2003 06:17:29

USUARIO.EXCLUIDOS

Cadast. em:


Por que voc no salva as imagens logo no formato ico numa pasta e carrega essas imagens sempre que quizer? Aqui vai um bom cdigo para a "criao" de cones, se te ajudar, caso no me avise que desenvolvo um cdigo para o que voc quer.

Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Function ExtrairDLL() As Boolean
ExtrairDLL = False
On Error Resume Next
Dim mMax As Integer, i As Integer
Dim imgI As ListImage
Dim hIcon As Long
Dim Name As String
Name = nFile(Text1.Text)
'MsgBox Name
mMax = ExtractIconEx(Text1.Text, -1, ByVal 0&, ByVal 0&, ByVal 0&) - 1
For i = 0 To mMax
    ExtractIconEx Text1.Text, i, hIcon, ByVal 0&, 1
    Set Picture1.Picture = LoadPicture("")
    DrawIcon Picture1.hdc, 0, 0, hIcon
    DestroyIcon hIcon
        pause 100
    Set imgI = ImageList1.ListImages.Add(, Name & "-" & i, Picture1.Image)
    ListView1.ListItems.Add , Name & "-" & i, Name & "," & i, Name & "-" & i
    SavePicture ImageList1.ListImages.Item(1).Picture, App.Path & "\icones\" & Name & " - " & i & ".ico"
Next
ExtrairDLL = True
End Function

Private Sub pause(i As Integer)
Dim ii As Integer
    For ii = 0 To i
        DoEvents
    Next
End Sub


Depois disso para abrir use o mtodo LoadPicture().
Valeu?

Acho que no saiu direito. Foi um erro de sintax do site provavelmente. No importa t postando novamente.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45