Working ChangeIconDialog in VB 2005 Express

[JumpyNET]

This example let's you select an icon and draw the 16x16 and 32x32 icons to a picture box.

 

Just create a new form with two picture boxes and one button. Then use the following code:

 

Public Class Form1

   Private Declare Unicode Function SHChangeIconDialogW Lib "shell32" Alias "PickIconDlg" (ByVal hOwner As IntPtr, ByVal szFilename As String, ByVal Reserved As Integer, ByRef lpIconIndex As Integer) As Integer
   Private Declare Ansi Function SHChangeIconDialogA Lib "shell32" Alias "PickIconDlg" (ByVal hOwner As IntPtr, ByVal szFilename As String, ByVal Reserved As Integer, ByRef lpIconIndex As Integer) As Integer
   Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Int32, ByRef phiconLarge As IntPtr, ByRef phiconSmall As IntPtr, ByVal nIcons As Int32) As Int32

   Dim IconName As String

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       BrowseForIcon()
   End Sub

   Private Sub BrowseForIcon()

       Dim FileName As String = "%SystemRoot%\system32\shell32.dll"
       Dim Index As Integer = 216
       Dim Retval As Integer

       'For some odd reason you must make the FileName string longer
       'than the path of the icon you will select with the dialog
       FileName = FileName & Chr(0) & Space(1000) & Chr(0)
       If System.Environment.OSVersion.Platform = PlatformID.Win32NT Then
           Retval = SHChangeIconDialogW(Me.Handle, FileName, Len(FileName) + 1, Index)
       Else
           Retval = SHChangeIconDialogA(Me.Handle, FileName, Len(FileName) + 1, Index)
       End If

       IconName = (Split(FileName, Chr(0))(0) & "," & Index)
       DrawAssociatedIcon()

   End Sub

   Private Sub DrawAssociatedIcon()

       Dim FileName As String
       Dim Index As Integer
       FileName = Split(IconName, ",")(0)
       Index = Split(IconName, ",")(1)

       Dim icoLarge As IntPtr
       Dim icoSmall As IntPtr
       ExtractIconEx(FileName, Index, icoLarge, icoSmall, 1)
       If Not icoLarge.Equals(IntPtr.Zero) Then
           Dim i As Icon = System.Drawing.Icon.FromHandle(icoLarge)
           PictureBox1.Image = i.ToBitmap
       End If
       If Not icoSmall.Equals(IntPtr.Zero) Then
           Dim i As Icon = System.Drawing.Icon.FromHandle(icoSmall)
           PictureBox2.Image = i.ToBitmap
       End If

   End Sub

End Class

 

 

PS: I had some trouble porting this to VB2005, so I decided to post it here to help others.