extracting the icon assosiated with a particular file extension ...

Hi all

I need the .Net variant of the code by aaron found in this thread :

http://www.vbforums.com/showthread.p...con+assosiated

It shows how to extract the icon assosiated with a particular file extension.

anyone done this using vb .net ?

want to share it with the rest of us ? :)

VB Code:

Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
Private 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
 
Private Sub Command1_Click()
    Dim lIcon As Long
    On Error GoTo User_Cancelled
    With CommonDialog1
        .Flags = cdlOFNNoValidate
        .CancelError = True
        .DialogTitle = "Select a File.."
        .Filter = "All Files (*.*)|*.*"
        .ShowOpen
        Picture1.Cls
        lIcon = ExtractAssociatedIcon(App.hInstance, .FileName, -1)
        Call DrawIconEx(Picture1.hdc, 0, 0, lIcon, 32, 32, 0, 0, 3)
    End With
User_Cancelled:
End Sub

Should be pretty much the same code. Just adjust the declarations a bit.

All Longs should be Integers. Except any hDc's or hWnd's. They should be IntPtr's.

Also, instead of Picture1.hdc, it should be Picture1.CreateGraphics.GetHdc