• Home
 · 
• Windows API Call/Explanation
 · 
• Display pick icon dialog using PickIconDlg API

Display pick icon dialog using PickIconDlg API

Display pick icon dialog using PickIconDlg API

API Declarations


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.dll" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function DestroyIcon Lib "user32.dll" (ByVal hIcon As Long) As Long




Rate Display pick icon dialog using PickIconDlg API

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim fname As String
Dim index As Long
Dim hIcon As Long
Dim rval As Long
fname = "C:\windows\explorer.exe"
index = 2
rval = PickIconDlg(Form1.hwnd, fname, Len(fname), index)
If rval Then
hIcon = ExtractIcon(App.hInstance, fname, index)
Form1.Cls
rval = DrawIcon(Form1.hDC, 60, 10, hIcon)
rval = DestroyIcon(hIcon)
End If
End Sub
Private Sub Command2_Click()
End
End Sub