VB获取执行程序图标

一个CommonDialog，一个CommandButton，一个PictureBOX

 

Option ExplicitPrivate Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As LongPrivate Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As LongPrivate Sub Command1_Click()Dim total As LongDim p(50) As LongDim i As IntegerMe.Picture1.ClsMe.CommonDialog1.Filter = "图标|*.Exe;*.Ico;*.Dll"Me.CommonDialog1.ShowOpenIf Dir(Me.CommonDialog1.FileName) <> "" Then If ExtractIcon(App.hInstance, Me.CommonDialog1.FileName, -1) = 0 Then '如果没有图标 MsgBox "No Icon!" Else total = ExtractIcon(App.hInstance, Me.CommonDialog1.FileName, -1) '取得总图标数 For i = 0 To total - 1 p(i) = ExtractIcon(App.hInstance, Me.CommonDialog1.FileName, i) '读取每个图标 Next i For i = 0 To total - 1 '依次显示每个图标 DrawIcon Picture1.hdc, 34 * i, 0, p(i) Next i End IfEnd IfEnd Sub