用Visual Basic提取图标资源

文/云飞

　　一、界面

　　在窗体上放置一个对话框控件(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 = "程序文件(北联网教程,专业提供视频软件下载)

……