急,谢谢

解决方案 »

  1.   


    LoadResPicture 函数
          用以从资源 (.res) 文件装载位图、图标或光标。语法LoadResPicture(index, format)LoadResPicture 函数的语法包含下列部分:部分 描述 
    index 必需的。一个整数或字符串,它用来指定资源文件中数据的标识符 (ID) 。ID标识符为 1 的资源保留给应用程序的图标。 
    format 必需的。一个数值或常数,如下列“设置值”中所描述的,指定返回数据的格式。 
    设置值用于 format 的设置值有: 常数 值 描述 
    vbResBitmap 位图 0 位图资源 
    vbResIcon 图标 1 图标资源 
    vbResCursor 2 光标资源 
    说明可以使用 LoadResPicture 函数代替对存储在 Form 或控件的 Picture 属性中的图形的引用。将位图、图标或光标存储在资源文件中并从该资源文件对它们进行访问能改进装载时间,这是因为可以根据需要从资源文件单独装载,而不是在装载 Form 时一并全部装载。LoadResPicture 的使用对于 Visual Basic 应用程序的本地化有好处,这是因为需要翻译的资源在一个资源文件中被隔离,并且无须访问源代码或重新编译该应用程序。 
      

  2.   

    http://blog.csdn.net/wallescai/archive/2004/12/31/235270.aspx
      

  3.   

    Dim MyBag As PropertyBag
        Dim BagBytes() As Byte
        
        ' Create new property bag and load image into it
        Set MyBag = New PropertyBag
        Call MyBag.WriteProperty("Picture", LoadPicture(App.Path & "\nbcar.JPG"))
        
        ' Get property bag contents as byte array
        BagBytes() = MyBag.Contents()
        
        ' Destroy property bag and re-create
        Set MyBag = Nothing
        Set MyBag = New PropertyBag
        
        ' Re-populate property bag from byte array and extract picture
        MyBag.Contents = BagBytes
        Set Me.Picture = MyBag.ReadProperty("Picture")
        
        ' Clean up
        Set MyBag = Nothing
      

  4.   

    搞一个image对象,把Byte数据给他,然后Picture.Picture =image