在Access中显示大图片示例(第2版)

t小宝

原来做的示例，有网友反映在2002-2003的mdb格式和accdb格式中有问题，原来是用户窗体的Frame控件在这些版本中竞然不能使用。
由于Access的窗体和控件尺寸大小有限制，没法完整显示较大图片，想想这个功能大家还是偶尔会用到，于是重新做了一个，测试在2010中可用。
还是用的用户窗体，如果要在你的程序中使用，请将示例中的用户窗体从vba编辑器中导出为frm文件，再打开你的库在vba编辑器中导入。
原贴地址：http://www.office-cn.net/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 发表于 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小宝 大师，可以增加个旋转图片的功能吗？