用Visual Basic提取图标资源
发表于:2007-07-14来源:作者:点击数:
标签:
文/云飞 一、界面 在窗体上放置一个对话框控件(Commondialog1),用于找到要提取图标的程序文件;一个图片框(Picture1),用来显示图标;一个水平滚动条(Hscroll1),用来逐个观察;两个命令按钮,其Caption属性分别设为“打开文件”和“退出”;四个标签控件(L
文/云飞
一、界面
在窗体上放置一个对话框控件(Commondialog1),用于找到要提取图标的程序文件;一个图片框(Picture1),用来显示图标;一个水平滚动条(Hscroll1),用来逐个观察;两个命令按钮,其Caption属性分别设为“打开文件”和“退出”;四个标签控件(Label),其Caption属性分别设为“0”、“0”、“文件中图标总数”和“当前图标序号”。
二、程序代码
声明画图标函数DrawIcon
声明取得文件句柄函数GetModuleHandle
声明提取图标函数ExtractIcon
Dim icon_n As Integer
Dim icon_filename As String
Dim icon_num As Integer
Dim x As Long
Dim hmodule As Long
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "程序文件|*.exe"
CommonDialog1.ShowOpen
icon_filename = CommonDialog1.FileName
Picture1.Cls
hmodule = GetModuleHandle(icon_filename) '取得文件句柄
icon_num = ExtractIcon(hmodule, icon_filename, -1) '得到文件内图标总数
HScroll1.Max = icon_num
Label1.Caption = Str(icon_num)
If icon_num - 1 > 0 Then
HScroll1.Enabled = True
Else
HScroll1.Enabled = False
End If
icon_n = ExtractIcon(hmodule, icon_filename, 0) '提取第一个图标
x = DrawIcon(Picture1.hdc, 0, 0, icon_n) '画出图标
If icon_num = 0 Then
HScroll1.Value = 0
Else
HScroll1.Value = 1
End If
Label2.Caption = HScroll1.Value
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub HScroll1_Change()
Picture1.Cls
icon_n = HScroll1.Value
hmodule = GetModuleHandle(icon_filename)
icon_n = ExtractIcon(hmodule, icon_filename, icon_n - 1)
Label2.Caption = HScroll1.Value
x = DrawIcon(Picture1.hdc, 0, 0, icon_n)
End Sub
原文转自:http://www.ltesting.net