Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

Access问答 → 问题与建议收集 → Access快速开发平台附件返回附件图标

Access快速开发平台附件返回附件图标

宋良杰　 发表于：2017-01-22 10:15:43 　
复制

在ACCESS快速开发平台里面，如果上传了非图片文件后，会返回一段“xxx is not picture, can't preview here, please double-click to open view”。 我想做的更好一些，就是上传了非图片文件后，可以在窗口显示附件对应的文件图标。比如如果附件是PDF的话，界面就可以显示PDF文件的图标，如果附件是WORD，就可以显示WORD的文件图标。请问这个功能能否实现？如果可以的话，我应该在哪里添加代码？另外这个代码该如何编写？谢谢！

 

Top
MDZZ 发表于：2017-01-22 10:46:58

用的通用附件？

如果是显示文件类型的图标 找到通用附件   改里面的代码把  



Top
宋良杰 发表于：2017-01-22 10:58:36

恩对的，就是使用了通用附件。我在论坛看到了类似的例子

http://www.accessoft.com/article-show.asp?id=7099

那么在通用附件里我该如何编写这段代码呢



Top
MDZZ 发表于：2017-01-22 14:06:42

代码可以加 但是不保证不出错  而且平台的东西一般我们不会改   简单介绍下

把你看的示例里面的那个 函数复制到平台模块中去 ExtTypePath  顺便把示例中的文件类型文件夹也放到平台文件夹下 

找到通用附件 窗体  在当前事件 把这句改成 

Me.lblPrompt.Caption = loadstring("Attachment '|' is not picture, can't preview here, please double-click to open view.", "|", Me.txtAttachmentName)

改成这样 Me.imgPictureView.Picture = ExtTypePath(Me.txtAttachmentPath & Me.txtAttachmentName)

没有多测试 错了的话在自己看看把




Top
杜超 发表于：2017-01-22 16:38:51
你做的示例最好上传，帮你看下

Top
宋良杰 发表于：2017-01-23 08:04:11
多谢管理员们

Top
浙江123 发表于：2019-02-15 20:09:30

怎么传给你看看，多谢管理员们和祝教们



Top
总记录：6篇  页次：1/1 9 1 :

Access软件网 版权所有 CopyRight 2006-2030
上海盟威软件有限公司 提供支持
沪ICP备12024966号-4