至顶网›软件频道 ›基础软件›Visual Basic设计图标提取工具

Visual Basic设计图标提取工具

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

本文详细解说用VB设计图标工具的原理和各个步骤

作者：许晓静来源：yesky 2007年10月15日

关键字：

首先定义命令按钮1（打开文件按钮），代码如下：

Private Sub command1_Click()
dlgopen.ShowOpen '显示打开对话框
textbox.Text = dlgopen.Filename '将选择的文件名称显示在textbox内
End Sub

　　在取消命令按钮内输入：

Private Sub command2_Click()
Unload Me '退出程序
End Sub

　　在textbox的change事件中定义：

Private Sub textbox_Change()
If textbox.Text = "" Then '空则退出
Exit Sub
End If

Dim Icons As Integer
Icons = ExtractIcon(hInst, textbox, -1)
If Icons > 1 Then '图标数大于1，则scroll有效
Scroll.Enabled = True
Scroll.Max = Icons - 1
Scroll.Value = 0
Else
Scroll.Enabled = False
End If
Scroll_Change
End Sub
在scroll的change事件中输入代码：
Private Sub Scroll_Change()

Dim a As Integer

Iconbox.Cls '清除存在的图标

hIcon = ExtractIcon(0, textbox.Text, Scroll.Value) '根据scrollbar提取相应图标
a = DrawIcon(Iconbox.hDC, 5, 5, hIcon) '在picturebox显示相应图标
End Sub

scroll的scroll事件代码：

Private Sub Scroll_Scroll()

Scroll_Change

End Sub

　　最后需要保存选中的图标，我们设计将其存为bmp格式，直接定义iconbox的click事件，当在图形上点击鼠标左键时提示是否保存：

Private Sub Iconbox_Click()
On Error Resume Next
dlgsave.Filename = strSaveIconFile
dlgsave.CancelError = True
dlgsave.Filter = "Bitmap Image (*.bmp)|*.bmp"
dlgsave.ShowSave
strSaveIconFile = dlgsave.Filename
SavePicture Iconbox.Image, strSaveIconFile
End Sub

　　至此，一个完整的图标提取工具就诞生了，编译成可执行文件后运行一下看看效果如何？用自己的软件，干自己的事，是不是特有成就感？

查看本文来源

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

Visual Basic设计图标提取工具

业界热点: