(通用)发布VB版自定义文件搜索示例,整合了有用模块和控件.
时 间:2012-01-08 21:23:59
作 者:何必见戴 ID:13894 城市:厦门
摘 要:文件搜索示例,整合了一些可通用的模块和控件,大家可随便瞅瞅.
正 文:
年底了系统上线,总结做完,相对闲下来了.于是着手整理文件.整理的时候发现我有很多文件堆放在电脑里十分凌乱,整理起来十分痛苦,那么就搞了一个之前在这里发的VB.NET文件搜索示例,不过VB.NET感觉较难,很多东西搞不懂.于是又转用VB6.0写了这个示例,说实在的调试快,资料多,十分爽!首先感谢一下红尘如烟大师的文件搜索模块.我把它整合在了VB6.0的模块里.这个示例虽然简单,但是也融了一些心血.我搜索了很多有用的模块和控件来完成这个自定义文件搜索功能.如下:
1、浏览文件夹GetFolder,这个access里有With Application.FileDialog(msoFileDialogFolderPicker) 的用法,但是感觉所附模块比较小巧,通用,效果如下
2、判断控件是否注册并自行注册,这个很有用,在access和vb里测试通过,用法如下
首先要调用这个模块啦!然后:
'注册皮肤控件
If RegSvr32("c:\windows\system32\Codejock.SkinFramework.v12.0.1.ocx", False) = False Then
RegSvr32 App.Path & "\Codejock.SkinFramework.v12.0.1.ocx", False
End If
'反注册皮肤控件
fun_UnRegServer = RegSvr32("c:\windows\system32\Codejock.SkinFramework.v12.0.1.ocx", True)
3、Codejock.SkinFramework.v12.0.1.ocx皮肤美化控件。这个我在vb里用很好很强大,access貌似不成。一改vb土土的界面。模块大家自己看。效果如下。
4、clsFileSearch文件搜索模块。这个是红尘如烟老大提供的,核心模块,我稍加修改。可用在vb。
简单看下功能,比如我选择了office分类。添加了指定要搜索的文字。
然后点击搜索
结果如下
双击即可打开文件.后台数据库为main.mdb.初学VB,代码写的不是很规范,附件一个为直接可用的主程序,一个为源代码,大家有兴趣就讲究着看,有空我再来完善,有bug告诉我一声.
顺祝:新年快乐!
附件1:直接运行的程序点击下载此附件
附件2:源代码点击下载此附件
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)