access图片分页展示及选择功能-Access经典源码剖析

 经典源码剖析系列 图片分页展示与选择 Office中国-王宇虹

1 应用场景

1.1 多图片展示

1.1.1 产品的图片

1.2 大量图片选择

1.3 界面图标选择

1.4 图片文档预览

2 模块 源码剖析

2.1 搜索目录下所有图片

2.1.1 设置边框

2.1.2 Search函数

2.1.2.1 参数 strPath

2.1.2.2 先清除表上一次搜索的结果

2.1.2.2.1 delete * from tblSysImageTmp

2.1.2.3 Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

2.1.2.3.1 搜索文件和目录

2.1.2.3.1.1 隐藏

2.1.2.3.1.2 正常

2.1.2.3.1.3 只读

2.1.2.4 如果找到的是目录

2.1.2.4.1 排除掉父目录(..)和当前目录(.)

2.1.2.4.2 其它正常目录保存到数组

2.1.2.5 如果找到是文件，就把这个文件添加到表中

2.1.2.5.1 添加到表

2.1.2.5.1.1 insert into

2.1.2.5.1.2 ado addnew

2.1.2.6 如果当前目录有子目录

2.1.2.6.1 递归搜索子目录

2.1.2.6.1.1 Call search(strPath + strFileDir(i), strSearch) '递归搜索子目录

2.2 加载图片

2.2.1 根据图片总数进行自动分页

2.2.1.1 根据每页显示的图片数量 6 张

2.2.2 取图片的总数

2.2.2.1 DCount("*", "tblSysImageTmp")

2.2.2.1.1 图片总数量

2.2.2.2 intPerPagNum

2.2.2.2.1 每页可放多少张图片

2.2.2.3 Mod

2.2.2.3.1 取余

2.2.2.3.1.1 如果刚好除尽

2.2.2.3.1.1.1 页数=商数

2.2.2.3.1.2 如果除不尽

2.2.2.3.1.2.1 页数=结果+1

2.2.3 把窗体6张图片控件先隐藏

2.2.4 数据分页

2.2.4.1 strSql = "select top " & intPerPagNum & " FFileName from tblSysImageTmp "

2.2.4.1.1 select top

2.2.5 判断是否图片文件

2.2.5.1 strExt = ".BMP" Or strExt = ".GIF" Or strExt = ".JPG"

2.2.6 组合成一个完整的图片路径

2.2.6.1 CurrentProject.Path & "\res\image\" & strFileName

2.2.6.2 D:\tony\超级经典源码\图片分页展示与选择\

2.2.6.2.1 Res\Image

2.2.6.2.1.1 test.jpg

2.2.6.3 D:\tony\超级经典源码\图片分页展示与选择\Res\Image\test.jpg

2.2.6.3.1 赋给图片的picture

2.2.6.3.2 Controls("img" & i).Picture

2.2.7 把有图的图片控件和标签显示出来

2.2.7.1 Controls("img" & i).Visible = True            Controls("lblID" & i).Visible = True

2.3 页切换

2.3.1 上一页

2.3.2 下一页

2.3.3 首页

2.3.4 末页

2.3.5 去到指定页

2.3.6 页切换的函数

2.3.6.1 changePage

2.3.6.1.1 True

2.3.6.1.1.1 往前翻页

2.3.6.1.1.1.1 如果当前是第1页

2.3.6.1.1.1.1.1 Nz(txtCurrPage.Value) = 1

2.3.6.1.1.1.1.2 提示已经是第一页

2.3.6.1.1.1.1.3 直接退出

2.3.6.1.1.1.2 如果当前页是第2页

2.3.6.1.1.1.2.1 txtCurrPage.Value=2

2.3.6.1.1.1.2.2 select top 6

2.3.6.1.1.1.3 如果是其它页

2.3.6.1.1.1.3.1 "select top " & intPerPagNum & " FFileName from tblSysImageTmp where " & _                                "FFileName not in (select top " & (Nz(txtCurrPage.Value) - 2) * intPerPagNum & " FFileName from tblSysImageTmp)"

2.3.6.1.1.1.4 当前的页码-1

2.3.6.1.1.1.4.1 txtCurrPage.Value = Nz(txtCurrPage.Value) - 1

2.3.6.1.2 False

2.3.6.1.2.1 往后翻页

2.3.6.1.2.1.1 如果当前是最后一页

2.3.6.1.2.1.1.1 Nz(txtCurrPage.Value) = Nz(txtTotlePage.Value)

2.3.6.1.2.1.1.2 提示已经是最后一页

2.3.6.1.2.1.1.3 直接退出

2.3.6.1.2.1.2 如果是其它页

2.3.6.1.2.1.2.1 "select top " & intPerPagNum & " FFileName from tblSysImageTmp where " & _                    "FFileName not in (select top " & Nz(txtCurrPage.Value) * intPerPagNum & " FFileName from tblSysImageTmp)"

2.3.6.1.2.1.3 当前的页码+1

2.3.6.1.2.1.3.1 txtCurrPage.Value = Nz(txtCurrPage.Value) +1

2.3.6.1.3 加载图片

2.4 图片选择框及预览

2.4.1 图片边框设置

2.4.1.1 setBorder 2

2.4.1.2 Controls("img" & rintSeq).BorderStyle = 1

2.4.2 设置选择图片的对像

2.4.2.1 LoadPicture

2.4.3 预览

2.4.3.1 把图片路径再赋给预览控件

3 知识点

3.1 Dir

3.1.1 获取目录下的文件或子目录

3.2 GetAttr

4 程序要求

4.1 准确性

4.2 友好性

4.2.1 用户体验

4.2.1.1 用户满意度高

4.3 优化

4.4 稳定性

4.5 安全性

  相关链接：

1. 直接超值购买：

       点击购买：   

       包含：Access示例完整源码+实现思路与代码讲解高清视频+Access培训课件    绝对低价超值

2. 购买前咨询：

    在线咨询QQ：1918333016

    企业热线QQ：4008553990 （使用QQ搜索： 搜索服务）