续-点击打开图片的VB代码

Lee　发表于：2010-07-03 08:47:01 　

复制

我现在按煮江品茶方法，点击打开图片代码：

if Shell("explorer.exe " & me.产品图示.value, vbNormalFocus)=0 then exit sub

这方法是用IE打开图片，有个缺点就是用IE打开图片不能对图片进行缩放显示，使用不是很方便，不知还有没有其它方法，例如用电脑默认的软件打开图片等。

Top

赵文斌发表于：2010-07-03 08:58:51

Application.FollowHyperlink 路径

Top

煮江品茶发表于：2010-07-03 15:46:46

按你说的现象来看，图片默认的软件是网页。你把他们改一下其他的默认软件即可。

Top

Lee 发表于：2010-07-03 18:31:24

谢谢两位，但方法都不可行。我用煮江品茶先生方法，用其它软件时弹出“运行时错误53 文件未找到”，但就算可行，如果图片有多种格式呢例如有JPG、有PDF，还有局域网其它用户呢，万一没相应的软件怎办。

Top

赵文斌发表于：2010-07-04 08:53:28

自己要学会灵活运用和多尝试。像这样类似的问题在贴子中不在少数。我好像还没有碰到用超级链接的方法打不开的文件（即有默认打开方式）。

Top

Lee 发表于：2010-07-04 16:33:36

赵先生，超链接不是打不开，而是图片是绑定路径的随记录变化的，超链接路径如果写上具体文件名就无意义了，如果路径是指向存放图片的文件夹，那查询者还要在文件夹选图片打开，这样并不实用。请问在此基础上代码还能加以修改达到要求吗？

Top

赵文斌发表于：2010-07-04 18:26:45

超链接路径如果写上具体文件名就无意义了，

－－－－谁都知道绑定没有意义。

路径当然是动态的。

Top

Lee 发表于：2010-07-04 22:31:30

请问赵先生这动态路径应怎样写？请不惜指教。

Top

赵文斌发表于：2010-07-05 08:41:42

你发个示例，我在上面修改

Top

Lee 发表于：2010-07-05 13:53:55

赵先生谢谢您。

1.请把“产品图示”文件夹放到D盘。

2.产品图示中有2个是PDF格式图片，PDF格式图片在窗体中不显示也无所谓，关键是点击能打开。

点击下载此附件

Top

Lee 发表于：2010-07-11 21:54:19

一直等待赵先生的回应。

Top

Lee 发表于：2010-08-03 14:41:04

既然没办法，那改为用超链接算了，反正我只要求能点击打开，在窗体中显示不显示也不要紧。

Top

煮江品茶发表于：2010-08-03 16:20:29

点击下载此附件

Top

Lee 发表于：2010-08-04 23:21:59

但JPG格式的图片不能点击打开。

我之前用你教的方法使用IE打开图片，发现IE打开JPG格式的图片不能对图片进行放大、缩小的处理，如果是PDF格式的图片，IE能触发ADOBEREADER软件，所以PDF格式图片反而打开后能进行放大或缩小。

因此我才会在SAMPLE中放入JPG和PDF两种格式的图片。

Top

Lee 发表于：2010-08-05 19:30:52

主要原因，我估计是我现在用的是Adobe Acrobat Professional版，而专业版能加载在IE中（用于把网页内容转为PDF），因此IE打开PDF文件时能调用Adobe Acrobat 对PDF文档进行浏览。

为什么OLE字段能调用windows默认软件打开各种格式图片呢，能不能利用这个原理写代码呢？

Top

总记录：14篇页次：1/1 9 1 :

Access交流中心

续-点击打开图片的VB代码