一个CommonDialog,一个CommandButton,一个PictureBox
Option Explicit 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,-1) '取得总图标数 For i = 0 To total - 1 p(i) = ExtractIcon(App.hInstance,i) '读取每个图标 Next i For i = 0 To total - 1 '依次显示每个图标 DrawIcon Picture1.hdc,34 * i,p(i) Next i End If End If End Sub
原文地址:https://www.jb51.cc/vb/262354.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。