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"
这是两个图标

解决方案 »

  1.   

    看了一下,估计你的目的是想把图标放到变量里和EXE一起编译,然后再使用
    的时候再从变量里将数据转出来恢复成图标吧?
    如果是这样的目的没必要这样做的,你只用吧你想要跟EXE一起编译的文本、
    图标、图片、鼠标或其他的数据文件一资源的方式引用就可以了,这样你的
    资源文件就可以和你的EXE一起编译出来。当你使用这些资源的时候,你可以
    通过VB自带的函数:LoadResPicture 或 LoadResData 或 LoadResStr...
    调用你的资源信息,资源的管理在VB的“外接程序”菜单下的“外接程序管理器”
    中可以找到“资源管理器”,具体的你可以详细看一下MSDN的帮助文档
      

  2.   

    我知道怎么读资源文件,但现在的问题是如何把图标转成最上面那样子的呢。
    楼上说得没错,是需要与EXE一起编译,但是我想转成上面的样子,如何办呢????????
      

  3.   

    这不难,就是有点烦,用下面的程序可画出图标Option Explicit
    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至于怎么把图标转成上面的形式,嘿嘿,看看上面的代码你就明白了。懒得再写了。
      

  4.   

    比较不明白,如何得到Private Const Color_1 和Private Const Color_2这样的数字啊。
      

  5.   

    其实搂主没必要对这些字符数据过于深究,这些数据也不会是手工输入的,肯
    定是自己写个小程序转换出来的字符,然后自己再复制进代码中的,自己再用
    Private Const 定义成常数,用来表示图像。但是我认为如果真要以字符串来
    表示数据,还不如使用MIME 64编码方式,起码不会占用那么多空间,数据量
    也就增长1/3而已,实在不行用16进制符表示数据也不错呀,起码数据不会增
    加得那么夸张。
    所以不论从你想跟随编译的目的或是想了解字符串存储数据的目的,你上面的
    存储方式及结构都是不值得去深究的。