向《軟體報》投稿的一篇文章 ：VB 圖片轉換為Byte()和從Byte()中讀取圖片的捷徑

沒有試過給報社投稿，第一次，投了很久，但還是登出來了，雖然沒有稿費，但卻很快樂。

文章本文如下：

很多時候，我們需要將圖片框中的圖片儲存到資料庫，並從資料庫中讀取出來。雖然VB中的圖片框支援直接綁定資料庫存入圖片和讀取圖片的方法，但是很多場合并不能使用綁定來解決問題。於是很多人在進行操作時，都使用了類似以下的方法: 讀入圖片到圖片框後 ，再使用 Open "Picture" For Binary 來開啟檔案並讀入為Byte() 數組。而從資料庫讀取圖片格式時，則需要先將 欄位資料讀取到 Byte()，再使用 Open "Picture" For Binary 寫入到磁碟上的臨時檔案再使用 LoadPicture 來讀取臨時檔案。寫入和讀取都是多餘的步驟，浪費了時間還留下了臨時檔案，在圖片較大的情況下，對效率的影響相當嚴重。

是否有更快捷方法來儲存圖片框圖片/讀取Byte()中的圖片呢？是的，在 VB 下有一個鮮為人知的對象： PropertyBag ，該對象原本是儲存 ActiveX 中屬性中的資料，並把它寫到檔案中去。但是我們卻能利用它來達到讀取圖片框圖片為Byte() 的目的，請看下列代碼：

'假設Form 上已經存在Picture1的控制項，並已經設定好圖片

Dim PBag As New PropertyBag

Dim B() As Byte

PBag.WriteProperty "Picture", Picture1.Picture

'讀取Picture1.Picture 圖片並寫到 Pbag 容器中

B = PBag.Contents '擷取容器Byte 到 B() 數組中

'這時 B 就時我們想要獲得的Byte數組

'讀取 Byte() 數組內容到 Picture

PBag.Contents = B '指定 PBag容器的內容

'讀取容器中的圖片

Set Picture1.Picture = PBag.ReadProperty("Picture")

簡單的幾句代碼就可以完成從圖片到Byte() ，從Byte()到圖片的轉換。而且其儲存和讀取的格式都是使用了原始格式，即：如果你的圖片框讀入的是Jpg圖片格式，則儲存的Byte()數組也是該Jpg格式的數組，而非普通位元影像的數組，所以你也不用擔心轉換後的數組很沒有壓縮，很大。

其實：PropertyBag對象並不止於讀取儲存圖片，它就象一個大麻袋，可以藏任何東西，並放到你想放的地方，具體藏什麼 ，是由你決定的。你可以將任何對象儲存為Byte(),並在需要的時候讀出來

如將 ADO 的 RecordSet 對象儲存起來，並在需要的時候讀取等等……

                                                        樂天

                                                        2005-07-24 晚