【编程小技巧分享】VB6应用程序图标使用经验一则

[bcrun]

见过有不少人写的程序不喜欢用图标。且不说工具栏等处的图标，很多人连窗体图标都用的是VB6默认的图标。但我觉得，再简单的有窗体的程序，也至少要弄一个主窗体图标才好，同时这个图标也充做编译后的EXE程序的主图标。事实上1998年诞生的VB6，对图标方面的支持也不多，比如不方便单独设置应用程序图标，而是只能将应用程序的图标“绑定”到某个窗体的图标上。而且，令人郁闷的是，并没有App.Icon这样的属性直接访问应用程序图标。唉，说了这么多，其实只是想分享一下我下面这套图标设置代码：
1，在任一标准模块中定义一个全局对象：

Public g_AppIcon As StdPicture                                                  '应用程序图标

2，在启动窗体的Form_Load事件前部初始化这个对象

    Set g_AppIcon = Me.Icon

注意：除非很多程序的启动窗体（比如登录窗体）并不是主窗体，所以这个系统图标尽量在先出现的窗体中初始化。
3，在多窗体程序中，主窗体以外的窗体要使用主窗体图标的，一定要写成类似这样的：

    Me.Icon = g_AppIcon

注意：切忌写成 Me.Icon = frm启动窗体.Icon这样的。因为一般来说像登录窗体这种启动窗体，在登录后就退出了，你要是这样写，实际上造成了启动窗体的隐式加载，这样程序退出时反而因有隐藏的启动窗体没有退出，而导致进程实际上没有退出。

补充:
1,因为VB6中的对象是基于COM的，它的销毁和引用计数相关，所以不用担心Set g_AppIcon = Me.Icon这样后，会出现退出启动窗体会导致图标失效等相关问题。
2,这里没有使用LoadResPicture来加载应用程序图标，是因为这个函数只能载入低彩色的图标，而不像在设计器里设置窗体图标时，可以有24位真彩色的，并且运行时实际有效。

[瘦又美]

[jeep206]

VB难学吗？

[kanavic2012]

谢谢分享，学习中

[youniwohenkuaile]

[我的大飞哥]

感謝分享，跟貼學習，支持一下。

[u010785554]

领分 http://www.udchn.com

[bcrun]

引用 26 楼 Chen8013 的回复:

VB6的窗体，运行设置了自定义图标时，运行时就会产生一个临时文件。

这个确没注意到，能具体描述一下吗

[舉杯邀明月]

引用 74 楼 bcrun 的回复:

[quote=引用 26 楼 Chen8013 的回复:] VB6的窗体，运行设置了自定义图标时，运行时就会产生一个临时文件。

这个确没注意到，能具体描述一下吗[/quote] 这个临时文件，扩展名是 .tmp ，文件名以字符 ~ 开头，然后是6位16进制的数。 基本就是这样的格式，大小在16K左右。 不仅仅是窗体设置了自定义图标，运行时会产生这样的临时文件。 我还注意到，如果用了 ImageList控件，如果在设计时给它预先添加了图像（哪怕只有1个），运行时也会释放临时文件。

[ylllyf]

我一般打包的时候添加图标

[hfq20052006]

谢谢楼主分享，学习了

[u010581663]

学习一下 ，可能会用到

[ak1218g]

哪如直接设置，费那劲干嘛，VB要得就是干脆

[hcl909]

好像是注意格式就可以了

[火车恋人]

好建议，好东西，收藏了

[歪歪杨]

这办法听着新鲜

[yeyuningzi]

脚印。。。准备学VB

[shsy222]

要想界面精美一些，还是需要图标的。

[wpsgba]

看了半天没看懂，什么意思？

[qq_22748985]

小菜来逛逛！

[zhengchz2002]

没试出来接过来，哪位大虾再解释下吗。 我再Module1中输入Public g_AppIcon As StdPicture 在form1中输入： Option Explicit Private Sub Form_Load() Set g_AppIcon = Me.Icon End Sub 运行没效果，再后续还要处理什么？