作者：绿色风
分类：
时间：2022-08-18
浏览：94
楼主
amulee |
同样是根据点阵图制作，与之前不同的是将数字组合在一起并插入工作簿中。
- Sub Create24BitCombinedNumber()
- Dim FS As Integer
- Dim Header(1 To 54) As Byte
- Dim FName As String
- Dim ArrColor(2) As Byte
- Dim ArrNumber(9) As String
- Dim i%, j%, k%
- '定义数字数组
- ArrNumber(0) = "111111111111111100001111111011110111111011110111111011110111111011110111111011110111111011110111111011110111111011110111111100001111111111111111"
- ArrNumber(1) = "111111111111111110111111111000111111111110111111111110111111111110111111111110111111111110111111111110111111111110111111111000001111111111111111"
- ArrNumber(2) = "111111111111111100001111111011110111111011110111111111110111111111101111111111011111111110111111111101111111111011110111111000000111111111111111"
- ArrNumber(3) = "111111111111111100001111111011110111111011110111111111101111111110011111111111101111111111110111111011110111111011110111111100001111111111111111"
- ArrNumber(4) = "111111111111111111011111111111011111111110011111111101011111111011011111111011011111111000000111111111011111111111011111111110000111111111111111"
- ArrNumber(5) = "111111111111111000000111111011111111111011111111111010001111111001110111111111110111111111110111111011110111111011110111111100001111111111111111"
- ArrNumber(6) = "1111111111111111100011111111011101111110111111111110111111111110100011111110011101111110111101111110111101111110111101111111000011111111111111111"
- ArrNumber(7) = "111111111111111000000111111011101111111011101111111111011111111111011111111110111111111110111111111110111111111110111111111110111111111111111111"
- ArrNumber(8) = "111111111111111100001111111011110111111011110111111011110111111100001111111101101111111011110111111011110111111011110111111100001111111111111111"
- ArrNumber(9) = "111111111111111100011111111011101111111011110111111011110111111011100111111100010111111111110111111111110111111011101111111100011111111111111111"
- '文件头
- Header(1) = 66
- Header(2) = 77
- Header(3) = 238
- Header(4) = 11
- Header(11) = 54
- Header(15) = 40
- Header(19) = 120
- Header(23) = 12
- Header(27) = 1
- Header(29) = 24
- Header(39) = 18
- Header(40) = 11
- Header(43) = 18
- Header(44) = 11
- '开始生成文件
- FName = ThisWorkbook.Path & "\0-9.bmp"
- FS = FreeFile
- Open FName For Binary Access Write As #FS
- '写文件头
- Put #FS, , Header
- '写颜色
- Pos = 55
- For i = 11 To 0 Step -1 '行
- For k = 0 To 9 '数字
- For j = 1 To 12 '写12个像素
- If Mid(ArrNumber(k), i * 12 + j, 1) = "1" Then
- ArrColor(0) = 0
- ArrColor(1) = 0
- ArrColor(2) = 0
- Else
- ArrColor(0) = 254
- ArrColor(1) = 254
- ArrColor(2) = 254
- End If
- Put #FS, Pos, ArrColor
- Pos = Pos + 3
- Next j
- Next k
- Next i
- Close #FS
- Sheet1.Pictures.Delete
- Sheet1.Pictures.Insert FName
- Kill FName
- End Sub
 BMP_CombinedNumber_Creator.rar
|
2楼
Rongson_Chart |
这个好牛~~！ |
3楼
kangguowei |
学习 |
4楼
kangguowei |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一