发布VB版自定义文件搜索示例,整合了有用模块和控件.

godzhong

年底了系统上线,总结做完,相对闲下来了.于是着手整理文件.整理的时候发现我有很多文件堆放在电脑里十分凌乱,整理起来十分痛苦,那么就搞了一个之前在这里发的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告诉我一声.
                                                                                                 顺祝:新年快乐!                                                                                                               

ui

谢谢分享！

tmtony

不错，谢谢楼主分享，我也是一直使用 xtreme控件。
在VB和access都使用。用了4年了，还比较稳定

zhuyiwen

原来是站长用了 4 年的控件，呵呵

godzhong

tmtony 发表于 2012-1-9 12:32
不错，谢谢楼主分享，我也是一直使用 xtreme控件。
在VB和access都使用。用了4年了，还比较稳定

access能用皮肤控件么?我没调试成功会出现内存错误,还请指点!

wufeng980114

谢谢分享