|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Imagem/Som/Multimídia)
|
|
 |
Título da Dica: Quer extrair um ícone que achou legal de um arquivo?
|
 |
|
|
|
Postada em 24/8/2003 por Ð@®l@n
Nesta dica irei mostrar como extrair o ícone de um arquivo. Isto mesmo , geralmente os arquivos estão associados a um ícone,e , com este pequeno projeto você poderá extrair e exibir o ícone. Veja como é simples...
inclua no formulário padrão - form1 - uma caixa de texto , um botão de comando e um controle PictureBox.
Agora insira o seguinte código no módulo:
Public Const DI_MASK = &H1
Public Const DI_IMAGE = &H2
Public Const DI_NORMAL = DI_MASK Or DI_IMAGE
Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" _
(ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, _
ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth _
As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal _
diFlags As Long) As Long
Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
No evento click do botão de comando insira o seguinte código:
Private Sub Command1_Click()
'Text1.text contem o nome do arquivo para extrair o icone
mIcon = ExtractAssociatedIcon(App.hInstance, Text1.Text, 2)
'Exibe o icone no controle Picture
DrawIconEx Picture1.hdc, 0, 0, mIcon, 0, 0, 0, 0, DI_NORMAL
'Remove o icone da memoria
DestroyIcon mIcon
End Sub
fonte: www.macoratti.net
|
|
|
|
|
