在Access中顯示大圖片示例(第2版)

t小寶

原來做的示例，有網友反映在2002-2003的mdb格式和accdb格式中有問題，原來是用戶窗體的Frame控件在這些版本中競然不能使用。
由于Access的窗體和控件尺寸大小有限制，沒法完整顯示較大圖片，想想這個功能大家還是偶爾會用到，于是重新做了一個，測試在2010中可用。
還是用的用戶窗體，如果要在你的程序中使用，請將示例中的用戶窗體從vba編輯器中導出為frm文件，再打開你的庫在vba編輯器中導入。
原貼地址：http://m.mzhfr.cn/thread-107146-1-1.html
原貼內容：

有網友數據庫使用了超大的圖片(比屏幕還要大)，因為希望看得清楚一點(或者說以實際大小查看圖片)，圖片框要以剪裁的方式來顯示圖片，但圖片框沒有滾動條，就不能完整看到圖片了。

簡單有效的解決辦法是調用 windows 圖片和傳真查看器打開圖片，只一行代碼：

    Shell "rundll32.exe shimgvw.dll,imageview_fullscreen " & Me.照片圖像.Picture   

但那也不是唯一的辦法，挖掘Access自身的潛力仍然可曲徑通幽，以下是本人作的示例，可放大縮小或以實際大小顯示圖片，超出部分可拖動滾動條顯示。

代碼集成在一個模塊，調用很簡單，也是一行代碼：

    ImageView.LoadPicFromFile Me.照片圖像.Picture

jasonjiang9999

可以試試  microsoft office docment imaging viewer control  控件。。還不錯

t小寶

jasonjiang9999 發(fā)表于 2013-12-31 21:47
可以試試  microsoft office docment imaging viewer control  控件。。還不錯

我試了下，添加不了該控件，不知是否我電腦的問題。
不過在Access的窗體上該控件大小也受Access窗體的限制，超大圖片可能還是不能完整顯示。

jasonjiang9999

可以自動縮放的啊。 你是說想全屏？

t小寶

對呀，以原始比例顯示，如果超過屏幕可以用滾動條滾動

jasonjiang9999

可以的哈。自己要做個縮放的控件，用來設置縮放比例，控件不能完整顯示原圖，就自動出現滾動條

jasonjiang9999

2007 office 還自帶這個控件。。2010就取消了。哎。 微軟就不得讓人爽啊。

tmtony

{:soso_e179:}

hunrybecky

無法導入，提示行 2: 屬性 OleObjectBlob 在 ImageView 中不能被設置。

sxgaobo

t小寶 大師，可以增加個旋轉圖片的功能嗎？