Browse DevX
Sign up for e-mail newsletters from DevX

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



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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.



Thanks for your registration, follow us on our social networks to keep up-to-date