有一byte()数组,其内容是一个bmp文件,怎么把这个byte()数组的内容做为图片在picturebox或iamge控件上显示出来? 急,谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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 应用程序的本地化有好处,这是因为需要翻译的资源在一个资源文件中被隔离,并且无须访问源代码或重新编译该应用程序。 http://blog.csdn.net/wallescai/archive/2004/12/31/235270.aspx 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 搞一个image对象,把Byte数据给他,然后Picture.Picture =image 如何操作ini文件? picture上视频保存成bmp图片 VB中怎样引入VC创建的DLL中的类? 图象压缩 如何让activeX控件加上参数? 关于如何保存用户输入数据? 查毒查不出来,但一开机时IE仍自己启动,我该怎么办? 输入问题?MSFlexGrid中固定前几列,其它列随水平滚动条移动? 怎样写Windows 那样的帮助 如何自动读取file中的文件 用“RecordCount”得不到一个记录集的行数怎么办? 在学校一直用access,听说找工作许多需要sql server,所以想知道怎么写存储过程和触发器,怎样在程序中调用,请各位大哥帮忙。
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 应用程序的本地化有好处,这是因为需要翻译的资源在一个资源文件中被隔离,并且无须访问源代码或重新编译该应用程序。
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