Office中国论坛/Access中国论坛

标题: 在Access中显示大图片示例(第2版) [打印本页]

作者: t小宝 时间: 2013-12-31 21:43
标题: 在Access中显示大图片示例(第2版)
原来做的示例，有网友反映在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 时间: 2013-12-31 21:47
可以试试 microsoft office docment imaging viewer control 控件。。还不错

作者: t小宝 时间: 2013-12-31 21:56

jasonjiang9999 发表于 2013-12-31 21:47
可以试试 microsoft office docment imaging viewer control 控件。。还不错

我试了下，添加不了该控件，不知是否我电脑的问题。
不过在Access的窗体上该控件大小也受Access窗体的限制，超大图片可能还是不能完整显示。

作者: jasonjiang9999 时间: 2013-12-31 21:58
可以自动缩放的啊。你是说想全屏？

作者: t小宝 时间: 2013-12-31 22:04
对呀，以原始比例显示，如果超过屏幕可以用滚动条滚动

作者: jasonjiang9999 时间: 2013-12-31 22:25
可以的哈。自己要做个缩放的控件，用来设置缩放比例，控件不能完整显示原图，就自动出现滚动条

作者: jasonjiang9999 时间: 2013-12-31 22:43
2007 office 还自带这个控件。。2010就取消了。哎。微软就不得让人爽啊。

作者: tmtony 时间: 2014-1-1 00:06
{:soso_e179:}

作者: hunrybecky 时间: 2014-10-15 08:35
无法导入，提示行 2: 属性 OleObjectBlob 在 ImageView 中不能被设置。

作者: sxgaobo 时间: 2015-1-3 18:30
t小宝大师，可以增加个旋转图片的功能吗？

作者: sxgaobo 时间: 2015-1-3 22:08
t小宝大师，可以在
ImageView.LoadPicFromFile Me.照片图像.Picture
中增加个旋转图片的功能吗？

作者: wuwu200222 时间: 2021-12-8 09:53
学习

作者: 390012370 时间: 2024-1-20 07:45
好东西，多谢分享，收藏学习！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)