直接利用位图制造255×255象素特大图标的代码

　　声明：本文是原创，受知识产权法保护，网上也没有类似文章，如哪位兄弟要转发到别
的网站，务必注明本网站名称和笔者网名

　　前些日子在家闭门谢客，闭门造车（呵呵，应该是闭门造“标”），并做了大量实验，
终于"只要有决心，铁棒磨成针"，取得了伟大的胜利！
　　要想理解本代码，你必须对图标的数据结构成竹在胸，如果你还不很了解，请先阅读笔
者的另一篇原创：图标的数据结构之研究。（请见后面的附录）
　　本文的标题使用了“制造”而非“制作”，是因为“制作”要使用图标编辑器之类的工
具，而本文介绍的方法是无需使用这些工具的。下面就来介绍如何直接对位图的数据结构进
行修改，从而制造出最大可达255×255象素的正方形或长方形的特大图标。

1.制造原理
　　调色板模式的ico文件的数据结构，可分为 6 部分：
1.ICON文件头（6字节）
2.ICON图象信息块（16字节）
3.BMP信息头（40字节）
4.调色板（16色为64字节，256色为1024字节）
5.XOR位图
6.AND位图

　　而调色板模式的bmp文件的数据结构可分为 4 部分：
1.BMP文件头（14字节）
2.BMP信息头（40字节）
3.调色板（16色为64字节，256色为1024字节）
4.XOR位图

　　分析可知，ico图标与bmp位图有三个相同的部分（注：真彩图标与真彩位图的数据结构
均没有调色板部分，所以是两个相同的部分），而且这三个部分是最重要的部分。因此，我
们只要去掉 bmp位图的 BMP文件头，再加上ICON文件头、ICON图象信息块和AND位图，就可
以轻松制作出255×255象素以内的任何规格的图标了。然而……且慢，有一点却是很不轻松
的：如果你想制作背景透明（屏蔽背景色）的图标，那么你还需要对 XOR位图的数据动大手
术，更不轻松的是，AND 位图的数据也必须符合相应的要求，这是相当困难的；而制作有背
景色的图标的话，XOR 位图部分我们可以原封不动，AND 位图全是 0，只要计算出它的长度
来即可添加到 XOR位图数据的后面，这是很容易实现的。所以，下面我所讲的，都是制作有
背景色的图标。
　　ICON文件头结构很简单，一共只有3个数据共6个字节，我们要给其中的“资源类型”和
“图象个数” 2个数据均赋值为 1。
　　ICON 图象信息块有 7个数据共16字节，有5个数据要赋值：图标宽度、图标高度、颜色
计数、图像数据块的长度、图象数据块相对于文件头部的偏移量。要赋值的 5个数据中，图
象数据块相对于文件头部的偏移量是固定的，图像数据块的长度需要计算，其余 3个数据可
从 BMP 信息头中获得资料。
　　AND 位图的长度必须根据从 BMP 信息头中获得的有关数据计算。
　　此外，还要更改 BMP 信息头中的 2个数据：一个是图象长度数据（要加上 AND 位图的
长度），另一个是图像高度数据（这只要简单地将原数据×2即可）。
　　OK，一切都准备好了，万事俱备，只欠东风，下面就让东风劲吹吧。

2.编程
　　新建一个窗体，添加一个公用对话框，两个图片框，三个按纽。
　　窗体与图片框的ScaleMode属性均设为3，其中 Picture1 的 Autosize 属性设为 Ture。
　　按纽的属性设置：
Command1：Caption=打开图片
Command2：Caption=数据处理，Enabled=False
Command3：Caption=保存图标，Enabled=False

　　代码如下：

Option Explicit

Dim pDAT() As Byte '源图数据
Dim aDAT() As Byte 'AND位图数据
Dim iDAT() As Byte 'icon文件头和图象信息块数据

Private Sub Command2_Click()
On Error GoTo 100
Dim d As Long, c As Long
Dim aLength As Long 'AND位图长度

aLength = 4 * (pDAT(4) \ 32 + Abs((pDAT(4) Mod 32) > 0)) * pDAT(8) '计算AND位图的长度
ReDim aDAT(aLength - 1) As Byte
ReDim iDAT(21) As Byte

'给 icon文件头和 icon图象信息块的元素赋值
iDAT(2) = 1 '资源类型
iDAT(4) = 1 '图像个数
iDAT(6) = pDAT(4) '图像宽
iDAT(7) = pDAT(8) '图像高
iDAT(8) = 16 * Abs(pDAT(14) = 4)
iDAT(18) = 22 '图象数据块相对于文件头部的偏移量

 '更改BMP信息头中的图像高度数据
d = 2 * pDAT(8)
Select Case Len(Hex(d))
  Case 1, 2: pDAT(8) = d
  Case 3, 4: pDAT(9) = d \ 256: pDAT(8) = d And 255
End Select

'更改BMP信息头中的图象长度数据
c = pDAT(21): d = pDAT(20) + c * 256 + pDAT(22) * 65536 + aLength
Select Case Len(Hex(d)) 
  Case 1, 2: pDAT(20) = d
  Case 3, 4: pDAT(21) = d \ 256: pDAT(20) = d And 255
  Case 5, 6: c = d And 65535: pDAT(22) = d \ 65536: pDAT(21) = c \ 256: pDAT(20) = c And 255
End Select

 '计算icon图像信息块中的图象长度数据
Select Case pDAT(14) 'pDAT(14)＝4为16色，＝8为256色，＝24为真彩
  Case 4: d = d + 40 + 64 '64是16色调色板长度，40是BMP信息头的长度
  Case 8: d = d + 40 + 1024 '1024是256色调色板长度
  Case 24: d = d + 40
End Select
Select Case Len(Hex(d))
  Case 1, 2: iDAT(14) = d
  Case 3, 4: iDAT(15) = d \ 256: iDAT(14) = d And 255
  Case 5, 6: c = d And 65535: iDAT(16) = d \ 65536: iDAT(15) = c \ 256: iDAT(14) = c And 255
End Select

Command3.Enabled = True: Command2.Enabled = False
100
End Sub

Private Sub Command1_Click()
On Error GoTo ReadErr
Dim ImageName As String, fLength As Long, BJ As Boolean
With CommonDialog1
  .DialogTitle = "打开"
  .Filter = "图片文件(*.bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif"
  .ShowOpen
  If Len(.FileName) < 5 Then Exit Sub
  ImageName = .FileName
End With
Picture1.Picture = LoadPicture(ImageName)
Picture2.Width = Picture1.Width: Picture2.Height = Picture1.Height
Picture2.Picture = LoadPicture()
If Right(LCase(ImageName), 3) <> "bmp" Then '如果不是位图，先存为位图，再读取
  BJ = True
  ImageName = App.Path & "\TempFile.bmp"
  SavePicture Picture1.Image, ImageName
End If
fLength = FileLen(ImageName) '获取文件长度
ReDim pDAT(fLength - 15) As Byte
Open ImageName For Binary As #1
Get #1, 15, pDAT
Close
If BJ Then Kill ImageName '删除临时位图文件
If (pDAT(5) + pDAT(6) + pDAT(7) + pDAT(9) + pDAT(10) + pDAT(11) > 0) Then
  MsgBox "图片尺寸超出"
  Exit Sub
End If
Me.Caption = ImageName
Command2.Enabled = True
Exit Sub
ReadErr:
Close
End Sub

Private Sub Command3_Click()
On Error GoTo WriteErr
Dim IconName As String
With CommonDialog1
  .Flags = &H802
  .DialogTitle = "保存"
  .Filter = "图标文件(*.ico)|*.ico"
  .ShowSave
  If .FileName = "" Then Exit Sub
  IconName = .FileName
End With
Open IconName For Binary As #1
Put #1, , iDAT
Put #1, , pDAT
Put #1, , aDAT
Close
ReDim iDAT(0)
ReDim pDAT(0)
ReDim aDAT(0)
Command3.Enabled = False
Picture2.Picture = LoadPicture(IconName)
Exit Sub
WriteErr:
Close
MsgBox "图标制作失败"
End Sub

3.代码分析
①在 Command1_Click 过程中，使用二进制读入数据方法，从第15字节读起，这样就去掉了
BMP文件头。

②在 Command3_Click 过程中，使用二进制写入数据方法，将ICON文件头、ICON图象信息块
、读入的位图数据（修改了其中几个字节的数据）、AND位图数据（全0数据)等，依次写入一
个ico文件

③Command2_Click 过程是本代码关键的关键。
　　首先计算 AND位图的长度。这就需要知道扫描线的长度和图象的高度，而计算扫描线长度
还需知道图像的宽度。本代码中，图像高度在原位图数据的 pDAT(8)元素中，图象宽度在原位
图数据的 pDAT(4) 元素中，所以可归纳成代码中所示的计算公式。

　　接着给 ICON文件头和 ICON图象信息块的元素赋值。请注意 iDAT(6)和 iDAT(7),它们
分别是图标的宽度和高度，由于它们都只占用 1个字节，故图标规格的最大值只能做到 255
象素（如果它们都分别占用 4 个字节的话，呵呵，那制作出来的图标是多么地惊人啊！）。
icon 图像信息块中的图象长度数据元素 iDAT(14)—iDAT(17)要最后才赋值。

　　接下来就是更改BMP信息头中的图像高度数据。原元素中只是XOR位图的高度，而图标的
数据结构要求这个值是XOR位图高度与AND位图高度之和。

　　再修改 BMP信息头中的图象长度数据。原元素中只是 XOR位图的长度，而图标的数据结
构要求这个值是 XOR位图长度与 AND位图长度之和。

　　最后修改 icon 图像信息块中的图象长度数据，也就是 iDAT(14)—iDAT(17) 元素的值
（这个长度数据本来占用 4个字节，但255×255象素的图标长度只要 3个字节就够了）。计
算公式如下：

icon图像信息块中的图象长度＝XOR位图长度＋AND位图长度＋BMP信息头长度＋调色板长度


　　特大图标的制作工作到此就全部结束了，你一定迫不及待地想看看它的效果吧，可惜的
是，不论多大的图标，在桌面或资源管理器中最大都只能显示72×72的尺寸，你只有在图片
框中才能欣赏到它的丽容了。不过不要垂头丧气，通过这个实验，你将会获得许多图标及位
图的数据结构方面的知识，这不就是最大的收获吗？


附录：图标文件的数据结构之研究

　　闲来无事，研究了了一下图标的数据结构，下面就将我的研究心得写出来与各位兄弟共
享（注：以下所说的图标均为调色板模式的图标，特别注明的真彩图标是指24位真彩）。

一、从图标的显示原理说起
　　一般图标都是由两个单独的位图组成的。如果该图标是屏蔽背景色的话，那么，第一个
位图是由黑色背景（相关的颜色位全为 0）与彩色图标图案组成的，该位图将与当前屏幕进
行异或操作（XOR），故称其为 XOR位图；第二个位图是由白色背景（相关的颜色位全为1）
与黑色图标图案（相关的颜色位全为0）组成的，该位图将与当前屏幕进行与操作（AND），
故称其为 AND 位图。因此，图标的显示是通过两个步骤完成的：

步骤1.首先，AND 位图与当前屏幕进行 AND 操作；
步骤2.接着，XOR 位图与当前屏幕进行 XOR 操作。

　　大家知道，任何数值与 1 进行AND操作的结果将等于原数值，而任何数值与 0 进行AND
操作的结果则是 0，因此在步骤1中，AND位图中的背景色（即白色 1）部分与屏幕经过 AND
操作后仍然保持屏幕的原色彩，而图案色（即黑色 0）部分则取代了原屏幕色。步骤 1结束
后，屏幕上将留下一个黑色的图标图案。在随后的步骤 2中,由于任何数值与 0 进行异或操
作的结果都等于原数值，因此，XOR 位图与屏幕经过异或操作后，彩色图案部分就取代了屏
幕上的黑色图标部分，而屏幕的背景色与 XOR位图中的黑色背景 0异或后仍保持原来的屏幕
色。步骤 2结束后，一个以屏幕色为背景的彩色图标图案就出现在屏幕上了（这也是我们通
常所说的“屏蔽背景色”或者说“背景色透明”），这就是图标显示的原理。

二、图标的图形
　　图标的图形，实际上就是位图格式的图片，是一个标准的位图格式。Windows只要从BMP
信息头中获取信息就足够了，它据以解释在其后出现的数据应该如何处理。如果是调色板模
式，BMP 信息头后面的数据包含有调色板和像素点颜色索引，如果是真彩模式，其后的数据
直接就是像素点的 RGB 颜色值。
　　调色板模式的位图文件是由BMP文件头、BMP信息头、调色板、数据区（又称位图点阵）
等几个部分组成的。
　　而调色板模式的图标文件是由ICON文件头、ICON图像信息块、BMP信息头、调色板、数
据区（这个数据区比位图的数据区多了 AND 位图的数据，后面会讲到）。
　　我们欣喜地看到，位图与图标的数据结构有很大一部分是相同的！了解了这一情况，我
们可以简单地把图标图形的结构理解为位图信息。这样，我们就有可能根本不需要真的去画
一幅图来制作图标，而只需要利用已有的位图，对关键数据进行程序填充或修改就可以了，
所编写的代码，直接按图标格式的要求，可把一个尺寸不大于 255×255 像素的任意位图，
封装成标准格式的图标（位图的宽高尺寸保持不变）。