Private Const Color_1 = "16,-1,-1,-1,-1,-1,-1,-1,14211288,10461087,14211288,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,3815994,3681836,6645093,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,9474192,4733240,14857391,1840662,12369084,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,14211288,1775640,13345951,14857391,10715260,3815994,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,6645093,7626075,15055027,14594219,14067360,4206639,9474192,-1,-1,-1,-1,-1,-1,-1,-1,-1,12369084,1840662,15252406,14857391,14067360,14000538,11633534,1775640,14211288,-1,-1,-1,-1,-1,-1,-1,-1,3815994,11505033,15055027,14000538,14393754,14393754,13013130,6177344,6645093,-1,-1,-1,-1,-1,-1,-1,9474192,4733240,15252406,14000538,13867153,14393754,14788512,13407374,12156792,1313802,12369084,-1,-1,-1,-1,-1,14211288,1775640,13345951,14264482,13274759,13867153,14393754,14788512,14393754,12156792,8277834,3815994,-1,-1,-1,-1,-1,6645093,7626075,14725548,12880001,12880001,13867153,14393754,14788512,14393754,13867153,10774111,3152665,9474192,-1,-1,-1,12369084," & _
"1840662,15055027,12682622,12682622,13274759,13867153,14393754,14788512,14393754,13867153,12682622,8802121,1446930,14211288,-1,-1,3815994,11505033,12552064,12156021,12682622,13274759,13867153,13867153,14788512,14393754,14393754,13472652,11695470,5057834,6645093,-1,9474192,4733240,13472652,11629420,12156021,12682622,13472652,13867153,14393754,14788512,14393754,13867153,13472652,12880001,10905697,1313802,12369084,921102,10778996,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,10778996,3815994,7566195,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8553090"Private Const Color_2 = "16,8553090,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7566195,3815994,10778996,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,10778996,921102,12369084,1313802,10905697,12880001,13472652,13867153,14393754,14788512,14393754,13867153,13472652,12682622,12156021,11629420,13472652,4733240,9474192,-1,6645093,5057834,11695470,13472652,14393754,14393754,14788512,13867153,13867153,13274759,12682622,12156021,12552064,11505033,3815994,-1,-1,14211288,1446930,8802121,12682622,13867153,14393754,14788512,14393754,13867153,13274759,12682622,12682622,15055027,1840662,12369084,-1,-1,-1,9474192,3152665,10774111,13867153,14393754,14788512,14393754,13867153,12880001,12880001,14725548,7626075,6645093,-1,-1,-1,-1,-1,3815994,8277834,12156792,14393754,14788512,14393754,13867153,13274759,14264482,13345951,1775640,14211288,-1,-1,-1,-1,-1,12369084,1313802,12156792,13407374,14788512,14393754,13867153,14000538,15252406,4733240," & _
"9474192,-1,-1,-1,-1,-1,-1,-1,6645093,6177344,13013130,14393754,14393754,14000538,15055027,11505033,3815994,-1,-1,-1,-1,-1,-1,-1,-1,14211288,1775640,11633534,14000538,14067360,14857391,15252406,1840662,12369084,-1,-1,-1,-1,-1,-1,-1,-1,-1,9474192,4206639,14067360,14594219,15055027,7626075,6645093,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,3815994,10715260,14857391,13345951,1775640,14211288,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,12369084,1840662,14857391,4733240,9474192,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,6645093,3681836,3815994,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,14211288,10461087,14211288,-1,-1,-1,-1,-1,-1,-1"
这是两个图标
"1840662,15055027,12682622,12682622,13274759,13867153,14393754,14788512,14393754,13867153,12682622,8802121,1446930,14211288,-1,-1,3815994,11505033,12552064,12156021,12682622,13274759,13867153,13867153,14788512,14393754,14393754,13472652,11695470,5057834,6645093,-1,9474192,4733240,13472652,11629420,12156021,12682622,13472652,13867153,14393754,14788512,14393754,13867153,13472652,12880001,10905697,1313802,12369084,921102,10778996,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,10778996,3815994,7566195,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8553090"Private Const Color_2 = "16,8553090,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7566195,3815994,10778996,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,10778996,921102,12369084,1313802,10905697,12880001,13472652,13867153,14393754,14788512,14393754,13867153,13472652,12682622,12156021,11629420,13472652,4733240,9474192,-1,6645093,5057834,11695470,13472652,14393754,14393754,14788512,13867153,13867153,13274759,12682622,12156021,12552064,11505033,3815994,-1,-1,14211288,1446930,8802121,12682622,13867153,14393754,14788512,14393754,13867153,13274759,12682622,12682622,15055027,1840662,12369084,-1,-1,-1,9474192,3152665,10774111,13867153,14393754,14788512,14393754,13867153,12880001,12880001,14725548,7626075,6645093,-1,-1,-1,-1,-1,3815994,8277834,12156792,14393754,14788512,14393754,13867153,13274759,14264482,13345951,1775640,14211288,-1,-1,-1,-1,-1,12369084,1313802,12156792,13407374,14788512,14393754,13867153,14000538,15252406,4733240," & _
"9474192,-1,-1,-1,-1,-1,-1,-1,6645093,6177344,13013130,14393754,14393754,14000538,15055027,11505033,3815994,-1,-1,-1,-1,-1,-1,-1,-1,14211288,1775640,11633534,14000538,14067360,14857391,15252406,1840662,12369084,-1,-1,-1,-1,-1,-1,-1,-1,-1,9474192,4206639,14067360,14594219,15055027,7626075,6645093,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,3815994,10715260,14857391,13345951,1775640,14211288,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,12369084,1840662,14857391,4733240,9474192,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,6645093,3681836,3815994,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,14211288,10461087,14211288,-1,-1,-1,-1,-1,-1,-1"
这是两个图标
解决方案 »
- VB如何实现摄像头数据的捕获与显示
- 如何获得文本框多行输入时,输入焦点在屏幕上的位置
- ocx控件注册?
- picturebox的边框颜色都是黑色么?不能改么?我想改成红色怎么改啊?
- 大虾们,我在使用treeview控件时,老是说类型不匹配,请问是什么问题?
- 各位高手,求救啊!关于VB二进制图片数据转可以跟字符合并的算法问题
- 请问各位~现在学什么、学到什么程度或者干什么、在哪里干能年薪十万或者更多~多谢参加讨论~~:)
- 用VB 开发数据库中如何通过ADODC控件用SQL 来删除一批数据??
- "军营"在哪里??
- 轻松实现进度标签,有源程序哟!!
- vb调用exe的问题,在线等,谢谢!
- 如何向另外一个已知句柄的全局变量赋值
的时候再从变量里将数据转出来恢复成图标吧?
如果是这样的目的没必要这样做的,你只用吧你想要跟EXE一起编译的文本、
图标、图片、鼠标或其他的数据文件一资源的方式引用就可以了,这样你的
资源文件就可以和你的EXE一起编译出来。当你使用这些资源的时候,你可以
通过VB自带的函数:LoadResPicture 或 LoadResData 或 LoadResStr...
调用你的资源信息,资源的管理在VB的“外接程序”菜单下的“外接程序管理器”
中可以找到“资源管理器”,具体的你可以详细看一下MSDN的帮助文档
楼上说得没错,是需要与EXE一起编译,但是我想转成上面的样子,如何办呢????????
Private Const Color_1 = "16,-1,-1,-1,-1,-1,-1,-1,14211288,10461087,14211288,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,3815994,3681836,6645093,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,9474192,4733240,14857391,1840662,12369084,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,14211288,1775640,13345951,14857391,10715260,3815994,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,6645093,7626075,15055027,14594219,14067360,4206639,9474192,-1,-1,-1,-1,-1,-1,-1,-1,-1,12369084,1840662,15252406,14857391,14067360,14000538,11633534,1775640,14211288,-1,-1,-1,-1,-1,-1,-1,-1,3815994,11505033,15055027,14000538,14393754,14393754,13013130,6177344,6645093,-1,-1,-1,-1,-1,-1,-1,9474192,4733240,15252406,14000538,13867153,14393754,14788512,13407374,12156792,1313802,12369084,-1,-1,-1,-1,-1,14211288,1775640,13345951,14264482,13274759,13867153,14393754,14788512,14393754,12156792,8277834,3815994,-1,-1,-1,-1,-1,6645093,7626075,14725548,12880001,12880001,13867153,14393754,14788512,14393754,13867153,10774111,3152665,9474192,-1,-1,-1,12369084," & _
"1840662,15055027,12682622,12682622,13274759,13867153,14393754,14788512,14393754,13867153,12682622,8802121,1446930,14211288,-1,-1,3815994,11505033,12552064,12156021,12682622,13274759,13867153,13867153,14788512,14393754,14393754,13472652,11695470,5057834,6645093,-1,9474192,4733240,13472652,11629420,12156021,12682622,13472652,13867153,14393754,14788512,14393754,13867153,13472652,12880001,10905697,1313802,12369084,921102,10778996,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,10778996,3815994,7566195,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8553090"Private Const Color_2 = "16,8553090,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7566195,3815994,10778996,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,14393754,10778996,921102,12369084,1313802,10905697,12880001,13472652,13867153,14393754,14788512,14393754,13867153,13472652,12682622,12156021,11629420,13472652,4733240,9474192,-1,6645093,5057834,11695470,13472652,14393754,14393754,14788512,13867153,13867153,13274759,12682622,12156021,12552064,11505033,3815994,-1,-1,14211288,1446930,8802121,12682622,13867153,14393754,14788512,14393754,13867153,13274759,12682622,12682622,15055027,1840662,12369084,-1,-1,-1,9474192,3152665,10774111,13867153,14393754,14788512,14393754,13867153,12880001,12880001,14725548,7626075,6645093,-1,-1,-1,-1,-1,3815994,8277834,12156792,14393754,14788512,14393754,13867153,13274759,14264482,13345951,1775640,14211288,-1,-1,-1,-1,-1,12369084,1313802,12156792,13407374,14788512,14393754,13867153,14000538,15252406,4733240," & _
"9474192,-1,-1,-1,-1,-1,-1,-1,6645093,6177344,13013130,14393754,14393754,14000538,15055027,11505033,3815994,-1,-1,-1,-1,-1,-1,-1,-1,14211288,1775640,11633534,14000538,14067360,14857391,15252406,1840662,12369084,-1,-1,-1,-1,-1,-1,-1,-1,-1,9474192,4206639,14067360,14594219,15055027,7626075,6645093,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,3815994,10715260,14857391,13345951,1775640,14211288,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,12369084,1840662,14857391,4733240,9474192,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,6645093,3681836,3815994,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,14211288,10461087,14211288,-1,-1,-1,-1,-1,-1,-1"Private Sub DrawIco(Dat As String, x As Long, y As Long)
Dim i As Long, s() As String, px As Long, py As Long
s = Split(Dat, ",")
For py = y To y + s(0) - 1
For px = x To x + s(0) - 1
If s(i) > -1 And i > 0 Then Picture1.PSet (px, py), s(i)
i = i + 1
Next
Next
End Sub
Private Sub Command1_Click()
DrawIco Color_1, 30, 40
End SubPrivate Sub Command2_Click()
DrawIco Color_2, 60, 90
End SubPrivate Sub Form_Load()
Picture1.ScaleMode = 3
End Sub至于怎么把图标转成上面的形式,嘿嘿,看看上面的代码你就明白了。懒得再写了。
定是自己写个小程序转换出来的字符,然后自己再复制进代码中的,自己再用
Private Const 定义成常数,用来表示图像。但是我认为如果真要以字符串来
表示数据,还不如使用MIME 64编码方式,起码不会占用那么多空间,数据量
也就增长1/3而已,实在不行用16进制符表示数据也不错呀,起码数据不会增
加得那么夸张。
所以不论从你想跟随编译的目的或是想了解字符串存储数据的目的,你上面的
存储方式及结构都是不值得去深究的。