用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