Office中国论坛/Access中国论坛

标题: 请教高手,如何实现调用外部图片程序时显示动态图片地址? [打印本页]

作者: pengjiank 时间: 2010-11-19 14:42
标题: 请教高手,如何实现调用外部图片程序时显示动态图片地址?
做了一个存放图片的数据库,将图片地址保存在数据库中,在窗体上也显示出来，现在想双击图片调查WINDOWS传真和图片查看器显示图片和打印，代码如下：
Shell("rundll32.exe c:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen Me![图片地址]")
用这种方式双击后无反应，如果将Me![图片地址]换成一个固定的图片地址，如c:\1.jpg，就可以正常调用。请问各位高手，如果我想调用一个动态的地址，比如说图片地址字段内保存的图片地址，而不是一个固定的地址，该如何修改代码？

作者: todaynew 时间: 2010-11-19 15:19
本帖最后由 todaynew 于 2010-11-19 15:23 编辑

一般可以用以下语句打开各类文件，包括图片。
If Shell("explorer.exe " & Me![图片地址], vbNormalFocus) = 0 Then Exit Sub
如果你调用某个特定程序打开文件，可以写为：
if Shell("rundll32.exe c:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen " & Me![图片地址],vbNormalFocus)=0 Then Exit Sub
以下这串代码是否可以打开图片没有试过：
rundll32.exe c:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen

作者: pengjiank 时间: 2010-11-19 16:56
楼上的高手,还是不行.
rundll32.exe c:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen c:\1.jpg
可以打开图片
if Shell("rundll32.exe c:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen " & Me![图片地址],vbNormalFocus)=0 Then Exit Sub
没反应

作者: webcong 时间: 2010-11-21 20:32
只要你这个[图片地址]没错,绝对是可以打开的.

作者: pengjiank 时间: 2010-11-22 09:33
本帖最后由 pengjiank 于 2010-11-22 09:33 编辑

谢谢高手,按你的方法解决了.谢谢!

作者: termisss 时间: 2010-11-22 09:45
上班之余,来逛逛论坛.

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