Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Jun 30, 2001

ShowIcon - Extract an icon from a file and show it

Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" _
    (ByVal hInst As Long, ByVal lpszExeFileName As String, _
    ByVal nIconIndex 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

' Extract an icon from a file and display it on a Form or PictureBox
' (in general, any control that has the hDC property)
'
' Returns True if successful
'
' FILENAME is the file that contains the icon
' ICONINDEX is the number of the icon to extract from the file (zero-based)
' HDC is a valid Device Context handle
' X,Y are the coordinates in the picturebox where the icon should be displayed
'
' Example:
'    ' display the first icon in SHELL32.DLL
'    ShowIcon "C:\WINDOWS\SYSTEM\SHELL32.DLL", 0, Picture1.hDC, 0, 0

Function ShowIcon(ByVal FileName As String, ByVal iconIndex As Long, _
    ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Boolean
    Dim hIcon As Long
    ' extract the icon
    hIcon = ExtractIcon(App.hInstance, FileName, iconIndex)

    If hIcon Then
        ' if non null display it
        DrawIcon hDC, X, Y, hIcon
        ' signal success
        ShowIcon = True
    End If
End Sub
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap