【原创】马大哈系列功能模块----根据字节数组直接得到IPicture对象

马大哈

这个模块在使用资源文件的情况下比较方便,能直接使用文件而不需要释放出来.

同时资源文件中的二进制数据也可以是加密的,使用前再解密即可,这样也能增加一些安全性.

Lt8SCGBN.bas (2.36 KB, 下载次数: 19306)

2009-5-26 03:45 上传

点击文件名下载附件
【原创】马大哈系列功能模块----根据字节数组直接得到IPicture对象

以下是使用示例:

1. private Sub Form_Load()
   
2.     Dim I() As Byte
   
3.    
   
4.     Open "E:\M55.JPG" For Binary As #1     
   
5.         ReDim I(LOF(1) - 1)                        '二进制方式载入文件
   
6.         Get #1, , I
   
7.     Close #1
   
8.     Set Me.Picture = PictureFromBits(I())     
   
9. End Sub

复制代码

马大哈

<p>貌似没见到过直接转换的API.</p>
<p>&nbsp;</p>
<p>不过,可以通过绘制后再GetDibits的办法得到.</p>

everyone

转到数值后怎么取bit呢？

everyone

怎么用<font face="Verdana">lrtn = GetDIBits(PictureFromBits(I()).CurDC, PictureFromBits(I()).Handle, 0&amp;, iHeight, bits(0, 0, 0), bi24BitInfo, 0&amp;)</font>

szysslszy

马师傅，能给发个帖子，详细解释下么？

马大哈

这个代码是比较简单的,所以我也没写说明.

总体过程:

一,根据传入的字节数组创建一个流对象;

二,使用OleLoadPicture函数通过流对象加载图象,并得到一个Picture对象.

acme_pjz

以前我印象中只能加载bmp，不能加载jpg……在VBGood没找到，来这里看看……