可以做专利聚类分析的免费网站,网站建设 通讯员,全屋整装定制,vps网站管理软件↑↑↑点击上方图片#xff0c;了解详情在Access中#xff0c;如果把图形对象以OLE格式的字段保存#xff0c;那么在窗体中可以直接显示出图片来。但是这样做有以下不足#xff1a;一、需要将图片逐一插入到表中#xff0c;工作量太大。二、使数据库文件变得庞大。三、相同… ↑↑↑点击上方图片了解详情 在Access中如果把图形对象以OLE格式的字段保存那么在窗体中可以直接显示出图片来。但是这样做有以下不足 一、需要将图片逐一插入到表中工作量太大。 二、使数据库文件变得庞大。 三、相同的图片文件如果在不同数据库中都要引用就需要重复插入非常浪费。 因此可以把图片文件按照一定的路径储存起来在窗体中通过这个路径找到相应的图片并显示出来。这样可以大大节省操作时间、储存空间而且便于图片文件在不同数据库中的共享。 在网上查阅了大量的相关资料看到的文章和范例大多是高手写的可能忽略了像我辈这样的菜鸟级爱好者的水平。把他们提供的例子看了半天总是不得要领。在反复尝试之后终于成功了。欣喜之余除了感谢那些网上的资源以及提供者还想把自己的一点经验写出来希望对那些和我一样的业余爱好者有一点帮助。下面就以Access2003(本人依然不习惯07和10的界面坚守着03使用07和10的朋友可以尝试一下原理应该是一样的)为例谈一谈如何实现在窗体中显示指定路径的图片。 比如我们要建立一个“古代语言学家”的数据库希望在窗体中显示每个人的画像可以分下面几个步骤实现 一、建立一个叫做“古代语言学家”的文件夹在这个文件夹中建立一个叫做“古代语言学家”的数据库在数据中建立一个叫做linguist的表表中包含ID(用作主键的编号)、linguist(语言学家的姓名)等字段。 二、在文件夹“古代语言学家”中建立一个名为“头像”的文件夹把所有的语言学家的头像储存在这个文件夹里每个人的头像以姓名或ID为文件名(注意最好以数据表中的“主键”作为文件名这样可以保证不重复)。 三、建立一个窗体(可以利用窗体向导)窗体上要包含反映图片路径变量的字段如本例中头像是以姓名命名的姓名是变量(每个语言学家的姓名不同)所以窗体上必须包含字段linguist。至于窗体上对象的隐现可以通过改变对象属性中的“可见性”来控制。比如如果头像是以ID命名的在窗体上就必须包含ID这个字段如果不希望ID在窗体上显示可以把ID的可见性设为“否”。 四、在窗体中插入一个图形控件。可以先选择任意一个图片。 五、查看图形控件的属性把图片删除(即图中选中的图片路径)。图片类型、缩放模式等可以根据需要设定。 六、在“视图”中打开“代码”编辑窗口加入以下一段代码并保存Private Sub Form_Current()Dim PhotoPath As StringPhotoPath CurrentProject.Path \头像\ Me![linguist] .jpgMe.Image7.Picture PhotoPathEnd Sub 关于这段代码的几点说明 1、Dim语句是一个声明变量的语句String代表字符串。上面的Dim语句表示声明PhotoPath为一个字符串。其中PhotoPath是变量名可以自己命名。 2、PhotoPath 一句定义了图片的路径。CurrentProject.Path是当前对象的路径是个相对路径。是连接符也可以用表示把前后的字符连接起来。Me表示当前的窗体Me![linguist]则表示当前窗体中的linguist字段。把这段语句所代表的路径转换出来即.\头像\ Me![linguist].jpg也就是当前路径下(与数据库文件同目录下)“头像”文件夹中文件名等于窗体中linguist字段的值的jpg文件。再复杂的路径只要是有规则的都可以用这个方法定义。注意所有的值都需要用半角的双引号括起来表示文件夹的前后的斜杠\和后缀名以及前面的.不要丢掉。 3、Me.Image7.Picture PhotoPath一句定义了窗体中的图形控件来源等于上一句定义的路径。注意Image7是图形控件名要与窗体中的控件名一致本例中是Image7。在窗体的设计视图中也可以对图形控件重新命名。 七、完成以上的操作打开窗体就可以看到图片了。 八、上面的代码没有定义当在给出的路径找不到相应的图片时的动作因此当找不到图片时会现错误提示。 九、将代码稍做修改。如下Private Sub Form_Current()Dim PhotoPath As StringPhotoPath CurrentProject.Path \头像\ Me![linguist] .jpgIf Dir(PhotoPath) Then PhotoPath CurrentProject.Path \noimg.jpgMe.Image7.Picture PhotoPathEnd Sub 说明If一句定义了当在上一句定义的路径中找不到图片时图片的路径为当前目录中的noimg.jpg。为保证其有效需要在当前文件夹中有图片文件noimg.jpg。 下面是修改后的效果 大功告成了 十、如果要在窗体中显示多个图片只需声明多个相关的变量定义相应的图片路径即可。比如把古代语言学家的全身像放在文件夹“全像”中同样以姓名命名。要在窗体中同时显示头像和全像可以将代码修改为 Private Sub Form_Current() Dim PhotoPath As String, photopath2 As String PhotoPath CurrentProject.Path \头像\ Me![linguist] .jpg If Dir(PhotoPath) Then PhotoPath CurrentProject.Path \noimg.jpg Me.Image7.Picture PhotoPath photopath2 CurrentProject.Path \全像\ Me![linguist] .jpg If Dir(photopath2) Then photopath2 CurrentProject.Path \noimg.jpg Me.Image9.Picture photopath2 End Sub 下面是修改后的效果End推荐阅读Access训练营 从0基础开始循序渐进系统化的训练营课程整合作业、课表、社群为学员提供答疑获得更佳的学习效果。【详情】快速开发财务管理系统 紧密结合职场的一个课程参加培训不仅可提升开发技能而且可获得案例源代码立即投入到实际工作中应用。【详情】Access软件作品 十二位Access学员对自已开发的软件进行了介绍并分享开发心得一起来了解Access开发的软件。【详情】从Excel到Access数据库 为广大Excel用户了解、学习Access数据库开设的一个实用课程侧重于数据统计分析。【详情】Access每天3分钟 视频课程共50集Access的基础知识并结合示例详细讲解每集视频只有短短几分钟学员可以利用碎片化的时间每天进步一点点【详情】张志Access数据库培训讲师『Access软件网』创始人服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。【详情】
