如何在VB中用API获得EXE文件图标并显示在Picture控件里

• 关 键 词：

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long

Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Private Sub Command1_Click()

Dim total As Long

Dim p(50) As Long

Dim i As Integer

Me.Picture1.Cls

Me.CommonDialog1.Filter = "图标|*.Exe;*.Ico;*.Dll"

Me.CommonDialog1.ShowOpen

If 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 If

End If

End Sub打开： http://www.qqread.com/vb/s236204.html 更多内容请看VB图形动画设计、VB文件编程、VB图形控件专题，或进入讨论组讨论。

【深 度 阅 读】 相 关 文 章

如何在WinNT/2K/XP下安装纯DOS

如何在DOS下查看隐藏文件,如何在DOS下运行隐藏文

如何在ＶＢ中使用命令行参数

如何在VC中改变控件的背景色